Discussion :

[Yalou]

Bonsoir,

Je m'en remet à vous pour mon soucis de débutant.
Dans mon fichier je souhaite faire apparaitre le chemin complet d'un autre fichier dans une cellule.
Cet autre fichier sera choisi par Application.GetOpenFilename

Avec ce bout de code, ça ne fonctionne que si le chemin est du type X:\XXX\XX.xls . Si le fichier "cible" est à la racine ou dans dans un sous répertoire, ça plante.

Merci pour votre aide.

Code :

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

1
2
3
4
5
Sub test3()
Fichier = Application.GetOpenFilename("Excel Files (*.xls),*.xls")
Set Wb = GetObject(Fichier)
Range("J5") = Wb.FullName
End Sub

[Yalou]

Fatigué de m'arracher les cheveux à chercher d'où vient l'erreur, je suis allé me servir un p'tit punch, et là: éclair de génie.

Code :

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

1
2
Fichier = Application.GetOpenFilename
Range("J5") = Fichier

Tout simplement