enregistrer feuille

[nanouardeche]

voila j'ai un programme qui tourne sous excel avec numerotation auto
je voudrai enregistrer mes factures sous leurs numeros mais je n'y arrive pas
je vous envoie le fichier que j'ai cree

 

[Eric 45]

Re : enregistrer feuille

Bonsoir à tous

Comment veux tu les sauvegarder ? chacune sur 1 feuille, creer un fichier, ....

As tu besoin de les récupérer pour faire un duplicata par exemple ?

Dis nous en +, car il y a plusieurs solutions

Eric

 

[Compte Supprimé 979]

Re : enregistrer feuille

Bonsoir Nanouardeche, bonsoir Eric 45

Tu peux utiliser ce genre de code

Sub Sauvegarde()
  Dim NumFac
  NumFac = ActiveSheet.Range("C18").Text
  ' Copier la feuille dans un nouveau classeur
  ActiveSheet.Copy
  ' Sauvegarder le nouveau classeur
  ActiveWorkbook.SaveAs "C:\Fac_" & NumFac & ".xls"
  ' Fermer le nouveau classeur
  ActiveWorkbook.Close
End Sub

Mais comme le dis si bien Eric, il y'a plusieurs façon de faire cela !

A+

 

[nanouardeche]

Re : enregistrer feuille

bonjour bruno M45, bonjour eric 45,
je veux les sauvegarder chacun dans un fichier pour pouvoir les sortir en cas de besoin .oui j'ai besoin de duplicata .est ce compatible avec mon programme
merci d'avance et a +

 

[Eric 45]

Re : enregistrer feuille

Bonsoir à tous

Je te propose de toutes les sauvegarder dans le même fichier, et de les récupérer quand tu veux par un bouton.
Sur quel excel es tu ?

Eric

 

[Eric 45]

Re : enregistrer feuille

Bonsoir à tous

Juste avant d'aller se coucher, un petit fichier d'essai

Eric

 

[Misty]

Re : enregistrer feuille

Bonsoir le forum,

Merci BrunoM45 pour ce code il va me servir souvent🙂

@+

 

[nanouardeche]

Re : enregistrer feuille

merci a tous de m'avoir aidé
a +