copier/coller tout bête...

[Thomas]

Re-bonjour à tous, c'est re-moi et j'ai re-besoin de votre aide...

Je voudrais copier le contenu (toutes les feuilles qu'il contient) d'un fichier excel et les coller dans un autre fichier excel (celui à partir duquel je crée la macro)... Je parviens à copier ce que g besoin mais pas moyen de le coller dans l'autre fichier (si ca se trouve, je me trompe depuis le début...) Est-ce que qqun pourrait me conseiller svp?

Merci d'avance
Thomas

 

[@+Thierry]

Salut Thomas et Tristan

Pour Thomas donc on attends que tu structures bien tes fichiers...


Pour Tristan, il y a plusieurs méthodes, disons que la plus simple est le copié/collé que tu peux obtenir par l'enregistreur de macro... Dont le code une fois revu et corrigé donne ceci pour copier tout (Formule et Format):

Sub Macro1()
Sheets("Sheet1").Range("A1").Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Et celle ci pour ne coller que la valeur :

Sub Macro2()
Sheets("Sheet1").Range("A1").Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

Voilà pour une premère approche

Bon App à tous
@+Thierry