Automatiser une copie

[Hagendazs]

Bonjour,
Je suis nouveau sur ce forum et je voudrais automatiser cette situation

J'ai 2 fichiers excel toto et bobo différents avec chacun des feuilles. Le but est de prendre certaines lignes de mon fichier toto et de les copier dans mon fichier bobo.
Exemple:

copier les lignes (A1,B1,B3,B4)du fichier toto vers le fichier bobo dans les lignes (C1,C2,C3,C4)

merci de votre aide

 

[Spitnolan08]

Re : Automatiser une copie

Bonsoir,

Répondre à ta question est à priori facile mais qu'entends tu par automatiser ? En fonction de quoi ? Quand ?

Cordialement

 

[Hagendazs]

Re : Automatiser une copie

Bonsoir,

Répondre à ta question est à priori facile mais qu'entends tu par automatiser ? En fonction de quoi ? Quand ?

Cordialement

En fait ce que je veux, c'est de pouvoir copier des cellules d'un fichier toto vers une autre cellule d'un fichier bobo qui est différent.
L'important est que je sois pas obligé de copier /collé, car j'ai beaucoup de lignes (50) à copier .

 

[Spitnolan08]

Re : Automatiser une copie

Re,

L'important est que je sois pas obligé de copier /collé, car j'ai beaucoup de lignes (50) à copier

Comme tu es avare en explication, je vais répondre exactement à ta question:

Sub copiFichàFich()
'copier les lignes (A1,B1,B3,B4)du fichier toto vers le fichier bobo dans les lignes (C1,C2,C3,C4)
With Workbooks("toto").Sheets(1)
    Plage = Array(.Range("A1"), .Range("B1"), .Range("B3"), .Range("B4"))
End With
For i = 0 To 3
    With Workbooks("bobo").Sheets(1)
        .Cells(i + 1, "C").Value = Plage(i).Value
    End With
Next
End Sub

Cordialement

 

[Hagendazs]

Re : Automatiser une copie

Re,Comme tu es avare en explication, je vais répondre exactement à ta question:

Sub copiFichàFich()
'copier les lignes (A1,B1,B3,B4)du fichier toto vers le fichier bobo dans les lignes (C1,C2,C3,C4)
With Workbooks("toto").Sheets(1)
    Plage = Array(.Range("A1"), .Range("B1"), .Range("B3"), .Range("B4"))
End With
For i = 0 To 3
    With Workbooks("bobo").Sheets(1)
        .Cells(i + 1, "C").Value = Plage(i).Value
    End With
Next
End Sub

Cordialement

Merci, mais je ne savais pas comment te l'expliquer autrement. Maintenant comme je vais utiliser ces codes là, car je ne comprends rien de cela.