Discussion :

[Raistlinn]

Bonjour,

Je suis en train de lier une macro à mon bouton excel, je souhaite que celui-ci ouvre un fichier dans un répertoire donné.

Je ne sais pas pourquoi celui-ci ne fonctionne pas, j'ai consulté plusieurs sujets sur Shell mais aucun n'est pleinement satisfaisant quand à son utilisation.

Code :

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

1
2
3
4
5
6
7
8
9
Sub Bouton_Clic()
chemin = "\\drst\docs\"
ligne = ActiveCell.Row
 
FichierCode = Replace(Replace(Cells(ligne, "B"), " ", ""), ".", "") & Cells(ligne, "A") & ".pdf"
 
Shell "C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe " & chemin & FichierCode, vbNormalFocus
 
End Sub

La variable "FichierCode" récupère le nom du fichier dans le répertoire (en gros ça ressort correctement son nom en : xxx.pdf)

Le problème vient de Shell, celui-ci ne récupère pas le fichier et me dit : "Erreur execution "53" : Fichier introuvable"

Mon problème vient sûrement de la mauvaise utilisation de parenthèses ou guillemets mais aucun site ne montre un format unique pour Shell

Merci de vos réponses.

Cordialement.

[RyuAutodidacte]

Bonjour,

je ne suis pas spécialiste du shell dans windows, mais je pense que tu devrais commencer d'abord par tester ton résultat via l'invite de commande
afin d'avoir la bonne écriture, puis base toi sur cette réponse donné dans le forum :https://www.developpez.net/forums/d3...ommande-shell/

fais savoir ce qu'il en est stp

[Raistlinn]

Toujours un problème au niveau de ce Shell

Quand je change un truc, ça me met problème de séparateur " ou ) . Du coup doit y avoir un bête oubli ou une mauvaise synthaxe dans la formulation de Shell

[patricktoulon]

bonsoir
que donne ceci dans le debug

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Bouton_Clic()
chemin = "\\drst\docs\"
ligne = ActiveCell.Row
 
FichierCode = Replace(Replace(Cells(ligne, "B"), " ", ""), ".", "") & Cells(ligne, "A") & ".pdf"
 
'Shell "C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe " & chemin & FichierCode, vbNormalFocus

debug.print chemin & FichierCode
end sub

c'est quoi ce double slashs a chemin ??????

[Invité]

Bonsoir,

Code :

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

<span style="font-family: monospace; padding: 2px; background: #ddd; display: inline-block"> shell chr<span class="br0">(</span><span style="color: #cc66cc;">34</span><span class="br0">)</span> & Environ<span class="br0">(</span><span style="color: #FF0000;">"programfiles"</span><span class="br0">)</span> & <span style="color: #FF0000;">"\Adobe\Reader 11.0\Reader\AcroRd32.exe"</span> & chr<span class="br0">(</span><span style="color: #cc66cc;">34</span><span class="br0">)</span> & chr<span class="br0">(</span><span style="color: #cc66cc;">34</span><span class="br0">)</span> &<span style="color: #FF0000;">"fichier.pdf"</span>  & chr<span class="br0">(</span><span style="color: #cc66cc;">34</span><span class="br0">)</span></span>

[Raistlinn]

Bonjour,

Merci maintenant Adobe se lance ! Mais n'arrive toujours pas à trouver mon fichier. Je pense que c'est parce qu'on a pas renseigné son emplacement dans Shell (& chemin).

EDIT : problème résolu voici la dernière ligne de code :

Code :

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

Shell Chr(34) & Environ("programfiles") & "\Adobe\Reader 11.0\Reader\AcroRd32.exe" & Chr(34) & Chr(34) & chemin & FichierCode & Chr(34)

Merci aux différents participants !

Bonne continuation

[RyuAutodidacte]

Salut,
Il manque chemin (PS : pourquoi double slash dans chemin ? J'ai pas le souvenir de chemin écris avec "\\", mais je peux me tromper)
Je pense que ça doit être comme cela :

Code :

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

shell chr(34) & Environ("programfiles") & "\Adobe\Reader 11.0\Reader\AcroRd32.exe" & chr(34) & chemin & chr(34) &"fichier.pdf" & chr(34)

Teste et dis moi ce qu'il en est …

Edit : petite correction

[Raistlinn]

Salut,
Il manque chemin (PS : pourquoi double slash dans chemin ? J'ai pas le souvenir de chemin écris avec "//", mais je peux me tromper)
Je pense que ça doit être comme cela :

Code :

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

shell chr(34) & Environ("programfiles") & "\Adobe\Reader 11.0\Reader\AcroRd32.exe" & chr(34) & chemin & chr(34) &"fichier.pdf" & chr(34)

Teste et dis moi ce qu'il en est …

Ouép cela fonctionne aussi !

Pour le double slash je ne sais pas c'est l'emplacement de la base que l'on m'a donné. Sache qu'en tout cas quand j'en retire un cela ne marche plus donc il doit forcément être utile

[Invité]

Bonjour,

Dans mes vagues souvenir de cours réseau, je crois que le double \\ permet d'accéder un autre ordinateur sur un réseau Windows mais je ne suis absolument pas certains de cette affirmation !

[Invité]

Bonjour,
\\192.168.1.1\rep

\\MonServeur