Exporter données dernières cellules vide

Bonjour au forum,

Dans mon fichier « BASE DONNEES », une macro permet d’exporter la feuille « Base », la plage de cellules A2 à G235 dans le fichier « FRAIS BANCAIRES » à la dernière cellule vide.

Il y a cependant un message d’erreur qui indique : « Erreur de compilation : variable non définie ». Je ne vois pas pourquoi.

Merci de votre aide.

Bonjour,

Il semble que tu n'aies pas défini lng ... Dim lgn As Long ...

Concrètement, qu'est-ce que celà signifie ?

sophang a écrit :

Concrètement, qu'est-ce que celà signifie ?

Re,

Cela signifie que ... dans ton code ... tu dois définir la variable ...

Dim lgn As Long 

Dois-je en déduire que le code que tu as posté ... provient d'ailleurs ...???

oui, c'est un code que j'ai récupéré...

Re,

Sub exporter()
Dim lgn As Long
  Sheets("Base").Select
    Range("A2:G" & Range("A" & Rows.Count).End(xlUp).Row).Copy
    On Error GoTo DossierFermé
    With Workbooks("FRAIS BANCAIRES.xlsx").Sheets("BD")
        lgn = .Range("A" & Rows.Count).End(xlUp)(2).Row
        .Range("A" & lgn).PasteSpecial xlPasteAll
    End With
    Application.CutCopyMode = False
    MsgBox "Travail terminé"
    Exit Sub
DossierFermé:
    MsgBox "Merci d'ouvrir le fichier ''FRAIS BANCAIRES.xlsx'' ", 16
End Sub

Bonjour,

Merci beaucoup !

Bonjour,

Content qu cela fonctionne ...

Merci pour tes remerciements ...