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

RIYANEMADRID -  
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
    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 Contributeur
      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
      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

Discussions similaires

[Visual Basic] MSFlexGrid
klowlead

9 réponses
MSFLEXGRID avec VB6
beaf

5 réponses
comment ajouter le contrôle MSFlexGrid??
lindap

3 réponses
Vider une listbox en VB.NET
Lh

8 réponses
Sauver MSFlex Grid VB6
jctgt

7 réponses