Macro pour copier colonne avec condition Résolu/Fermé

Question

Bonjour, 


J'ai un essai de macro qui me permet de copier une colonne venant d'un fichier excel "Update Vol Prev" vers un second fichier Excel "Prévision_Vol_A Cube" et ça à la suite de ce qui a déjà été copié précédemment. 

Voici le code:

Sub Macro1()'Öffnen A        Workbooks.Open Filename:="Prévision_Vol_A Cube", UpdateLinks:=0'Update Vol PrevWindows("Update Vol Prev").ActivateSheets("Retrieve Top 27 Month").Activate.Range("C7:C86").CopyWindows("Prévision_Vol_A Cube").ActivateWorksheets("Vol Total Month").Range("DZ8").End(xlToLeft)(1, 2).SelectActiveSheet.PasteApplication.CutCopyMode = False              'Schließen von file A        Workbooks("Prévision_Vol_A Cube").Close SaveChanges:=FalseEnd Sub

J'ai pris une partie du code sur ce forum et j'ai tenté de l'adapter mais lorsque j'exécute le code il me met: 
"erreur 424, 
objet requis"

Et la ligne surlignée en jaune est la suivante:

Sheets("Retrieve Top 27 Month").Activate.Range("C7:C86").Copy 

Alors ma question est: que se passe-t-il? :D 

J'avais essayé ce code en faisant le copier coller sur le même fichier et tout allait très bien. Mais ä partir du moment où le copier/coller concerne deux fichiers excel, ça ne va plus...

Je remercie d'avance celui qui pourra m'aider sur ce problüme j'en suis sûr très bête mais quand on apprend sur le tas, c'est moins évident. :)


Cordialement,

Configuration: Windows 7 / Internet Explorer 9.0

via55 · Answer

Bonjour

Essaie de scinder ta ligne ainsi :
Sheets("Retrieve Top 27 Month").Activate
Sheets("Retrieve Top 27 Month").Range("C7:C86").Copy

Cdlmnt
 
"L'imagination est plus importante que le savoir."    A. Einstein

Koalacid · Answer

Alors j'ai retravailler sur cette macro, elle fonctionne maintenant, il n'y a plus de message d'erreur. Par contre ä part l'ouverture et fermeture des fichiers, rien d'autre ne se passe. -_-

Voici le nouveau code:

Sub Macro1()'Öffnen A        Workbooks.Open Filename:="Prévision_Vol_A Cube", UpdateLinks:=0'Update Vol PrevWindows("Update Vol Prev").ActivateSheets("Retrieve Top 27 Month").ActivateSheets("Retrieve Top 27 Month").Range("C7:C86").CopyWindows("Prévision_Vol_A Cube").ActivateSheets("Vol Total Month").ActivateSheets("Vol Total Month").Range("FZ6").End(xlToLeft)(1, 2).SelectActiveSheet.PasteApplication.CutCopyMode = False              'Schließen von file A        Workbooks("Prévision_Vol_A Cube").Close SaveChanges:=FalseEnd Sub


Cordialement

via55 · Answer

Je ne la comprends pas bien non plus

En fait ce que tu veux c'est trouver la dernier colonne remplie d'une ligne précise pour coller à la suite 
donc 
Worksheets("Vol Total Month").select 'pour selectionner la feuille
Dim DernCol As Integer 
DernCol = Worksheets.("Vol Total Month")Range("D4").End(xlToRight).Column 'pour trouver la dernière colonne remplie à partir de D4 (adapter cette ref à ton fichier)
cells(4,derncol+1).select ' pour selectionner la 1ere cellule vide en ligne 4 (changer le n° de ligne si necessaire)

Cdlmnt

Koalacid · Answer

Non, la colonne à copier sera toujours la même. Par contre c'est l'endroit où elle va être copiée qui change. 

Par contre la suite de ce que tu as écrit convient mais je ne comprend pas trop la syntaxe parce que t'as rajouté un commentaire. Du coup j'ai un peu tout essayé, au final je suis revenu sur le code vu plus haut: 

Sub Macro1()'Öffnen A        Workbooks.Open Filename:="Prévision_Vol_A Cube", UpdateLinks:=0'Update Vol PrevWindows("Update Vol Prev").ActivateSheets("Retrieve Top 27 Month").ActivateSheets("Retrieve Top 27 Month").Range("C7:C86").CopyWindows("Prévision_Vol_A Cube").ActivateSheets("Vol Total Month").ActivateSheets("Vol Total Month").Range("FZ6").End(xlToLeft)(1, 2).SelectActiveSheet.PasteApplication.CutCopyMode = False              'Schließen von file A        Workbooks("Prévision_Vol_A Cube").Close SaveChanges:=TrueEnd Sub

Celui-ci marche parfaitement.