Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

R

racalbuto

XLDnaute Nouveau
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
 

Pièces jointes

  • presence1.xlsm
    8.9 KB · Affichages: 17
  • totalgeneral.xlsm
    8.3 KB · Affichages: 6
  • presence1.xlsm
    8.9 KB · Affichages: 1
  • totalgeneral.xlsm
    8.3 KB · Affichages: 2
Solution
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" &...
Trier par date Trier par votes

Jacky67

XLDnaute Barbatruc
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
 

Pièces jointes

  • totalgeneral.xlsm
    19.1 KB · Affichages: 5
Dernière édition:
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
18
Affichages
1 K
GClaire
G
R
  • Question Question
Microsoft 365 aide a la creation d un classeur commercial
2
Réponses
17
Affichages
975
Rozey
R
R
  • Résolu(e)
XL 2016 Créer un .doc à partir des données d'un tableur
Réponses
9
Affichages
352
job75
S
  • Question Question
XL 2019 besoin d aide pour le développement d'un fichier rangements vers les répertoires attitré
Réponses
6
Affichages
415
stef60400
S
M
  • Question Question
Microsoft 365 VBA copier des données d'un classeur à un autre
Réponses
4
Affichages
1 K
sylvanu
  • Question Question
Autres Transfert des données d'un classeur à un autre
Réponses
5
Affichages
558
Oneida
H
  • Question Question
Power Query Récupérer une donnée dans des classeurs pour afficher le résultat dans un autre classeur
Réponses
5
Affichages
484
hijackfr
H
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
430
Chaton77
C
  • Résolu(e)
XL 2016 Objets Excel de type feuille dupliqués en x exemplaires suite à plantage
Réponses
6
Affichages
395
TooFatBoy
H
  • Question Question
XL 2021 [Résolu] Récupérer informations dans plusieurs classeurs et les centraliser dans un autre
2
Réponses
16
Affichages
923
Cousinhub
  • Résolu(e)
XL 2021 copie de donnée vers diffèrent tableaux sur plusieurs feuilles en fonction d un mot
Réponses
4
Affichages
497
Aleks Shadows
Y
  • Résolu(e)
XL 2013 Récupérer le contenu d'un Tableau dans un autre classeur via Power Query et non toute la feuille...
Réponses
4
Affichages
424
Yvan1
Y
G
  • Résolu(e)
Copie de données d'une feuille à une autre
Réponses
2
Affichages
543
gui22
G
L
  • Question Question
XL 2019 Modifié le nom d'un classeur actif
Réponses
7
Affichages
625
lotislogan
L
P
  • Question Question
XL 2016 Interpretation d un message.
Réponses
7
Affichages
470
chris
  • Question Question
Microsoft 365 Importer données de plusieurs classeurs dans un autre sans VBA
Réponses
7
Affichages
907
chris
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
629
salma_hayek
S
  • Question Question
XL 2021 Accélérer la copie du classeur actif faite par vba
2 3 4
Réponses
45
Affichages
2 K
Usine à gaz
A
  • Résolu(e)
Microsoft 365 Alimenter automatiquement un tableau à partir des données d'un autre tableau en fonction d'un critère
Réponses
9
Affichages
1 K
Alexandrax971
A
C
  • Résolu(e)
XL 2019 Copier et renommer (en même temps) des feuilles à partir d'une liste de noms dans un colonne
Réponses
13
Affichages
1 K
Clemee61
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…