XL 2010 copie des données d un classeur à un autre

racalbuto · 25 Octobre 2020

bonsoir a tous
j ai un soucis avec mon classeur.
en faite j ai un classeur nommé"totalgeneral" et tous mes onglets son nommés "janvier","février" etc jusqu a "décembre"..
j'ai 5 classeurs nommés "presence1" etc jusqu’à "presence5" tous les classeurs on exactement la même structure et répondent aux même critères.
je voudrai savoir si il est possible a l'aide d'un bouton dans l'onglet "janvier" du classeur "totalgeneral" qui en cliquant dessus il ouvre les classeurs "present1" etc jusqu' a "present5" qui copie une plage de données identique a tous et qu il me les colles dans le classeur "totgeneral". j ai bien réussi a bricoler un truc mais il n importe pas les formules avec ducoup je me retrouve avec des cellules erreurs.. es ce possible??????. merci d avance

Jacky67 · 25 Octobre 2020

Bonjour,
Tel que présenté, il n'y a pas d'onglet "janvier" dans les exemples
Une proposition qui copie les plages de la feuille1 des classeurs "presence1/..../presence5" sur la feuille1 du classeur "totalgeneral"
En adaptant le "chemin" des classeurs sources

VB:

Sub copieFeuilleJJ()
    Dim Chemin, lig&, i&
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Feuil1")
    Feuil1.Columns("B:D").Clear
    With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
    lig = 3
    For i = 1 To 5
        Chemin = "D:\Mes Téléchargement\" '*********** A adapter *************
        Workbooks.Open Filename:=Chemin & "presence" & i & ".xlsm"
        Sheets("Feuil1").[B3:D13].Copy sh.Range("b" &...

Jacky67 · 25 Octobre 2020

Bonjour,
Tel que présenté, il n'y a pas d'onglet "janvier" dans les exemples
Une proposition qui copie les plages de la feuille1 des classeurs "presence1/..../presence5" sur la feuille1 du classeur "totalgeneral"
En adaptant le "chemin" des classeurs sources

VB:

Sub copieFeuilleJJ()
    Dim Chemin, lig&, i&
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Feuil1")
    Feuil1.Columns("B:D").Clear
    With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
    lig = 3
    For i = 1 To 5
        Chemin = "D:\Mes Téléchargement\" '*********** A adapter *************
        Workbooks.Open Filename:=Chemin & "presence" & i & ".xlsm"
        Sheets("Feuil1").[B3:D13].Copy sh.Range("b" & lig)
        Workbooks("presence" & i & ".xlsm").Close False
        lig = lig + 12
    Next
    [a1].Activate
    With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

Attention, il est écrit ".... il ouvre les classeurs "present1" etc jusqu' a "present5"
et les classeurs ont comme nom "presence1..."
Il y a un moment ou il faudra savoir 🙄

racalbuto · 25 Octobre 2020

Un grand merci pour ton aide vraiment ......

XL 2010 copie des données d un classeur à un autre

racalbuto

XLDnaute Nouveau

Pièces jointes

Jacky67

Jacky67

XLDnaute Barbatruc

Pièces jointes

racalbuto

XLDnaute Nouveau

Discussions similaires

XL 2010 copie des données d un classeur à un autre

racalbuto

XLDnaute Nouveau

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

racalbuto

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency