Forcer utilisatieur a sauvegarder fichier sous un nouveau nom

bonjour ;
enregistre ton fichier d'origine en tant que modèle.
Pour ce faire la démarche à suivre est la suivante :
fichier-->enregistrer sous-->type de fichier-->modèle.
Cordialement
Dadda

-----Message d'origine-----
Bonjour les amis,

Voici ce que j'essais de faire:

J'ai un fichier avec lequel je fais saisir des données à
mes

utilisateurs via des userform. Jusque la ca va bien.

A la fin j'aimerais forcer mon utilisateur a «enregistrer
sous» sous

un autre nom (qui sera variable d'une utilisation a
l'autre) dans le

répertoire Mes Documents de sorte de ne jamais ecraser
mon fichier

d'origine et par le fait meme de conserver les donnees
saisies.

Je sais pas trop comment m'y prendre.

Est-ce que quelqu'un peut m'aider svp.

Merci
.

Bonjour Luc

A mettre dans thisworkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Nom_fichier As String
Dim Nom_modele As String

Nom_modele = "C:Mes documentsModele.xls"

Do
Nom_fichier = Application.GetSaveAsFilename
Loop Until Nom_fichier <> "" And Nom_fichier <> Nom_modele
ActiveWorkbook.SaveAs Filename:=Nom_fichier

End Sub

et certainement aussi (pas testé)


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Nom_fichier As String
Dim Nom_modele As String

Nom_modele = "C:Mes documentsModele.xls"

Do
Nom_fichier = Application.GetSaveAsFilename
Loop Until Nom_fichier <> "" And Nom_fichier <> Nom_modele
ActiveWorkbook.SaveAs Filename:=Nom_fichier

End Sub
--
@+

Xav
"Luc" <l.girard@equipe-lca.com> a écrit dans le message de
news:b808c520.0409010629.36a0d5ec@posting.google.com...

Bonjour les amis,

Voici ce que j'essais de faire:

J'ai un fichier avec lequel je fais saisir des données à mes
utilisateurs via des userform. Jusque la ca va bien.

A la fin j'aimerais forcer mon utilisateur a «enregistrer sous» sous
un autre nom (qui sera variable d'une utilisation a l'autre) dans le
répertoire Mes Documents de sorte de ne jamais ecraser mon fichier
d'origine et par le fait meme de conserver les donnees saisies.

Je sais pas trop comment m'y prendre.

Est-ce que quelqu'un peut m'aider svp.

Merci

Mieux!!!!

:-)

--
@+

Xav
"dadda" <dadda@discussions.microsoft.com> a écrit dans le message de
news:09fc01c49033$d86e5de0$a401280a@phx.gbl...
bonjour ;
enregistre ton fichier d'origine en tant que modèle.
Pour ce faire la démarche à suivre est la suivante :
fichier-->enregistrer sous-->type de fichier-->modèle.
Cordialement
Dadda

-----Message d'origine-----
Bonjour les amis,

Voici ce que j'essais de faire:

J'ai un fichier avec lequel je fais saisir des données à
mes

utilisateurs via des userform. Jusque la ca va bien.

A la fin j'aimerais forcer mon utilisateur a «enregistrer
sous» sous

un autre nom (qui sera variable d'une utilisation a
l'autre) dans le

répertoire Mes Documents de sorte de ne jamais ecraser
mon fichier

d'origine et par le fait meme de conserver les donnees
saisies.

Je sais pas trop comment m'y prendre.

Est-ce que quelqu'un peut m'aider svp.

Merci
.