Chemin accès fichier

roro69 · 7 Octobre 2009

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 · 7 Octobre 2009

Re : Chemin accès fichier

Bonjour roro69,

à tester :

Code:

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 · 7 Octobre 2009

Re : Chemin accès fichier

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

Chemin accès fichier

roro69

XLDnaute Impliqué

tototiti2008

XLDnaute Barbatruc

roro69

XLDnaute Impliqué

Discussions similaires