Ouverture repertoire avec VBA
Fermé
gisarmand
-
13 août 2009 à 21:28
incaout Messages postés 347 Date d'inscription lundi 8 septembre 2008 Statut Membre Dernière intervention 15 novembre 2012 - 21 nov. 2009 à 17:14
incaout Messages postés 347 Date d'inscription lundi 8 septembre 2008 Statut Membre Dernière intervention 15 novembre 2012 - 21 nov. 2009 à 17:14
A voir également:
- Ouverture repertoire avec VBA
- Page d'ouverture google - Guide
- Répertoire téléphonique gratuit - Télécharger - Bureautique
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
2 réponses
incaout
Messages postés
347
Date d'inscription
lundi 8 septembre 2008
Statut
Membre
Dernière intervention
15 novembre 2012
74
13 août 2009 à 22:43
13 août 2009 à 22:43
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
incaout
Messages postés
347
Date d'inscription
lundi 8 septembre 2008
Statut
Membre
Dernière intervention
15 novembre 2012
74
18 août 2009 à 18:24
18 août 2009 à 18:24
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
17 août 2009 à 20:09
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
18 nov. 2009 à 22:38
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
21 nov. 2009 à 17:14
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