Discussion :

[mysterauto]

rebonjour à tous. je bute sur un petit problème de repertoire, dans une version précédente de ma macro, j'ecrivais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
x = Shell("C:\Program Files (x86)\Adobe\Reader 8.0\Reader\AcroRd32.exe" & " " & "C:\...........\TP 1\test.pdf", 1)

pour lancer le fichier test.pdf et ca tournait sans problème.

j'ai mis à jour la version d'abode de la 8 à la 11 et j'ai changé le chemin:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
x = Shell("C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe" & " " & "C:\..............\TP 1\test.pdf", 1)

et ca ne fonctionne plus, adobe se lance mais m'indique une erreur.

en ecrivant ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
x = Shell("C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe" & " " & "C:\.................\TP1\test.pdf", 1)

ca refonctionne si j'enlève l'espace entre "TP" et "1", mais comme c'est un programme que je distribue et qu'il peut être mis n'importe ou sur le disque ou une clé usb, le fait qu'il faille absolument enlever les espaces des sous repertoires est donc très geant.
j'aimerais que ca fonctionne quel que soit la nature des sous-repertoires.

quelqu'un a une idée?

merci d'avance, Luc.

[AlainTech]

Bonjour,

Essaie ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

x = Shell("C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe" & " ""C:\.................\TP 1\test.pdf""", 1)

[mysterauto]

merci tout d'abord d'avoir trouvé une solution, au passage j'aimerais bien avoir la signification de cette drole de syntaxe, je pourrais peut-être debugger moi-même car je suis encore un peu géné car dans ma macro, le problème n'est pas aussi simple:

je définis d'abord le contenu du shell (que je nomme (TxtTP) et ensuite, je le lance:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TextTP = CheminPdf & " " & Chemin & "\" & DossierTP & "\" & Sheets("sources").Cells(3, choixh) & ".pdf"

CheminPdf corespond à:
C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe

Chemin correspond au chemin de lancement de l'applicationexemple sur la clé usb F:
F:\mon programme\

DossierTP correspond au dossier ou se trouve le pdf, exemple:
F:\mon programme\TP 1\


Sheets("sources").Cells(3, choixh) correspond à une cellule qui contient le nom du fichier à lancer.

ensuite j'execute:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 X = Shell(TextTP, 1)

j'ai essayé de mettre ces guillemets mais vba me dis qu'il y a une erreur de syntaxe dans ma ligne de commande.

j'espère avoir été clair et encore merci de vous pencher sur ce problème.

[mysterauto]

je me reponds à moi-même, par tatonnement, ce code fonctionne:



l'ancienne ligne de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TextTP = CheminPdf & " " & Chemin & "\" & DossierTP & "\" & Sheets("sources").Cells(3, choixh) & ".pdf"

est devenue:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TextTP = CheminPdf & " """ & Chemin & "\" & DossierTP & "\" & Sheets("sources").Cells(3, choixh) & ".pdf"""

encore merci Alain de m'avoir donné la solution, j'ai eu un peu de mal à l'adapter mais c'est ok.

PS: je suis toujours amateur d'explications sur cette syntaxe.

[AlainTech]

Bonjour,

Visiblement, le paramètre à passer à Adobe Reader doit, soit ne pas contenir d'espace, soit être entouré de guillemets.
Pour ajouter un guillemet à une chaine de caractères en VBA, il faut le doubler.
Donc, un guillemet pour ouvrir la chaine caractères et deux pour en ajouter un dans cette chaine. Ce qui fait trois.
Idem pour la fermeture de la chaine (2 + 1).
CQFD

[mysterauto]

voilà qui eclaire ma lanterne et qui me rend doublement satisfait.

merci encore et bien à vous,

Luc