Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access chacun sa route chacun son chemin

chacun sa route chacun son chemin

16 réponses
Avatar
jfd
Bonjour
comment remplacer à la deuxième ligne (C:\NRS) par CurrentProject.Path & "
problème de "" ou de ( ou de ;-(


If Not fnFolderExist(CurrentProject.Path & "\NRPhotos") = True Then

Call Shell("""C:\NRS\NRCab\Pictures.EXE""/C /T:""C:\NRS\NRPhotos""", 1)

Je me bats avec les guillemets

Call Shell("""CurrentProject.Path & "\NRCab\Pictures.EXE"/C
/T:""CurrentProject.Path & '\NRPhotos""", 1)

me donne une erreur de syntaxe


Merci
jfd
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
jfd
Parfois les choses simples .............
Un grand merci c'est nickel comme cela

jfd


"db" a écrit :

jfd a écrit :
> Bonjour
> comment remplacer à la deuxième ligne (C:NRS) par CurrentProject.Path & "
> problème de "" ou de ( ou de ;-(
>
>
> If Not fnFolderExist(CurrentProject.Path & "NRPhotos") = True Then
>
> Call Shell("""C:NRSNRCabPictures.EXE""/C /T:""C:NRSNRPhotos""", 1)
>
> Je me bats avec les guillemets
>
> Call Shell("""CurrentProject.Path & "NRCabPictures.EXE"/C
> /T:""CurrentProject.Path & 'NRPhotos""", 1)
>

Et, sans multiplier les guillemets, en écrivant :

Call Shell(CurrentProject.Path & "NRCABPictures.exe /C /T:" &
CurrentProject.Path & "NRPhotos",1)

ça donne quoi ?

(et si ça ne marche pas, essayer juste Call Shell(CurrentProject.Path &
"NRCABPictures.exe",1) pour voir si l'application s'ouvre)

db



Avatar
jfd
Re Bonjour
et bien désolé de revenir

Ca passe très bien si "NRsoft" est directement sous "C" et sa ne passe pas
plus sous "program files" J'obtient un jolie message "erreur de syntaxe dans
l'option de la ligne de commande...." et l'extract ne passe pas.
Est ce une histoire de . en dessous avec ' la ligne de commande qui passe
normalement

Si un oeil voisin ..... merci d'avance

jfd

If Not fnFolderExist(CurrentProject.Path & "NRPhotos") = True Then
Call Shell(CurrentProject.Path & "NRCABPictures.exe /C /T:" &
CurrentProject.Path & "NRPhotos", 1)

'"C:Program FilesNRSoftNRCabPictures.EXE"/C /T:"C:Program
FilesNRSoftNRPhotos"
End If

If Not fnFolderExist(CurrentProject.Path & "NRIcons") = True Then
Call Shell(CurrentProject.Path & "NRCabIcons.EXE /C /T:" &
CurrentProject.Path & "NRIcons", 1)

'"C:Program FilesNRSoftNRCabIcons.EXE"/C /T:"C:Program
FilesNRSoftNRIcons"



"db" a écrit :

jfd a écrit :
> Bonjour
> comment remplacer à la deuxième ligne (C:NRS) par CurrentProject.Path & "
> problème de "" ou de ( ou de ;-(
>
>
> If Not fnFolderExist(CurrentProject.Path & "NRPhotos") = True Then
>
> Call Shell("""C:NRSNRCabPictures.EXE""/C /T:""C:NRSNRPhotos""", 1)
>
> Je me bats avec les guillemets
>
> Call Shell("""CurrentProject.Path & "NRCabPictures.EXE"/C
> /T:""CurrentProject.Path & 'NRPhotos""", 1)
>

Et, sans multiplier les guillemets, en écrivant :

Call Shell(CurrentProject.Path & "NRCABPictures.exe /C /T:" &
CurrentProject.Path & "NRPhotos",1)

ça donne quoi ?

(et si ça ne marche pas, essayer juste Call Shell(CurrentProject.Path &
"NRCABPictures.exe",1) pour voir si l'application s'ouvre)

db



Avatar
db
jfd a écrit :
Re Bonjour
et bien désolé de revenir

Ca passe très bien si "NRsoft" est directement sous "C" et sa ne passe pas
plus sous "program files" J'obtient un jolie message "erreur de syntaxe dans
l'option de la ligne de commande...." et l'extract ne passe pas.
Est ce une histoire de . en dessous avec ' la ligne de commande qui passe
normalement

Si un oeil voisin ..... merci d'avance

jfd

If Not fnFolderExist(CurrentProject.Path & "NRPhotos") = True Then
Call Shell(CurrentProject.Path & "NRCABPictures.exe /C /T:" &
CurrentProject.Path & "NRPhotos", 1)

'"C:Program FilesNRSoftNRCabPictures.EXE"/C /T:"C:Program
FilesNRSoftNRPhotos"
End If

If Not fnFolderExist(CurrentProject.Path & "NRIcons") = True Then
Call Shell(CurrentProject.Path & "NRCabIcons.EXE /C /T:" &
CurrentProject.Path & "NRIcons", 1)

'"C:Program FilesNRSoftNRCabIcons.EXE"/C /T:"C:Program
FilesNRSoftNRIcons"




Bonjour

Essayer successivement :

Call Shell(CurrentProject.Path & "NRCABPictures.exe /C /T:" & chr(34)
& CurrentProject.Path & "NRPhotos" & chr(34) ,1)

et

Call Shell(chr(34) & CurrentProject.Path & "NRCABPictures.exe /C /T:"
& chr(34) & " " & chr(34) & CurrentProject.Path & "NRPhotos" &
chr(34) ,1)


db
Avatar
jero
Salut,
Chemin=Chr(34) & Chr(34) & CurrentProject.Path & "NRCabPictures.EXE" &
Chr(34) & Chr(34) & "/C /T:" & Chr(34) & Chr(34) & CurrentProject.Path &
"NRPhotos" & Chr(34) & Chr(34)
A+


"jfd" a écrit dans le message de news:

Mais reste à l'écoute de vos conseils................comme d'hab
jfd

"jfd" a écrit :

Bonsoir Jac et encore merci pour cette remarque fort à propos

Mais sans plus de résultat avec cette modif.......... je reste à penser
qu'il faut être un peu fou pour passer temps d'heures........
Mais bon, j'ai accepté cela depuis qq années alors je vais chercher
encore
un peu.
Bonne soirée
jfd

"Jac" a écrit :

> .... peut-être qu'en supprimant un des deux & qui se suivant dans
> ... /T:" & Chr(34) & & Chr(34) & ...
>
> jfd a présenté l'énoncé suivant :
> > Bonjour Jero merci de ta réponse et du temps passé ( mais ;-) )
> >
> > même avec un copier coller,en remettant les lignes en phases et en
> > remplacent les chr par des Chr j'obtiens une belle ligne rouge
> > Chemin=Chr(34) & Chr(34) & CurrentProject.Path &
> > "NRCabPictures.EXE &
> > Chr(34) & Chr(34) & "/C /T:" & Chr(34) & & Chr(34) &
> > CurrentProject.Path &
> > "NRPhotos" & Chr(34) & Chr(34)
> >
> >
> >
> > et me sentant dans une langue idem au chinois, je reste sans
> > solution, je
> > ne suis pas persuadé en plus vu le nombre d'heures de passée que le
> > shell
> > soit compatible avec le chemin relatif ou avec moi
> >
> > J'utilise la syntaxe de Call Shell("""C:NRSNRCabPictures.EXE""/C
> > /T:""C:NRSNRPhotos""", 1)
> > depuis plus d'un an
> >
> > Restant à l'écoute, merci
> > jfd
> >
> > "jero" a écrit :
> >
> >> Salut,
> >> 1-Tu crées une variable
> >> Dim Chemin AS String
> >> Chemin=Chr(34) & Chr(34) & CurrentProject.Path &
> >> "NRCabPictures.EXE &
> >> chr(34) & chr(34) & "/C /T:" & Chr(34) & & chr(34) &
> >> CurrentProject.Path &
> >> "NRPhotos" & chr(34) & chr(34)
> >> Note : Chr(34)=Guillemets (")
> >> ensuite :
> >> Call Shell(Chemin,1)
> >> Je n'ai pas vérifié, mais chez moi ça donne :
> >> ""C:$GTNRCabPictures.EXE""/C /T:""C:$GTNRPhotos"",
> >> donc si la syntaxe de Call Shell("""C:NRSNRCabPictures.EXE""/C
> >> /T:""C:NRSNRPhotos""", 1) est correcte, ça doit aller...
> >> A+
> >> Jero
> >>
> >>
> >> "jfd" a écrit dans le message de
> >> news:
> >>
> >>> Bonjour
> >>> comment remplacer à la deuxième ligne (C:NRS) par
> >>> CurrentProject.Path & "
> >>> problème de "" ou de ( ou de ;-(
> >>>
> >>>
> >>> If Not fnFolderExist(CurrentProject.Path & "NRPhotos") = True Then
> >>>
> >>> Call Shell("""C:NRSNRCabPictures.EXE""/C
> >>> /T:""C:NRSNRPhotos""", 1)
> >>>
> >>> Je me bats avec les guillemets
> >>>
> >>> Call Shell("""CurrentProject.Path & "NRCabPictures.EXE"/C
> >>> /T:""CurrentProject.Path & 'NRPhotos""", 1)
> >>>
> >>> me donne une erreur de syntaxe
> >>>
> >>>
> >>> Merci
> >>> jfd
> >>
> >>
> >>
>
>
>




Avatar
jfd
Bonjour "db" et un grand merci
La 1 super, la 2 erreur de syntaxe.
Mes réponses ne passant depuis hier, il ai possible qu'il y ait une
avalanche de merci
jfd

"db" a écrit :

jfd a écrit :
> Re Bonjour
> et bien désolé de revenir
>
> Ca passe très bien si "NRsoft" est directement sous "C" et sa ne passe pas
> plus sous "program files" J'obtient un jolie message "erreur de syntaxe dans
> l'option de la ligne de commande...." et l'extract ne passe pas.
> Est ce une histoire de . en dessous avec ' la ligne de commande qui passe
> normalement
>
> Si un oeil voisin ..... merci d'avance
>
> jfd
>
> If Not fnFolderExist(CurrentProject.Path & "NRPhotos") = True Then
> Call Shell(CurrentProject.Path & "NRCABPictures.exe /C /T:" &
> CurrentProject.Path & "NRPhotos", 1)
>
> '"C:Program FilesNRSoftNRCabPictures.EXE"/C /T:"C:Program
> FilesNRSoftNRPhotos"
> End If
>
> If Not fnFolderExist(CurrentProject.Path & "NRIcons") = True Then
> Call Shell(CurrentProject.Path & "NRCabIcons.EXE /C /T:" &
> CurrentProject.Path & "NRIcons", 1)
>
> '"C:Program FilesNRSoftNRCabIcons.EXE"/C /T:"C:Program
> FilesNRSoftNRIcons"


Bonjour

Essayer successivement :

Call Shell(CurrentProject.Path & "NRCABPictures.exe /C /T:" & chr(34)
& CurrentProject.Path & "NRPhotos" & chr(34) ,1)

et

Call Shell(chr(34) & CurrentProject.Path & "NRCABPictures.exe /C /T:"
& chr(34) & " " & chr(34) & CurrentProject.Path & "NRPhotos" &
chr(34) ,1)


db



Avatar
jfd
Désolé, ma réponse d'hier ne semble pas être passée.
Merci db
La première marche très bien partout.
La n°2 erreur de syntaxe
Un grand merci pour le coup de main
jfd

"db" a écrit :

jfd a écrit :
> Re Bonjour
> et bien désolé de revenir
>
> Ca passe très bien si "NRsoft" est directement sous "C" et sa ne passe pas
> plus sous "program files" J'obtient un jolie message "erreur de syntaxe dans
> l'option de la ligne de commande...." et l'extract ne passe pas.
> Est ce une histoire de . en dessous avec ' la ligne de commande qui passe
> normalement
>
> Si un oeil voisin ..... merci d'avance
>
> jfd
>
> If Not fnFolderExist(CurrentProject.Path & "NRPhotos") = True Then
> Call Shell(CurrentProject.Path & "NRCABPictures.exe /C /T:" &
> CurrentProject.Path & "NRPhotos", 1)
>
> '"C:Program FilesNRSoftNRCabPictures.EXE"/C /T:"C:Program
> FilesNRSoftNRPhotos"
> End If
>
> If Not fnFolderExist(CurrentProject.Path & "NRIcons") = True Then
> Call Shell(CurrentProject.Path & "NRCabIcons.EXE /C /T:" &
> CurrentProject.Path & "NRIcons", 1)
>
> '"C:Program FilesNRSoftNRCabIcons.EXE"/C /T:"C:Program
> FilesNRSoftNRIcons"


Bonjour

Essayer successivement :

Call Shell(CurrentProject.Path & "NRCABPictures.exe /C /T:" & chr(34)
& CurrentProject.Path & "NRPhotos" & chr(34) ,1)

et

Call Shell(chr(34) & CurrentProject.Path & "NRCABPictures.exe /C /T:"
& chr(34) & " " & chr(34) & CurrentProject.Path & "NRPhotos" &
chr(34) ,1)


db



1 2