pb numerotation dans facture

fenec

XLDnaute Impliqué

• 11 Octobre 2011

• #16

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

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 11 Octobre 2011

• #17

Re : pb numerotation dans facture

re,

j'ai oublié la sauvergarde ne garde pas la mise en page est ce normal?

D'avance merci

Fenec

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 11 Octobre 2011

• #18

Re : pb numerotation dans facture

Bonjour

Je vais voir demain et je te tiens au courant parce que chez moi j'ai pas de probléme

@+

Max

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 13 Octobre 2011

• #19

Re : pb numerotation dans facture

Bonjour Max

Je n'ai toujours pas trouvé la solution ,j'essaie même de l'enregistrer avec le nom au lieu du n° mais rien ne fonctionne

D'avance merci

Bonne journée

Fenec

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 13 Octobre 2011

• #20

Re : pb numerotation dans facture

Bonjour

Voila chez moi il n'y a pas de problème

@+

Max

 

Pièces jointes

• dossier fenec (2).zip

  74.1 KB · Affichages: 34

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 14 Octobre 2011

• #21

Re : pb numerotation dans facture

Bonjour Max

Ton dossier encore sous 2007 lol

Je te joinds donc mon dossier peut etre plus simple tu verras peut etre ce qui ne va pas

@+

Fenec

 

Pièces jointes

• Essai1.xls

  105 KB · Affichages: 40
• Essai1.xls

  105 KB · Affichages: 47
• Essai1.xls

  105 KB · Affichages: 43

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 14 Octobre 2011

• #22

Re : pb numerotation dans facture

Bonjour fenec
J' ai mis de fichier en 2003 dans un dossier tous marche je viens de controller il faut que le fichier et sous dossier se trouve dans le même dossier comme je l'ai est mis et il ne devrais pa s avoir de probleme

Max

 

Pièces jointes

• dossier devis facture.zip

  72.3 KB · Affichages: 42

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 14 Octobre 2011

• #23

Re : pb numerotation dans facture

Re,

Je comprends plus rien viens de faire ce que tu me dis et ca ne marche pas

Est donc essayer avec ton fichier du 08/10/2011 20h44 et la tout fonctionne

je deviens fou

@+

Fenec

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 14 Octobre 2011

• #24

Re : pb numerotation dans facture

Re,

Surtouts n'oublie pas de laisser les fichier ensemble.

Si tous fonctionne tu tiens le bon boue ne le lâche pas

@+
Max

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 14 Octobre 2011

• #25

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 14 Octobre 2011

• #26

Re : pb numerotation dans facture

Tu as changer l'emplacement du N° de facture

@+

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 14 Octobre 2011

• #27

Re : pb numerotation dans facture

Re,

Normal puisque dans mon dossier final c'est la que ce situe le N°

@+

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 18 Octobre 2011

• #28

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

 

Vote positif 0 Vote négatif