Holeshotman
XLDnaute Junior
Bonjour à tous les membres du forum,
Je bute un peu sur un problème de macro ...
J'ai un dossier nommé "6385" dans lequel se trouve des fichiers .xlsx et des fichiers .csv.
Dans tous les fichiers en .xlsx se trouve un graphique "Graphique 1" sur la deuxième feuille "Feuil2".
Ce que je souhaiterais faire, c'est, pour chaque fichier en .xlsx, copier le graphique et le coller sur la première feuille d'un autre fichier Excel nommé "Graphgroupe.xlsm".
Le soucis c'est qu'il faudrait placer les graphiques de manière ordonnée de façon à définir une sorte de tableau, sinon ils vont tous être superposés et niveau présentation, ce ne sera pas top ... (on peut imaginer placer les graphiques sur 2 colonnes par exemple).
J'ai essayé de commencer quelque chose mais je n'ai pas trop d'idée pour ce qui est de la mise en forme des graphiques sur le fichier "Graphgroupe.xlsm" :
Si quelqu'un a déjà buté sur ce type de problème, je suis très intéressé par son aide !
Merci par avance à vous tous !
David
Je bute un peu sur un problème de macro ...
J'ai un dossier nommé "6385" dans lequel se trouve des fichiers .xlsx et des fichiers .csv.
Dans tous les fichiers en .xlsx se trouve un graphique "Graphique 1" sur la deuxième feuille "Feuil2".
Ce que je souhaiterais faire, c'est, pour chaque fichier en .xlsx, copier le graphique et le coller sur la première feuille d'un autre fichier Excel nommé "Graphgroupe.xlsm".
Le soucis c'est qu'il faudrait placer les graphiques de manière ordonnée de façon à définir une sorte de tableau, sinon ils vont tous être superposés et niveau présentation, ce ne sera pas top ... (on peut imaginer placer les graphiques sur 2 colonnes par exemple).
J'ai essayé de commencer quelque chose mais je n'ai pas trop d'idée pour ce qui est de la mise en forme des graphiques sur le fichier "Graphgroupe.xlsm" :
Code:
Sub ouvrirfichiers()
Dim Fichier As String, Chemin As String
Dim Wb As Workbook
Chemin = "C:\Users\DPARNAL\Desktop\CSV_BAL_3\6385\"
Fichier = Dir(Chemin & "*.xlsx")
Do While Fichier <> ""
Set Wb = Workbooks.Open(Chemin & Fichier)
Set Wb = Nothing
Fichier = Dir
Sheets("Feuil2").ChartObjects("Graphique 1").Copy
Workbooks("Graphregroupe").Sheets("Feuil1").Select
Selection.Paste
Loop
End Sub
Si quelqu'un a déjà buté sur ce type de problème, je suis très intéressé par son aide !
Merci par avance à vous tous !
David