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.