VBA pour Excel - Boîte de dialogue "Ouvrir" avec fichier par défaut [Résolu]
BlanquerElie
- Messages postés
- 9
- Date d'inscription
- lundi 3 novembre 2008
- Dernière intervention
- 12 juin 2013
- Messages postés
- 9
- Date d'inscription
- lundi 3 novembre 2008
- Dernière intervention
- 12 juin 2013
A voir également:
- Vba choisir un fichier à ouvrir
- Ouvrir un fichier vba excel boite de dialogue - Meilleures réponses
- Vba boite de dialogue pour choisir un fichier - Meilleures réponses
- Afficher boite de dialogue ouvrir dans excel ✓ - Forum - Visual Basic
- Visual Basic / VB.NET : Boite de dialogue ouvrir/enregistrer - CodeS SourceS - Guide
- Visual Basic / VB.NET : Programmer sa boite de dialogue ouvrir répertoire - CodeS SourceS - Guide
- [Vb-Excel] Boite de dialogue enregistrer ✓ - Forum - Visual Basic 6
- Boite de dialogue ouvrir et suppression lignes ✓ - Forum - Visual Basic 6
5 réponses
Meilleure réponse
- Messages postés
- 9
- Date d'inscription
- lundi 3 novembre 2008
- Dernière intervention
- 12 juin 2013
Merci,UCpasfoutuedutout.
J'avais pas mal cheché sur le Ouaibe,
et sur l'aide... mais sur mon PC professionnel,
l'aide offre de nombreux articles... vides !
L'article With n'est pas vide,
mais je ne vois pas bien le rapport
avec mes démêlés avec FileDialog.
Pas grave : ton assistance été largemement efficace,
et je t'en ai beaucoup de reconnaissance.
Bonne chance avec ton béton,
André
J'avais pas mal cheché sur le Ouaibe,
et sur l'aide... mais sur mon PC professionnel,
l'aide offre de nombreux articles... vides !
L'article With n'est pas vide,
mais je ne vois pas bien le rapport
avec mes démêlés avec FileDialog.
Pas grave : ton assistance été largemement efficace,
et je t'en ai beaucoup de reconnaissance.
Bonne chance avec ton béton,
André
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
/1b436c312a4f438d890245b5db66863e/auth-avatar/b6937c51c15c07206e73fb7a925ca0a8-ucfoutu)
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bonjour,
Je ne sais pas ce que tu as "derrière" que tu ne nous montres pas, notamment
où et comment tu as déclaré FichierDialogue !
Si tu veux afficher tous les fichiers d'extension .xls, ce n'est pas un fichier, que tu dois mettre dans initialfilename, mais un chemin complet de dossier
Tu ne peux à la fois forcer un fichier et les avoir tous affichés.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Je ne sais pas ce que tu as "derrière" que tu ne nous montres pas, notamment
où et comment tu as déclaré FichierDialogue !
Si tu veux afficher tous les fichiers d'extension .xls, ce n'est pas un fichier, que tu dois mettre dans initialfilename, mais un chemin complet de dossier
Dim NomFichier As String
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
.Filters.Add "Fichiers Excel", "*.xls"
.Title = "Ouvrir"
.InitialFileName = "D:\ANDRECOURBE" '====>> ici : un dossier, pas un ficfhier
.Show
If .Show = -1 Then
NomFichier = .SelectedItems(1)
MsgBox NomFichier
End If
End With
Tu ne peux à la fois forcer un fichier et les avoir tous affichés.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Et (je n'avais pas vu cela, en plus) ce n'est pas :
mais :
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
If .Show = -1 Then
NomFichier = .SelectedItems(1)
MsgBox NomFichier
End If
mais :
If .SelectedItems.Count > 0 Then
NomFichier = .SelectedItems(1)
MsgBox NomFichier
End If
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
- Messages postés
- 9
- Date d'inscription
- lundi 3 novembre 2008
- Dernière intervention
- 12 juin 2013
Bonjour, et merci de cette réponse hyperrapide.
Je croyais avoir été complet, désolé.
Je tâcherai de faire mieux la prochaine fois.
Question A : Pourquoi le code "With [..] End With"?
Mon code ne correspond donc pas à mon besoin,
qui était d'afficher une boîte "Ouvrir" classique,
listant les fichiers Excel du répertoire,
et proposant par défaut "et0076900001.xls"
dans la zone "Nom de Fichier".
Je suppose donc que la bonne méthode consiste à coder un branchement :
1 - vérifier si le fichier "et0076900001.xls"
est présent dans le répertoire
et en proposer l'ouverture à l'utilisateur ;
2 - si il accepte, charger le fichier
si il refuse, proposer la boîte de dialogue "Ouvrir »
A moins bien sûr qu'il y ait un moyen plus élégant.
Pour ma bonne compréhension de
Application.FileDialog(msoFileDialogFilePicker) :
1 - ".InitialFileName = "Chaine"" permet
de choisir un répertoire autre que le répertoire courant
et de proposer soit
a) les fichiers qu'il contient,
b) les fichiers dont le nom contient "Chaine" ;
2 - ".Filters.Add", pose un filtre sur les noms de fichiers,
utile uniquement dans le cas 1 - a.
Question B : Que fait exactement le code "If [?] Items(1)"...
Continuant à chercher sur le Ouaibe
après avoir sollicité l'aide du forum,
je crois avoir mieux compris le fonctionnement des boîtes de dialogue :
1 - cliquer sur "Ouvrir" renvoie la valeur "-1",
cliquer sur "Annuler" renvoie la valeur "0" ;
2 - il faut ensuite coder la réaction d'Excel suivant la valeur renvoyée,
ce que mon code ne faisait pas !
Un "mon code" un peu meilleur eut été :
If FichierDialogue.Show = -1 Then
NomFichier = FichierDialogue.SelectedItems(1)
Workbooks.Open Filename:=NomFichier
End If
Code que je comprends et qui, dans le cas où je suis, fonctionne?
Pourtant tu préconises de remplacer
If FichierDialogue.Show = -1 Then
par
If .SelectedItems.Count > 0 Then
Est-ce pour fonctionner dans le cas d'une sélection multiple ?
Ou y-a-t-il une autre raison ?
Merci encore
Cordialement
André
Je croyais avoir été complet, désolé.
Je tâcherai de faire mieux la prochaine fois.
Question A : Pourquoi le code "With [..] End With"?
Mon code ne correspond donc pas à mon besoin,
qui était d'afficher une boîte "Ouvrir" classique,
listant les fichiers Excel du répertoire,
et proposant par défaut "et0076900001.xls"
dans la zone "Nom de Fichier".
Je suppose donc que la bonne méthode consiste à coder un branchement :
1 - vérifier si le fichier "et0076900001.xls"
est présent dans le répertoire
et en proposer l'ouverture à l'utilisateur ;
2 - si il accepte, charger le fichier
si il refuse, proposer la boîte de dialogue "Ouvrir »
A moins bien sûr qu'il y ait un moyen plus élégant.
Pour ma bonne compréhension de
Application.FileDialog(msoFileDialogFilePicker) :
1 - ".InitialFileName = "Chaine"" permet
de choisir un répertoire autre que le répertoire courant
et de proposer soit
a) les fichiers qu'il contient,
b) les fichiers dont le nom contient "Chaine" ;
2 - ".Filters.Add", pose un filtre sur les noms de fichiers,
utile uniquement dans le cas 1 - a.
Question B : Que fait exactement le code "If [?] Items(1)"...
Continuant à chercher sur le Ouaibe
après avoir sollicité l'aide du forum,
je crois avoir mieux compris le fonctionnement des boîtes de dialogue :
1 - cliquer sur "Ouvrir" renvoie la valeur "-1",
cliquer sur "Annuler" renvoie la valeur "0" ;
2 - il faut ensuite coder la réaction d'Excel suivant la valeur renvoyée,
ce que mon code ne faisait pas !
Un "mon code" un peu meilleur eut été :
If FichierDialogue.Show = -1 Then
NomFichier = FichierDialogue.SelectedItems(1)
Workbooks.Open Filename:=NomFichier
End If
Code que je comprends et qui, dans le cas où je suis, fonctionne?
Pourtant tu préconises de remplacer
If FichierDialogue.Show = -1 Then
par
If .SelectedItems.Count > 0 Then
Est-ce pour fonctionner dans le cas d'une sélection multiple ?
Ou y-a-t-il une autre raison ?
Merci encore
Cordialement
André
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Pas le temps (j'ai des travaux en cours) de faire ici un cours .
- Ouvre ton aide sur le mot With ! Et lis donc ce que c'est, hein !
- j'insiste sur le fait qu'il faut utiliser SelectedItems.Count > 0 et non FichierDialogue.Show = -1 (c'est tellement évident . Et ce : quel que soit le nombre sélectionné). Mais là également : ouvre donc ton aide VBA (elle ne mord personne).
Je retourne à mon ciment (il est plus logique, lui).
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
- Ouvre ton aide sur le mot With ! Et lis donc ce que c'est, hein !
- j'insiste sur le fait qu'il faut utiliser SelectedItems.Count > 0 et non FichierDialogue.Show = -1 (c'est tellement évident . Et ce : quel que soit le nombre sélectionné). Mais là également : ouvre donc ton aide VBA (elle ne mord personne).
Je retourne à mon ciment (il est plus logique, lui).
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.