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

Fermé

RIYANEMADRID - 30 juin 2010 à 11:43
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 30 juin 2010 à 12:47

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

A voir également:

VB: recupérer le chemin d'accés d'un document
Vb - Télécharger - Langages
Vb cable - Télécharger - Audio & Musique
Vb editor - Télécharger - Langages
Vb runtime - Télécharger - Divers Utilitaires
Tp visual basic exercice programmation vb pdf - Forum VB / VBA

1 réponse

Réponse 1 / 1

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
30 juin 2010 à 12:11

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)

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
30 juin 2010 à 12:33

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

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
30 juin 2010 à 12:47

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

Discussions similaires

Impossibilité enregistrement macro Excel 2010

Télécharger Visual Basic 6.0 (VB6)

fonction substring en vb

Sleep (Vb)

virus Win32/VB.DG