VB: recupérer le chemin d'accés d'un document
RIYANEMADRID
-
Polux31 Messages postés 7219 Statut Membre -
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
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 audio 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
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.
;o)
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)
"juste le chemin"
j'ai ça mais il y a certainement mieux... :-/
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