macro: creer un graphe simultanément a plusieur fichiers

[bauduin]

Bonjour

J'ai créé une macro pour graph automatiquement 20 courbes pour une fichier.

Je souhaiterais savoir si il existe un moyen d'appliquer cette macro a 10... 50 fichiers en a la suite sans recharger tout le temps la macro.

Merci de votre aide

 

[EricS]

bonjours,

si tes fichiers sont identiques (mêmes tableaux),

tu mets ta macro dans un fichier excel sous un répertoire de travail

tu crée sous ce répertoire un répertoire "données" dans lequel tu places tous tes fichiers à traiter.

retour à la macro :

tu fais débuter celle-ci par :

Dim chemin As String
Dim chemindonnées As String
Dim nomfichier As String
chemin = ThisWorkbook.Path & "\"
chemindonnées = ThisWorkbook.Path & "\Données\"
nomfichier = ActiveWorkbook.Name
'
Set fs = Application.FileSearch
With fs
.LookIn = chemindonnées
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
' ligne suivante peut être mise en commentaire après la validation
MsgBox "Ce dossier contient " & .FoundFiles.Count & _
" fichier(s) répondant aux critères."
For i = 1 To .FoundFiles.Count
fichierlu = .FoundFiles(i)
' MsgBox .FoundFiles(i)
Workbooks.Open FileName:=fichierlu
fenêtrelue = ActiveWorkbook.Name
Sheets(1).select

"""ici tu exécutes ta macro""

ActiveWindow.Close SaveChanges:=True
next i
End With

End Sub



Cela devrait marcher si je n eme suis pas trompé

A+
Eric


'