Copier/Coller plusieurs classeurs via VBA Résolu/Fermé

Question

Bonjour, 

Une question un peu compliquée. J'ai 4 classeurs parfaitement identiques nommés classeur1, classeur2, classeur3, classeur4. Dans mon 5ème classeur, dans ma feuille "Synthèse Globale", j'aimerais pouvoir développer une macro qui permettrai de copier/Coller les colonnes de C à E contenu dans l'onglet "Saisie" de chaque classeur. J'aimerais que les copier/Coller se fassent les uns à la suite des autres, par exemple la macro commence à copier/coller les colonnes de C à E de l'onglet "Saisie" du classeur1, puis quand on arrive à la ligne où les valeurs contenues dans ces colonnes sont nulles (ou plutôt cellule vide), la macro lance le copier/coller des colonnes C à E de l'onglet "Saisie" du classeur2... et ainsi de suite jusqu'au classeur4. 
J'espère avoir été assez claire dans mes explications. Je ne sais pas du tout si une telle macro peut être développée. 

Merci beaucoup pour votre aide,

michel_m · Answer

Bonjour,
Où se trouvent les 4 classeurs et le 5°: dans le m^me dossier ?
et sont les seuls dans le ou les dossiers concernés? 

 Edit 14:03h
suffixes: xls, xlsx, xlm, xlsm des 4 ?
 Michel

ti_mouton · Answer

RE, 
Les 5 classeurs se trouvent dans le même dossier nommé "Suivi des temps CIR" ils sont tous au format xlsm.

Merci

Jojos54 · Answer

Tu dois pouvoir t'en sortir avec ce type d'instruction.
pour l'ouverture du classeur :
Workbooks.Open Filename:=ThisWorkbook.Path & "
om_du_classeur"
la fermeture avec l'instruction workbooks("nom_du_classeur").close False

et ensuite pour les copier coller workbook("nom_du_classeur").sheets("nom_de_l'onglet").range(column(3), column(5)).copy

et un .paste derrière à l'endroit ou tu le veux.

michel_m · Answer

Re ci dessous un code non testé, donc... Option Explicit'------Sub compiler_CaE()Dim Chemin As String, Fich As StringDim Derlig As Integer, Ligvide As Long, Tampon'fige le défilement de l'écranApplication.ScreenUpdating = FalseChemin = ThisWorkbook.PathChDir CheminFich = Dir("*.xlsm")While Fich <> "" And Fich <> "classeur5.xlsm" Workbooks.Open Filename:=Fich 'ouvre le classeur With Sheets("saisie") Derlig = .Columns("C:E").Find(what:="*", searchdirection:=xlPrevious).Row Tampon = .Range("C1:E" & Derlig) 'mémorise les données à compiler dans classeur5 End With Workbooks(Fich).Close With ThisWorkbook.Sheets("Synthèse Globale") Ligvide = .Columns("C:E").Find(what:="", after:=Range("C:" & .Cells.Rows.Count)).Row Cells(Ligvid, "C").Resize(UBound(Tampon), 3) = Tampon End With'affecte le fichier suivant (utilisation du joker " * " utilisé pour la def du 1° fichier) Fich = DirWendSheets("Synthèse Globale").ActivateMsgBox "compilation terminée"End Sub pour bien faire pourrais tu mettre en pièce jointe un des classeurs source et me donner les nom exact du classeur5 et des classeurs source je restitue actuellement dans les colonnes C-E du classeur 5 dans l'attente, d'avance merci; Je repasse dans 1h - 1h30 pour mettre en Pj Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/ et coller le lien proposé dans le message de réponse Dans l'attente Michel

michel_m · Answer

et voilà essais
https://www.cjoint.com/?3EDp0zNfukE

Copier/Coller plusieurs classeurs via VBA

5 réponses

Discussions similaires