Problème N°auto sur modele

[Manu13]

Bonsoir le Forum,

j'ai un petit problème de numérotation auto sur un fichier modele.xlt
j'apelle ce fichier via un autre classeur par un bouton.
Lors de ça première ouverture le N° s'incremente +1(là pas de problème) je fais une sauvegarde auto par un bouton sur ce même fichier avec nom fichier et chemin dossier.

lorsque je rapelle le fichier modele plus d'incrementation

code du fichier modele dans ThisWorkBook

Private Sub Workbook_Open()

If ActiveWorkbook.Path = "" Then
Sheets("Feuil1").Range("G2") = Sheets("Feuil1").Range("G2") + 1
ActiveWorkbook.SaveCopyAs (Application.TemplatesPath & "Modele.xlt")
End If
End Sub

code du bouton sauvegarde
Sub sauve()
Dim Chemin$, Client$, Fichier$

Chemin = "C:\Documents and Settings\Emmanuel\Mes documents\DossierA\"
Client = Range("B5")
Fichier = Range("G2") & ".xls"
Application.DisplayAlerts = False
If Dir(Chemin & Client) = " " Then MkDir Chemin & Client
ActiveWorkbook.SaveAs Chemin & Client & "\" & Fichier

Application.DisplayAlerts = True

End Sub


si vous avez une idée c'est avec plaisir

bonne soirée à tous
manu

 

[Manu13]

Re : Problème N°auto sur modele

Re,

le fichier s'ouvre c'est sur la ligne
ActiveWorkbook.SaveCopyAs (Application.TemplatesPath & "Modele.xlt")
qui plante, je l'ais placé dans
Private Sub Workbook_BeforeClose(Cancel As Boolean)

et là ça fonctionne, par contre, lorsque je le sauvegarde via le bouton, le fichier se renomme, jusque là pas de problème, mais lorsque je ferme le fichier renommé, un message me dit
que le fichier modele.xlt existe déjà voulez vous le remplacer?

sinon pour le code sauvegarde
si le dossier existe pas de problème
si le dossier n'existe pas, ça plante "chemin ou dossier introuvable"
j'ai fais un F8
je passe de
If Dir(S, vbDirectory) = "" Then
à
end if
il zappe complètement la création du dossier si il n'existe pas

Merci pour ton aide

bonne nuit
Manu