Discussion :

[touche_a_tout]

Bonjour,
Si jamais la question été traitée, je vais me faire ramasser mais je me risque: Par une userform je veux pouvoir sélectionner une série de lignes d'une feuille sur lesquelles ma procédure principale agira; je dois donc pouvoir choisir le classeur où se trouve cette feuille. J'ai pensé que je pouvais faire apparaître le contenu du dialogue d'Excel "Fichier>ouvrir" dans une ListBox mais je n'y arrive pas (après avoir essayé plusieurs constantes de la collection Dialogs).
Est-ce que ce que je cherche à faire est possible ?
Comment faire apparaître le contenu d'un répertoire dans ma userform ?
Merci pour toute piste ou solution
Cordialement
Pierre
P.S. Pour la USF mon code se limite à l'initialiser et le faire s'afficher. Je ne le joins pas (pour l'instant du moins)

[anasecu]

Bonjour,

Pourtant avec ceci tu devrais pouvoir choisir ton classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim fic As String
With Application.FileDialog(msoFileDialogOpen)
    .Show
    fic = .SelectedItems(1)
End With
Workbooks.Open fic

[touche_a_tout]

Bonsoir et merci anasecu,
Ca a l'air simple mais je ne sais pas où je dois saisir ce code; je l'ai mis dans la Private Sub de mon Listbox mais ça ne donne rien. J'ai 7 contrôles sur ma USF, lequel est-ce qui doit recevoir ce code ?
Merci de préciser pour un novice ès Userforms.
Bonne soirée
Cordialement
Pierre

[clementmarcotte]

Bonjour

Le mieux devrait être logiquement un bouton prévu à cet usage.

Double-clic sur le bouton.

Il va t'ouvrir le module de l'UserForm avec une procédure vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
 
End Sub

Tu fais un copier-copier du code dans la procédure vide.

Pour tester:

Tu cliques sur le bouton Exécuter (ou F5).
L'userForm va s'afficher.
Tu cliques sur le bouton
Une boîte de dialogue familière va s'afficher.

[touche_a_tout]

Bonjour clémentmarcotte et merci,
Pardon d'avoir tardé à réagir, je n'ai pas eu de notification.
J'ai créé un bouton qui s'appelle "Comm_choix_fichier" mais quand je double-clicke dessus le module du userform ne contient pas la procédure vide correspondante. Je dois faire une erreur mais je ne vois pas laquelle. Merci d'avance de continuer à m'aider.
Bonne journée
Cordialement
Pierre

[touche_a_tout]

Rebonjour,
J'ai trouvé pourquoi le module du nouveau bouton ne s'affichait pas (mode création validé). J'ai donc pu coller le code proposé par anasecu mais nouveau souci: FileDialog et MsoFileDialogOpen déclenchent l'erreur "Variable non définie" bien que ces éléments figurent dans mon explorateur d'objets. Où est l'erreur ?
Merci d'avance.
Bien à vous
Pierre