pb numerotation dans facture

  • Initiateur de la discussion Initiateur de la discussion fenec
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fenec

XLDnaute Impliqué
Bonjour le forum
Une nouvelle fois j’ai besoin de votre aide
Je viens de réussir à incrémenter mon N° de devis et est appliqué la même macro pour ma facture mon soucis est qu’une fois mon enregistrement sous le N° ne reste pas en mémoire pour les éditions suivantes
Une fois ceci réaliser est il possible d’enregistrer soit mon devis ou ma facture dans un dossier
J’espère avoir été clair
Merci de votre aide
Je vous joint un fichier exemple d’où j’en suis
 

Pièces jointes

Re : pb numerotation dans facture

bonjour Max

j'ai réussi a l'appliquer a ma premier feuille mais je rencontre un probleme ,lors de l'enregistrement il ne ne prends pas le nunéro de devis,suis oblige de le taper moi meme
si tu vois ce que ca peus etre

ensuite n'arrive pas a appliquer la meme chose sur ma deuxieme feuille sachant que je dois faire la meme chose sur trois feuilles
devis ,commande ,facture

dans l'attente de te lire

merci d'avance

fenec
 
Re : pb numerotation dans facture

Re,

A force de chercher je viens de remarquer ceci

Avec ton code tout fonctionne

fermer = Application.GetSaveAsFilename(ActiveSheet.Range("N16").Value, "Fichiers Excel,*.xls")
'si annulation
If fermer = False Then
Windows(nomfichier1).Activate
ActiveWorkbook.Close Savechanges:=False
Exit Sub
End If
'sinon
ActiveWorkbook.SaveAs Filename:=fermer
ActiveWorkbook.Close
'retour sur modèle
'raz champ Aremplir
Range("Aremplir").ClearContents
'incrément N° commande
num = Format(Val(Right(Range("N16"), 3)) + 1, "000")
ActiveSheet.Unprotect
Range("N16") = Left(Range("N16"), 8) & num
ActiveSheet.Protect

par contre si je modifie suis de nouveau obliger de rentrer le non de fichier

fermer = Application.GetSaveAsFilename(ActiveSheet.Range("R18").Value, "Fichiers Excel,*.xls")
'si annulation
If fermer = False Then
Windows(nomfichier1).Activate
ActiveWorkbook.Close Savechanges:=False
Exit Sub
End If
'sinon
ActiveWorkbook.SaveAs Filename:=fermer
ActiveWorkbook.Close
'retour sur modèle
'raz champ Aremplir
Range("Aremplir").ClearContents
'incrément N° commande
num = Format(Val(Right(Range("R18"), 3)) + 1, "000")
ActiveSheet.Unprotect
Range("R18") = Left(Range("R18"), 8) & num
ActiveSheet.Protect

Voila ou j'en suis si cela peux t'aider

Fenec
 
Re : pb numerotation dans facture

Bonjour Max

Merci pour ton aide tout fonctionne parfaitement. Le problème venait de ma zone d'impression

Par contre la sauvegarde de mon fichier ne garde pas la mise en page du fichier d'origine si tu aurais une idée ...

Meci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
Réponses
1
Affichages
1 K
D
P
Réponses
2
Affichages
710
picard02540
P
D
Réponses
0
Affichages
954
dom29
D
Retour