Microsoft 365 Vba erreur de compilation variable non définie

[Etoile1]

Bonjour,

je rencontre un problème concernant ma macro.


With ActiveWorkbook
.Sheets(1).Name = "Facture"
.SaveAs Filename:=path & fname, FileFormat:=51
.Close
End With


'need to put the details or the invoice in the record of invoices sheet

Set nextrec = Feuil3.Range("A1048576").End(xlUp).Offset(1, 0) Il me met cette erreur au niveau de cette ligne sur nextrec

nextrec = invno
nextrec.Offset(0, 1) = custname
nextrec.Offset(0, 2) = amt
nextrec.Offset(0, 3) = dt_issue
nextrec.Offset(0, 4) = dt_issue + term

Feuil3.Hyperlinks.Add anchor:=nextrec.Offset(0, 7), Address:=path & fname & ".xlsx"
End sub

et je ne comprend pas ou est l'erreur.

Merci de votre aide.

 

[Oneida]

Bonjour,

Certes, certes, quelle erreur et a quelle ligne

 

[Dranreb]

Bonjour.
Déclarez Dim NextRec As Range au début de la procédure
Par ailleurs pourquoi avez vous au début un With ActiveWorkbook ?
Les noms d'objets Worksheet tels que Feuil3, ensuite, ne sont reconnus que dans le projet VBA du classeur connu comme étant plutôt ThisWorkbook.