Discussion :

[thomasdu40]

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 :

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

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.

[pijaku]

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 :

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

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

tu dis...

[thomasdu40]

Bonjour,

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

[pijaku]

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?

[thomasdu40]

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.

[pijaku]

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

[thomasdu40]

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.

[pijaku]

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

[thomasdu40]

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

Je ne sais plus quoi faire.

[mercatog]

Lance cette macro test

Code :

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

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

[thomasdu40]

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.