Enregistrer 2 fois un classeur en VBA

[Marboi]

Bonjour à vous tous,

Voilà je rame pour pouvoir enregistrer deux fois dans la même macro un classeur. En fait c'est un devis avec compteur que j'enregistre avec le nom du client (ça, ça fonctionne) et le problème est qu'excel me change de ce fait le nom du classeur d'origine par celui du client et que la 'maquette' n'est pas à jour et le compteur ne fonctionne pas.
Exemple le fichier (que je joint) ZOE1 si je modifie la cellule D8 par un nouveau client, par exemple DUPONT, celui-ci remplacera ZOE1 et du fait le compteur ne marchera pas lorsque j'ouvrierai la 'maquette' ZOE1. Il y a peut-être un problème de copier/coller avec incrémentation du compteur mais ce qui me gêne c'est l'impossibilité d'enregistrer l'avance du comtpeur dans le fichier base.
Pourriez-vous m'aider à résoudre ce problème ? [file name=ZOE1.zip size=15802]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ZOE1.zip[/file]

 

[_Thierry]

Bonjour Marboi, le Forum

J'ai remis un peu d'ordre dans ton code 😉

Option Explicit

Const Path As String = 'K:\\\\\\\\Mes Documents\\\\\\\\DevisMie\\\\\\\\'
Const Libel1 As String = 'AGENCE DE xxxxxxxxxxxxxx'
Const Libel2 As String = 'Adresse xxxxxxxxxxxxxx'


Sub Remise_à_Zéro()
Dim NameNew As String
Dim Compteur As Integer



With Sheets('DevisSD')
    NameNew = .Range('B10') & '.xls'
    Compteur = .Range('F17')
    .PrintOut Copies:=2
End With

ThisWorkbook.SaveCopyAs Path & NameNew ' <-- C'est ici que l'on sauve une Copie !!
   
With Sheets('DevisSD')
    .Range('C1') = Libel1
    .Range('C2') = Libel2
    .Range('F17') = Compteur + 1
    .Range('D8:G11,C17:C18,A20:E36,F20:G36').ClearContents
End With
   
  With ThisWorkbook
    .Save
    '.Close 'Si nécessaire
  End With
   
   
End Sub

Bon Dimanche
[ol]@+Thierry[/ol]


EDITION !!!

Du coup ta Feuille 'FeuilSD' n'est plus nécessaire.

Message édité par: _Thierry, à: 07/05/2006 14:17

 

[Marboi]

Thierry, alors là :silly: : chapeau.... et merci.

J'ai l'impression d'avoir monté une usine à gaz (c'est vrai que je me suis pas mal aidé de l'enregistreur de macro et suis allé à la pêche sur le forum pour telle ou telle fonction) et toi en '2 coups de cuillère à pot' hop une macro qui fonctionne à merveille.

Je t'avoue ne pas avoir tout compris mais je vais essayé.

Encore mille mercis :woohoo: