VB: recupérer le chemin d'accés d'un document

RIYANEMADRID -  
Polux31 Messages postés 7219 Statut Membre -
Bonjour,

j'essaye de crée une macro qui actualise des données d'un tableau automatiquement
et donc je passe par la manoeuvre suivante :

je demande a indiquer le document Csv qui contiens les nouvelles données
avec : application.getopenfilename
la personne choisit le doc et je veux récupérer juste après le chemin d'accès a ce document de telle façon à ce que je l'intègre dans une procédure de mise a jour .
Pouvez vous m'aidez a le faire Svp
Merci

VB-Excel 2003

1 réponse

  1. Polux31 Messages postés 7219 Statut Membre 1 204
     
    Bonjour,

    Extrait de l'aide en ligne d'Excel (Touche F1) :

    Exemple
    Cet exemple montre comment afficher la boîte de dialogue Ouvrir, dont le filtre de fichier est défini en fichiers texte. Si l'utilisateur choisit un nom de fichier, le code affiche ce nom de fichier dans une boîte de message.

    fileToOpen = Application _
        .GetOpenFilename("Text Files (*.txt), *.txt")
    If fileToOpen <> False Then
        MsgBox "Open " & fileToOpen
    End If


    ;o)
    1
    1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      Bonjour à tous

      "juste le chemin"

      j'ai ça mais il y a certainement mieux... :-/

      Sub situer()
      Dim tablo
      Dim fich As String, chemin As String
      
      fich = Application.GetOpenFilename
      tablo = Split(fich, "\")
      ReDim Preserve tablo(UBound(tablo) - 1)
      
      chemin = Join(tablo, "\")
      End Sub
      0
    2. Polux31 Messages postés 7219 Statut Membre 1 204
       
      Bonjour Michel,

      Pour "juste le chemin" j'ai également ça, pas forcément mieux d'ailleurs.

      Dim fich As String, chemin As String
      
      fich = Application.GetOpenFilename
      
      If fich <> False Then
          chemin = Left(fich, InStrRev(fich, "\"))
      End If
      
      0