Copier/Coller plusieurs classeurs via VBA Résolu

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 String
Dim Derlig As Integer, Ligvide As Long, Tampon

'fige le défilement de l'écran
Application.ScreenUpdating = False

Chemin = ThisWorkbook.Path
ChDir Chemin
Fich = 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 = Dir
Wend

Sheets("Synthèse Globale").Activate
MsgBox "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

Newsletters