Vérification code

Bonsoir forum

SVP

Quelqu'un peut-il corriger ce code ?

Il ne se passe rien

Merci beaucoup

Option Explicit
Dim NomClasseur As String
Dim LigneTotal As Integer
Dim derligne As Integer

'proc consolidation plus classeurs
Sub consolider()

'-parcourir tous les fichiers du dossier prédifini
ChDir "C:\Users\PC\Desktop\Examen"

'on cherche le 1 classeur du dossier
NomClasseur = Dir("C:\Users\PC\Desktop\Examen\ * .xlsx")

'on boucle pour chercher tous les classeurs excel
While Len(NomClasseur) > 0
Workbooks.Open NomClasseur   'ouverture classeur
LigneTotal = ActiveSheet.UsedRange.Rows.Count 'on recupere nombre de lignes
Range("C18:F" & LigneTotal).Copy 'on copie toutes les données de la feuille active
Workbooks("fichier.xlsm").Activate 'on revient sur classeur xlsm
derligne = ActiveSheet.UsedRange.Rows.Count + 1
Range("C" & derligne).Select
ActiveSheet.Range("C" & derligne).past
wend
end sub

Bonjour

Merci de bien vouloir porter attention à vos titres de sujet que vous devons trop souvent corriger. J'ai corrigé celui-ci.
Point 3 de la charte du forum : 3. Rédigez soigneusement votre demande et choisissez un titre qui résume bien votre demande.

Merci de votre attention et participation

Pour votre demande, essayez comme ceci

Option Explicit
'proc consolidation plus classeurs
Sub consolider()
Dim NomClasseur As String
Dim LigneTotal As Integer
Dim derligne As Integer

'-parcourir tous les fichiers du dossier prédifini
ChDir "C:\Users\PC\Desktop\Examen"

'on cherche le 1 classeur du dossier
NomClasseur = Dir("C:\Users\PC\Desktop\Examen\*.xlsx")

'on boucle pour chercher tous les classeurs excel
While Len(NomClasseur) > 0
    Workbooks.Open NomClasseur  'ouverture classeur
    With ActiveSheet
        LigneTotal = .UsedRange.Rows.Count 'on recupere nombre de lignes
        .Range("C18:F" & LigneTotal).Copy 'on copie toutes les données de la feuille active
    End With
    With Workbooks("fichier.xlsm")
        derligne = .ActiveSheet.UsedRange.Rows.Count + 1
        .Range("C" & derligne).Paste
    End With
Wend
End Sub

si ok -->

Cordialement

Merci infiniment Dan