Autres VBA "erreur d'exécution 1004"sur macro ARCHIVER impossible à corriger

[martro]

bonjour,

je n'arrive pas à corriger l'erreur sur la macro ARCHIVER,. pouvez-vous m'aider ?
merci d'avance

 

[fanfan38]

Bonjour
Ci joint ma solution (clearcontents ne marche pas sur des cellules fusionnées)
fichier remplacé à 15h41

A+ François

 

[Dudu2]

Bonjour,
Voici le maximum du numéro de ligne:

Voici ce que tu valorises:

 

[martro]

bonjour, merci pour votre solution mais je suis novice. faut-il que j'enlève le +1 après Row?

 

[martro]

Bonjour
Ci joint ma solution (clearcontents ne marche pas sur des cellules fusionnées)
fichier remplacé à 15h41

A+ François

Merci pour votre réponse

 

[Dudu2]

Sinon tu peux faire:

ligne = Sheets("Historique_facture").Cells(Rows.Count, 1).End(xlUp).Row + 1

 

[martro]

c'est bon cela fonctionne merci beaucoup

 

[martro]

je vous remercie beaucoup pour votre aide

 

[martro]

bonsoir, je réitère une demande d'aide concernant de nouveau un code VBA. je souhaite enregistrer ma feuille Excel dans un dossier. est-ce qu'un code VBA simple existe ?
merci d'avance

 

[job75]

Bonsoir martro, le fil,

je souhaite enregistrer ma feuille Excel dans un dossier. est-ce qu'un code VBA simple existe ?

Pour enregistrer un fichier il faut utiliser la méthode SaveAs, faites une recherche sur ce mot.

A+

 

[martro]

Bonsoir martro, le fil,

Pour enregistrer un fichier il faut utiliser la méthode SaveAs, faites une recherche sur ce mot.

A+

merci

 

[fanfan38]

Bonjour

   Dim LaDate$, Nom$, Rep$  'Déclaration des variables
    LaDate = Format(Now, "yyyy_mm_dd_") 'formatage de la date et heure
    Nom = "Facture" & Range("N21").Value  'Nom de l'onglet à enregistrer
    Rep = "C:\Users\maxime\Desktop\SOCIETE\Factures\"   ' Chemin du répertoire à adapter depuis votre PC
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveCopyAs Rep & LaDate & "_" & Nom & ".xlsm"
    Application.DisplayAlerts = True

A+ François