Ouverture de fichier impossible par un code

Bonjour,

J'ai un Userform qui apparaît lorsque je vais sur un onglet d'un fichier. Dans cet userform j'ai un lien qui me permet d'ouvrir un autre fichier qui n'est autre qu'un guide pour aider à compléter l'onglet en question.

Or il ne veut pas m'ouvrir cet autre fichier. Il me marque "Impossible d'ouvrir le fichier...." alors que le chemin d'accès dans le code est correct.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Label1_Click() Dim Link As String Link = "F:\Bureau\Macro\Guide plan audit" On Error GoTo NePeutPas ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True Exit Sub NePeutPas: MsgBox "Impossible d'ouvrir " & Link End Sub

---

Si vous avez une réponse. Merci.

Bonjour,

Peut être manque t'il l'extension du fichier?
Guide plan audit.???

Sinon, si ce fichier est un classeur Excel, je te recommande cette méthode d'ouverture :

Code:

---

Workbooks.Open Filename:="F:\Bureau\Macro\Guide plan audit.xls"

---

tu dis...

Bonjour,

J'ai modifié le code et intégré ta proposition avec l'extension. Toujours impossible d'ouvrir le fichier.

vérifies bien l'orthographe du chemin, du nom de fichier.

Quel est l'extension de ton fichier? Il s'ouvre, par défaut, avec quel logiciel?

C'est un fichier .xls qui a été créé avec Excel 2010. Ce fichier n'a pas de macro à l'intérieur car ce n'est que du texte.

Quel est donc le message d'erreur complet : "Impossible d'ouvrir le fichier...."

Oui c'est ce message :

"F:\Bureau\Macro\Guide plan audit.xls" est introuvable. Vérifiez l'orthographe ou essayez un autre chemin d'accès.

J'ai même changé l'emplacement du fichier. Rien n'y fait.

Bizarre, bizarre.

1- As tu accès à ce répertoire?
2- pour savoir cela, ouvres le fichier F:\Bureau\Macro\Guide plan audit.xls directement sans passer par macro.
3- Vérifies scrupuleusement l'orthographe. Parfois un espace se glisse n'importe ou... Pour cela, va dans le répertoire :F:\Bureau\Macro\, met en surbrillance le nom du fichier Guide plan audit.xls exactement comme si tu allais le renommer, Copie ce nom et va le coller dans ta macro.

Sinon.....

Je viens de faire tout ce que tu m'as conseillé. Et c'est toujours pareil.

Je ne sais plus quoi faire.:cry:

Lance cette macro test

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test()   If Dir("F:\Bureau\Macro\Guide plan audit.xls") <> "" Then MsgBox "Fichier au format xls" ElseIf Dir("F:\Bureau\Macro\Guide plan audit.xlsx") <> "" Then MsgBox "Fichier au format xlsx" Else MsgBox "Fichier inexistant" End If End Sub

---

Ca y est je peux ouvrir mon fichier.

Ce fichier était au format .xlsx et en changeant l'extension dans le code, il fonctionne.

Purée incoyable le temps perdu pour juste un "X".

Merci à vous deux.