Insérer plusieurs courbes sur un seule graphique
Bonjour,
J'aimerais pouvoir fusionner des courbes de graphiques portant le même nom, mais sur différents fichiers. Exemple : Dans un dossier il y a x fichiers et dans chaque fichier un onglet portant le nom "Graph1" dont j'aimerais récupérer la courbe pour toutes les fusionner sur un seul et même graphique.
La partie ou je bloque c'est sur la collecte de chaque courbe de chaque graphique.
Sub copie()
Application.ScreenUpdating = False
Dim celA1 As Integer
Dim nomFeuille As String
Dim ws As Worksheet
Dim monFichier As String
Dim wb As Workbook
Dim chemin As String
Dim i As Integer
Set wb = Workbooks(ThisWorkbook.Name)
chemin = ThisWorkbook.Path & "\dossier\"
monFichier = Dir(chemin & "*.xlsx", vbNormal)
Do While monFichier <> ""
Debug.Print monFichier
onglet = Split(Split(monFichier, "-")(2), "_")(0)
wb.Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = onglet
Next
monFichier = Dir
Loop
End Sub
Cette partie de code récupère une partie de la terminaison de chaque fichier présent dans mon dossier et crée un onglet portant son nom dans le fichier d'execution de ma macro.
Là ou je bloque c'est pour récupérer chaque onglet nommé "Graph1", les mettre dans l'onglet correspondant et également créer un onglet (par exemple : "Bilan") et mettre chaque courbe de chaque graphe sur celui-ci.
Merci d'avance pour votre aide.