Discussion :

[thibault12500]

Bonjour,

Je suis un debutant en VBA et je bloque sur un sujet.
Sur une feuille j'ai un Tableau Croise Dynamique qui se met a jour quand les donnees changent et je veux ensuite copier et coller ces donnees dans un autre classeur. Or si la premiere colonne est remplie le copier sur la seconde et ainsi de suite...

J'ai realise ce premier code la qui me met erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Button2_Click()
 
Worksheets("By_CdG").Range("C2:C51").Copy '--> je selectionne ma plage de cellule a copier
 
Workbooks.Open ("C:\Thibault\Gestion des litiges\Suivies litiges.xlsm") '--> J'ouvre mon fichier cible
 
Workbooks("Suivies litiges.xlsm").Activate '--> Je l'active 
 
Worksheets("By_CdG").Paste Destination:=Worksheets("data").Cells(2, Column.Count).End(xlToRight)(2) '--> Et je copie (je veux que les valeurs et le format)
 
End Sub

Or ce code ne mache pas et je me demande pourquoi. J'ai erreur 424 (?)
Je voudrai ensuite copier ma plage a partir de C2 puis si c'est remplie D2 puis E2...

Pouvez-vous m'aider svp??

[parmi]

Peut-être ainsi (sans tester...) ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim Colonne as Long
Workbooks.Open ("C:\Thibault\Gestion des litiges\Suivies litiges.xlsm") --> J'ouvre mon fichier cible
 
Colonne = ActiveWorkbook.Worksheets("data").Cells(2, Columns.Count).End(xlToLeft).Column + 1
ThisWorkbook.Worksheets("By_CdG").Copy Destination:=ActiveWorkbook.Worksheets("data").Range("C" & Colonne)
Application.CutCopyMode = False
End Sub

PS: pense à utiliser le # quand tu mets du code

[thibault12500]

Avant tout merci parmi de m'aider sur ce sujet.

Ensuite ta proposition ne fonctionne pas. J'ai une erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Sub Button2_Click()
 
Dim Colonne as Long
 
Workbooks.Open ("C:\Thibault\Gestion des litiges\Suivies litiges.xlsm") --> J'ouvre mon fichier cible
 
Colonne = ActiveWorkbook.Worksheets("data").Cells(2, Columns.Count).End(xlToLeft).Column + 1
 
ThisWorkbook.Worksheets("By_CdG").Copy Destination:=ActiveWorkbook.Worksheets("data").Range("C" & Colonne) --> erreur au niveau de cette phrase. 
 
Application.CutCopyMode = False
 
End Sub

Je ne sais pas du tout pourquoi cela fonctionne pas. J'ai beau chercher mais la j'ai vraiment besoin d'aide svp.

Merci

[parmi]

Ooops, petit oubli du Range à copier...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Worksheets("By_CdG").Range("C2:C51").Copy .......

[thibault12500]

Merci beaucoup parmi pour ton aide!
Ca marche !