[VBA Excel] Macro sur plusieurs classeurs

Résolu/Fermé
Arn's Messages postés 23 Date d'inscription lundi 17 août 2009 Statut Membre Dernière intervention 26 août 2009 - 25 août 2009 à 17:49
Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 - 11 juil. 2014 à 15:52
Bonjour à tous,

D'abord merci pour tout ce que vous faites.

Voilà ma question :
Je souhaite créer une macro qui exécute les instructions suivantes :

Ouvrir une fenêtre similaire à celle qui apparaît quand on veut ouvrir un classeur (ou quand on clique sur un bouton "parcourir"), dans laquelle on puisse faire une sélection multiple des classeurs sur lesquels on veut travailler.

Puis exécuter une macro qui s'applique seulement sur tous les classeurs que j'ai sélectionnés, et pas sur le classeur actuel (celui qui contient la macro).

Comment procéder ?

Merci d'avance pour vos réponses.

4 réponses

Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 1 458
25 août 2009 à 22:11
Bonjour,
Concernant la boîte de dialogue:
Sub UseFileDialogOpen()
Dim lngCount As Long
' *** ouvre la boîte de dialogue de fichiers
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
' *** affiche le chemin de chaque fichier
For lngCount = 1 To .SelectedItems.Count
MsgBox .SelectedItems(lngCount)
Next lngCount
End With
End Sub
2
Où est-ce que tu insères le code que tu veux exécuter pour ces fichiers ?
0
Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 1 458
11 juil. 2014 à 15:52
Bonjour,
En principe on commence par un petit bonjour sans oublier une salutation.
Sans savoir ce que vous cherchez à réaliser, pas de réponse possible ou alors du n'importe quoi.....!
Salutations
Le Pingou
0
Arn's Messages postés 23 Date d'inscription lundi 17 août 2009 Statut Membre Dernière intervention 26 août 2009 7
26 août 2009 à 10:57
Superbe, génial !
Un grand merci, M. Le Pingou !
0
Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 1 458
26 août 2009 à 11:02
Bonjour,
Merci.
Au passage, vous avez remarqué que le contenu de [SelectedItems] vous permet de résoudre la deuxième partie de votre demande.
0
Arn's Messages postés 23 Date d'inscription lundi 17 août 2009 Statut Membre Dernière intervention 26 août 2009 7
26 août 2009 à 12:51
Effectivement.
0