Chemin accès fichier

[roro69]

Bonsoir;
Voici ma question:
Je cherche un moyen à l'aide d'une boîte de dialogue de sélectionner un fichiers et ensuite que le chemin d'accès du dit
fichier vienne s'insérer dans la cellule A1 .Et lorsque je reselectionne un autre fichier son chemin d'accès vienne se mettre
en A2 ET ainsi de suite.

Merci pour vos réponses

 

[tototiti2008]

Re : Chemin accès fichier

Bonjour roro69,

à tester :

Sub ChoixFichier()
Dim a As String, Lign As Long
    a = Application.GetOpenFilename
    If a = "Faux" Then Exit Sub
    Ligne = Range("A65536").End(xlUp).Row
    If Range("A1") <> "" Then Ligne = Ligne + 1
    Range("A" & Ligne).Value = a
End Sub

 

[roro69]

Re : Chemin accès fichier

Bonjour tototiti
Super merci exactement ce que je voulais.
Tout mes remerciement