[VBA Excel] Macro sur plusieurs classeurs
Résolu
-
-
-
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.
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.
A voir également:
- [VBA Excel] Macro sur plusieurs classeurs
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Word et excel gratuit - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
4 réponses
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
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