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

RIYANEMADRID -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

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
Vb express - Télécharger - Langages

1 réponse

Réponse 1 / 1

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 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)

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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 Statut Membre Dernière intervention 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

Discussions similaires

TP EN VB + COURS +EXERCICES CORRIGES

code vb.net

[VB]MsgBox avec variable

Sleep (Vb)

Votre réponse

Discussions similaires