Ouverture repertoire avec VBA
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
Configuration: Windows XP Internet Explorer 6.0
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-
-
Salut Incaout,
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 -
@fred31Salut Fred
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
-
-
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
