Transfert de données

Bonjour =)

Je cherches a automatiser le transfert de données d'un fichier excel à l'autre.

Du Fichier1 au Fichier2.
Je sais faire le transfert d'une seul case à une autre case. (comme dans le fichier joint)

Mais je ne sais pas faire pour transférer un tableau entier. De telle manière que si le tableau s'étoffe, le transfert se fasse quand même correctement.

Je vous met en exemple mon fichier en PJ

Merci

Bonjour,

Un essai ...

Private Sub CommandButton2_Click()
Dim wb As Workbook
Dim ws As Worksheet
Dim Chemin As String

    Chemin = ThisWorkbook.Path & "\"

    Set wb = Workbooks.Open(Chemin & "Fichier2.xlsm")
    Set ws = wb.Worksheets(1)

     Range("Tableau2").Copy Sheets("Feuil1").Range("D4")
End Sub

ric

Super ! ça fonctionne bien.=) Merci beaucoup

Bonjour,

Si tu voulais avoir aussi les entêtes du tableau dans la copie ...

Private Sub CommandButton2_Click()
Dim wb As Workbook
Dim ws As Worksheet
Dim Chemin As String

    Chemin = ThisWorkbook.Path & "\"

    Set wb = Workbooks.Open(Chemin & "Fichier2.xlsm")
    Set ws = wb.Worksheets(1)

     Range("Tableau2[#All]").Copy Sheets("Feuil1").Range("D4")
End Sub

ric

Merci ric =)

Avec un bouton de controleactiveX ça fonctionne mais pas avec une macro classique.

Tu sais pourquoi ?

Bonjour,

Les deux types de boutons peuvent convenir > les boutons "Contrôles de formulaire" sont moins faciles à personnaliser ...

ric

Salut,

Je suis sincèrement désolé mais il me met un message d'erreur quand je passe en vba.

J'ai mis le message d'erreur dans le fichier.

Bonjour,

Un essai ...

Private Sub CommandButton2_Click()
Dim WbD As Workbook     ' Destination
Dim Chemin As String

'''    Range("Tableau2[#All]").Copy    ' avec entête
    Range("Tableau2").Copy
    Chemin = ThisWorkbook.Path & "\"
    Set WbD = Workbooks.Open(Chemin & "Fichier2.xlsm")
    Windows("Fichier2.xlsm").Activate
    Range("D4").Select
    ActiveSheet.Paste
End Sub

ric

Merci ric, c'est parfait !