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.