Bonjour à tous,
Je viens solliciter votre aide pour un bout de code dans mon VBA parce que je galère énormément sur une seule ligne qui m'empêche de faire ce que je souhaite.
J'ai deux fichiers nommés "test.xls" et "test1.xls" où il y a des tableaux à l'intérieur. Je souhaite copier une partie de ces tableaux(de C2 à L35): ça, c'est bon j'y arrive.
Cependant dans mon fichier "Synthèse.xlsm", je veux les coller à la suite. Et c'est ici que je bloque, car je n'arrive à trouver sur les forums que des collages en lignes. Ce que je veux, c'est coller les tableaux les uns à la suite des autres en colonnes, c'est-à-dire horizontalement.
Je vous montre mon code du copier-coller seulement
Donc pour l'instant, les tableaux se collent à partir de la colonne C2, donc ils se collent les uns par dessus les autres. Mais je voudrais pouvoir les coller sur M2, sans le nommer précisément car il se pourrait que ce ne soit pas M2. Pour faire plus clair, que le collage du deuxième tableau se fasse à la fin du collage du premier tableau. Il faut aussi savoir que j'ai fait seulement 2 fichiers mais il peut y en avoir plus.
Et ça, je galère depuis plusieurs jours. Je vous mets en annexe les différents fichiers dont il est question.
Est-ce que quelqu'un aurait la commande magique pour que je puisse opérer cela.
Je vous remercie d'avance,
Je viens solliciter votre aide pour un bout de code dans mon VBA parce que je galère énormément sur une seule ligne qui m'empêche de faire ce que je souhaite.
J'ai deux fichiers nommés "test.xls" et "test1.xls" où il y a des tableaux à l'intérieur. Je souhaite copier une partie de ces tableaux(de C2 à L35): ça, c'est bon j'y arrive.
Cependant dans mon fichier "Synthèse.xlsm", je veux les coller à la suite. Et c'est ici que je bloque, car je n'arrive à trouver sur les forums que des collages en lignes. Ce que je veux, c'est coller les tableaux les uns à la suite des autres en colonnes, c'est-à-dire horizontalement.
Je vous montre mon code du copier-coller seulement
Code:
ChDir "C:\Users\Poste23\Desktop\test"
ClasseurSynthèse = Dir("C:\Users\Poste23\Desktop\test\*.xls")
While Len(ClasseurSynthèse) > 0
Workbooks.Open ClasseurSynthèse
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
Range("C2:L" & DerniereLigne).Copy
Workbooks("Synthèse.xlsm").Activate
Range("C2").Select
ActiveSheet.Paste
Workbooks(ClasseurSynthèse).Close
ClasseurSynthèse = Dir
WendDonc pour l'instant, les tableaux se collent à partir de la colonne C2, donc ils se collent les uns par dessus les autres. Mais je voudrais pouvoir les coller sur M2, sans le nommer précisément car il se pourrait que ce ne soit pas M2. Pour faire plus clair, que le collage du deuxième tableau se fasse à la fin du collage du premier tableau. Il faut aussi savoir que j'ai fait seulement 2 fichiers mais il peut y en avoir plus.
Et ça, je galère depuis plusieurs jours. Je vous mets en annexe les différents fichiers dont il est question.
Est-ce que quelqu'un aurait la commande magique pour que je puisse opérer cela.
Je vous remercie d'avance,
Dernière édition:
