Macro Excel - Fonction Shell

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:

---

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.

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

Toujours un problème au niveau de ce Shell :mrgreen:

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

bonsoir
que donne ceci dans le debug

Code:

---

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 ??????

Bonsoir,

Code:

---

<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>

---

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:

---

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

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:

---

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

Citation:

---

Envoyé par 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:

---

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 ;)

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 ! :aie:

Bonjour,
\\192.168.1.1\rep

\\MonServeur