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

fanfan38

XLDnaute Barbatruc

• 11 Août 2022

• #2

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

A+ François

 

Pièces jointes

• facture à finir.xlsm

  31.3 KB · Affichages: 1

Dernière édition: 11 Août 2022

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 11 Août 2022

• #3

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


Voici ce que tu valorises:

 

Vote positif 0 Vote négatif

M

martro

Guest

• 11 Août 2022

• #4

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

 

Vote positif 0 Vote négatif

M

martro

Guest

• 11 Août 2022

• #5

fanfan38 à dit:

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

A+ François

Cliquez pour agrandir...

Merci pour votre réponse

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 11 Août 2022

• #6

Sinon tu peux faire:

VB:

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

 

Vote positif 0 Vote négatif

M

martro

Guest

• 11 Août 2022

• #7

c'est bon cela fonctionne merci beaucoup

 

Vote positif 0 Vote négatif

M

martro

Guest

• 11 Août 2022

• #8

je vous remercie beaucoup pour votre aide

 

Vote positif 0 Vote négatif

M

martro

Guest

• 11 Août 2022

• #9

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Août 2022

• #10

Bonsoir martro, le fil,

martro à dit:

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

Cliquez pour agrandir...

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

A+

 

Vote positif 0 Vote négatif

M

martro

Guest

• 11 Août 2022

• #11

job75 à dit:

Bonsoir martro, le fil,

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

A+

Cliquez pour agrandir...

merci

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 12 Août 2022

• #12

Bonjour

VB:

   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

 

Vote positif 0 Vote négatif