Ouverture repertoire avec VBA
gisarmand
-
incaout Messages postés 347 Date d'inscription Statut Membre Dernière intervention -
incaout Messages postés 347 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je realise un programme sous VBA(excel).
J aimerai, via un controle CommandeButton, ouvrir un repertoire dont je connait le nom.
Ensuite rechercher et cliquer sur le fichier voulu pour qu il s affiche ds un controle text box le chemin d acces de celui ci.
quelqu un pourrait il m aider?????????????????????????
Merci
je realise un programme sous VBA(excel).
J aimerai, via un controle CommandeButton, ouvrir un repertoire dont je connait le nom.
Ensuite rechercher et cliquer sur le fichier voulu pour qu il s affiche ds un controle text box le chemin d acces de celui ci.
quelqu un pourrait il m aider?????????????????????????
Merci
A voir également:
- Ouverture repertoire avec VBA
- Page d'ouverture google - Guide
- Répertoire téléphonique gratuit - Télécharger - Bureautique
- Détection de l'ouverture du clapet de mon étui samsung - Forum Téléphones & tablettes Android
- Vba range avec variable ✓ - Forum VB / VBA
- Ouverture automatique application windows - Guide
2 réponses
Salut.
Voici le code de ton bouton
sub monbouton_click()
'permet de sélectionner un fichier
'ici il filtre sur excel. je pense que si tu ne mets rien dans les parenthèses, il affiche tous les fichiers
NomFData = Application.GetOpenFilename("Fichiers excel (*.xls), *.xls")
If NomFData = False Then
Exit Sub
Else
'zone ou afficher le nom et le chemin du fichier
TB_PathData.Value = NomFData
End If
Cdlt
IC
Voici le code de ton bouton
sub monbouton_click()
'permet de sélectionner un fichier
'ici il filtre sur excel. je pense que si tu ne mets rien dans les parenthèses, il affiche tous les fichiers
NomFData = Application.GetOpenFilename("Fichiers excel (*.xls), *.xls")
If NomFData = False Then
Exit Sub
Else
'zone ou afficher le nom et le chemin du fichier
TB_PathData.Value = NomFData
End If
Cdlt
IC
Salut
Je pense que tu peux le déclarer en String ou en variant si String ne fonctionne pas.
"Application.GetOpenFilename("Fichiers excel (*.xls), *.xls")
Application.GetOpenFilename(" *.xls")
Quelle est la difference entre ces deux lignes??"
Je ne sais pas si la seconde fonctionne, je n'ai pas testé. Je pense que dans la première ligne, le 1er argument indique ce qu'il doit indiquer comme libellé dans la zone de liste de sélection du type de fichier et que le second argument indique le type de fichier à afficher.
Cdlt
IC
Je pense que tu peux le déclarer en String ou en variant si String ne fonctionne pas.
"Application.GetOpenFilename("Fichiers excel (*.xls), *.xls")
Application.GetOpenFilename(" *.xls")
Quelle est la difference entre ces deux lignes??"
Je ne sais pas si la seconde fonctionne, je n'ai pas testé. Je pense que dans la première ligne, le 1er argument indique ce qu'il doit indiquer comme libellé dans la zone de liste de sélection du type de fichier et que le second argument indique le type de fichier à afficher.
Cdlt
IC
Merci pour ta reponse. Le code fonctionne bien mais.....
NomFData je dois le declaree comme String???
Application.GetOpenFilename("Fichiers excel (*.xls), *.xls")
Application.GetOpenFilename(" *.xls")
Quelle est la difference entre ces deux lignes??
Merci
Je suis tout ce qu'il y a de plus novice en vba.
Une fois la fenêtre de recherche ouverte et que j'ai sélectionné mon fichier, j'aimerai afficher le chemin du fichier (exemple C:\fichier.xls) dans un textbox que j'ai crée dans mon userform.
Je ne vois pas comment tu fais cela?
Merci pour ta réponse
Voici le code à utiliser :
NomFData = Application.GetOpenFilename("Fichiers excel (*.xls), *.xls")
If NomFData = False Then
Exit Sub
Else
TB_PathData.Value = NomFData
End If
NomFData est le nom du fichier que tu sélectionnes dans la boite de dialogue
Si un fichier a été sélectionné, la boite renvoie son nom, sinon false
TB_PathData est une zone de texte. Tu affectes à son attribut value le nom du fichier récupéré.
Cdlt
IC