XL 2010 Erreur de recherche de dernière ligne

dev_co

XLDnaute Occasionnel
Bonjour
Je travaille avec 2 fichiers , le principal 1 avec le code vba et celui servant pour extraire les données 2 et les copier dans 1
Normalement il y aura x fichiers 2
Donc pour copier ligne / Ligne il me faut connaitre la dernière ligne du 1
VB:
For x = 1 To Nbfic

    Workbooks.Open(Filename:=chemin & "\" & Nom_proj(x)) _
        .RunAutoMacros Which:=xlAutoOpen
    
    der_lig = Workbook.Sheets("Feuil1").Range("A6500").End(xlUp).Row  ' Ce fichier avec le code  1
  
    With Worksheets("Synthèse")
    ' ICI pour prendre les DATA et les copier dans ce fichier
    End With
Mais j'ai erreur 424 Objet requis pour der_lig ????
Ou est l'erreur ; Merci
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof