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

Enregistrement incrementé

  • Initiateur de la discussion germain
  • Date de début
G

germain

Guest
Bonjour a tous,
Voila mon probleme : je suis en train de creer un fichier excel ( une facture )
et je souhaiterai a lenregistrement que le nom de fichier que je vais enregistrer soit la suite du dernier fichier enregistrer dans mon dossier.

Pour creer une facture jouvre mon fichier excel : Facture
chaque facture sera cree par cette meme feuille donc :
exemple : jai deja creer 20 facture
la facture 1 est appelé 1 , la facture 2 est appelé 2 est etc...
apres avoir cree une centaine de facture on ne sait plus ou lon en est.

Donc je suis obliger de regarder la derniere facture enregistrer par ex : 121
et denregistrer ma derniere facture sous le nom de 122

Comment faire pour automatiser cela pour que lenregistrement a la suite seffectue automatiquement

est ce possible ?

D'avance MERCI
 
V

Vériland

Guest
Bonsoir Germain,

Tiens tu peux eventuellement procéder ainsi...

Sub EnregistreSous()
' Vériland
' Pour Germain
' Excel Downloads (http://www.Excel-downloads.com)

Dim Num As Long
Dim NomFichier As String
Num = Range("a1").Value
NomFichier = "Facture_"
With Application
.SendKeys "{TAB} {DOWN 0} ~ {TAB}", True
.Dialogs(xlDialogSaveAs).Show NomFichier & Num
End With
Num = Num + 1
Range("a1").Value = Num
End Sub


cette macro ouvre la boite de dialogue "enregistrer sous" et propose d'enregistrer ta facture avec un numéro incrémenté de 1 à chaque fois éxécution de la macro...chiffre dans la cellule A1...

cela donne : Facture_1...et ainsi de suite

 

Discussions similaires

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