[VBA Excel] Macro sur plusieurs classeurs
Résolu
Arn's
Messages postés
25
Statut
Membre
-
Le Pingou Messages postés 12644 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12644 Date d'inscription Statut Contributeur Dernière intervention -
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
- Comment trier par ordre alphabétique sur excel - 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
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