renvoi chemin d'un fichier dans une cellule.
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 :calim2: . Si le fichier "cible" est à la racine ou dans dans un sous répertoire, ça plante.
Merci pour votre aide.
Code:
1
2
3
4
5
| Sub test3()
Fichier = Application.GetOpenFilename("Excel Files (*.xls),*.xls")
Set Wb = GetObject(Fichier)
Range("J5") = Wb.FullName
End Sub |
