Insérer plusieurs courbes sur un seule graphique

Fermé
Greg - 14 déc. 2020 à 09:30
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'exécution 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.

Configuration: Windows / Edge 18.17763