Aide pour modifier un code

Bonjour à tous,

Nouvelle sur ce forum, j'aimerai une aide pour modifier un code, je suis arrivée avec beaucoup de patience et de recherche à faire ce fichier (Attention, je ne crée pas les codes, je l'ai récupère sur les forums), mais pour les deux points qui suivent cela me pose problème.

Mon bon de commande effectué, j'enregistre et je fais une sauvegarde,

Cela va dans le dossier que j'ai choisie,

jusqu'ici tout va bien.

1-Pour la sauvegarde :

ce que j'aimerai c'est modifier l’appellation de mon fichier,

ici il est nommé : Machintruc2013_7.xlsm en L3

Il prend, le nom du fournisseur et la date.

J'aimerai nommé mon fichier par :

le nom du fournisseur en F11 et la référence en I6

Machintruc_13960.xlsm

2-Pour la Nouvelle commande :

Quand, je clique sur ce bouton "Nouvelle_Commande" le numéro de

commande 08871 se modifie avec +1 cela est PARFAIT !

Par contre, tout ce qui se trouve sur fond saumon écriture rouge (à titre indicatif)

qu'ils s’effacent automatiquement au clique de Nouvelle_Commande, que le document

devienne vierge, pour pouvoir effectué une nouvelle commande.

Un grand merci pour votre aide.

Sylvie

Bonsoir,

Un essai en PJ.

Cdt,

Darzou

Bonjour Darzou,

Merci pour votre réponse rapide.

La sauvegarde du fichier dans le même dossier et fichier renommé avec le nom du fournisseur et référence, parfait !

1- Le problème est que mon bon de commande est vide, rien n'a été enregistrer une fois que j'ai cliquer sur sauvegarde.

2- Quand je clique sur "Nouvelle_commande" le numéro de Bon de commande n'ajoute pas +1 en I3

Ici il est a 08877 avec ma nouvelle commande, il aurait dû passer à 08878 automatiquement.

Super, je vous remercie bien.

Cordialement

Sylvie

Option Explicit

Sub Nouvelle_Facture()
  Range("No_commande").Value = Range("No_Commande").Value + 1
  Range("NomFichier").Value = Range("NomClient") & Year(Date) & "_" & Month(Date) & ".xlsm"
  [Data].ClearContents
End Sub
Sub Sauvegarde()
Dim LaSource$, LaDest$, fso As Object
  ThisWorkbook.Save
  LaSource = ThisWorkbook.Path & "\" & ThisWorkbook.Name
  LaDest = ThisWorkbook.Path & "\" & [F11] & "_" & [I6] & ".xlsm"
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.CopyFile LaSource, LaDest
  Set fso = Nothing
End Sub

Cdt,

Darzou

Vraiment un grand merci Darzou, tout fonctionne.

Super contente

Sylvie