Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

martro

XLDnaute Nouveau
bonjour,

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

Pièces jointes

  • facture à finir.xlsm
    31.8 KB · Affichages: 4

fanfan38

XLDnaute Barbatruc
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:

fanfan38

XLDnaute Barbatruc
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…