Ouvrir un nouveau classeur à partir d'un model avec la date du j ou

j'avais pas vu ce post
si tu ve je peu t'envoyer une copie du fichier.

sinon c'est simple j'ai un classeur avec 4 feuilles
les trois premieres pour les encaissement de chaque poste et la derniere un
récapitulatif des 3 postes pour le responsable.
Les 3 premiere feuilles contienne un tableau a remplir à la main avec
différent colone corepondant a différent encaissement dans la journée.

La derniere feuille contiens 3 colones corespondant chacune à un poste.
cette derniere récupere les donnés via des formules simple =[feuille1]A4 ....
dans ce genre la.

Le but c de faire un model qui permet
lors de l'arriver de l'agent qui fait 7h - 15h, il ouvre à partir du model
une nouvelle feuille qui DOIT s'enregistré s'ouvrir avec comme nom (feuille
du poste du "date du jour") il clique sur l'icone enregistré et ca enregistré
dans un dossier spécifier dans excel ! et c'est tout !!! ensuite on doit
pouvoir fermer le classeur et le réouvire sans que ca pause de probleme mais
sans réactualisé la date à chaque fois puisque dans la journé 2 autre
personne vont utilisé ce fichier en utilisant les feuilles 15 -23 puis 23 -7
c d'ailleur pour ce dernier que la macro ne doit plus réactualisé la date
puisque si il ferme ca feuille et qu'il a réouvre il faut quelle reste à la
date à laquelle elle à était créer. de plus le responsable le matin doit
ouvrir ce fichier du ex: 21.12.2005 et si c'est un WE il le feras que 2 jour
aprés.

Voila j'espere que j'ai était assez clair.

Merci

| Mon but c de faire une feuille ou on mets tout nos
| encaissement et ca remplis automatiquement la feuille de poste. mais je ve
| eviter que le 7-15 touche à la feuille du 15-23 ....

La donne de ton problème n'est pas très clair pour moi.

comment ta feuille se remplit ?

Quel est spécifiquement ton problème ?


Salutations!



"sennheiser" <sennheiser@discussions.microsoft.com> a écrit dans le message de news:
F137B769-57BE-49C6-B2BD-F71A5A1C5537@microsoft.com...
Bein je vais essayer de t'exposer mon pb
On tourne en 3*8 sur une caisse à chaque fin de poste on fait les compte et
on rempli une feuille qui comporte 3 colone 1 pour le 7 - 15 une pour le 15
-23 et une pour le 23 - 7. Mon but c de faire une feuille ou on mets tout nos
encaissement et ca remplis automatiquement la feuille de poste. mais je ve
eviter que le 7-15 touche à la feuille du 15-23 ..... etc.... et aussi vu que
tout les gars ne sont pas tres doué enregistré d'office la feuille avec la
date pour éviter des écrasements. mais ca c réglé.

pour le moment je planche sur un classeur avec 4 feuilles . une pour les 3
postes et la feuille de recap. mais on pense qu'il serait mieux de faire un
fichier pour chaque poste et une feuille de récap a part mais ca ce complique
un peu plus, en tout cas pour moi.

voila

Si tu as d'autres questions, ne te gêne pas !


Salutations!


"sennheiser" <sennheiser@discussions.microsoft.com> a écrit dans le message de news:
A2DDA063-27EF-4CD8-81CE-BB3FD51A8578@microsoft.com...
Mille fois merci !!!

je suis sur un petit truc si tu as un moment jve bien un coup de main
j'ai déja fait une grande partie des calcul et des liaisons entre mes
feuilles.
Mais aprés je bloque sur d'autre truc


Encore merci

Bonjour sennheiser,

Dans le ThisWorkbook de ton classeur modèle,

Utilise ceci :

'-----------------------------
Private Sub Workbook_Open()
Application.ActiveWindow.Caption = "test " & Format(Date, "dd-MM-YY")
End Sub
'-----------------------------

'Ceci aussi dans le ThisWorkbook de ton classeur. Le classeur aura vraiment un
vrai nom seulement lorsqu'il aura été enregistré. Ce qui suit force une boîte
d'enregistrement du fichier au nom que tu désires lors du premier enregistrement
seulement.
'-----------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = True Then
Application.GetSaveAsFilename "test " & Format(Date, "dd-MM-YY")
Cancel = True
End If

End Sub
'-----------------------


Salutations!



"sennheiser" <sennheiser@discussions.microsoft.com> a écrit dans le message de news:
05B144B9-ADD3-4071-AF77-EAA882D77797@microsoft.com...
Bonjour
J'aimerais ouvrir à partir d'un modele (TEST) par exemple, un nouveau
classeur qui porterais non pas le nom TEST1 mais TEST (la date du jour) .

Est ce possible ????

Merci beaucoup d'avance

Pour exécuter une macro dans un modèle seulement à la création d'un nouveau
fichier basé sur ce modèle :

Private Sub Workbook_Open()
If ThisWorkbook.Path = "" Then
'ta macro
End If
End Sub

(dans le module ThisWorkbook du modèle)

----------
Ange Ounis
----------

Ok pas de soucis pour le PS dsl

OK d'ailleur ca m'arrange qu'on ne puisse pas enregistré deux fois le meme
fichier sous le meme nom !! Par contre je ve pas que le mec puisse changer
le nom ce sont vraiment des bras cassés je ve que ca ce fasse directement.

cependant je me suis apperçu de quelquechose, quand j'ouvre un de mes
fichiers enregistré il exécute la macro :( alors que j'aimerais quelle
s'exécute uniquement quand on fait un nouvo fichier a partir du model.

Merci beaucoup

Bonsoir sennheiser,

Quand tu ouvres ton modèle pour la première fois, cette procédure
affiche dans la barre de titre, le nouveau nom que tu lui as donné.

Cependant, l'usager peut toujours au moment de l'enregistrement
choisir un autre nom....

Et attention, tu ne peux pas enregistrer 2 fichiers sous le même nom,
si tu ajoutes à la ligne de code les heures, minutes, secondes, ça va
résoudre le problème... comme ceci :

'-----------------------------
Private Sub Workbook_Open()
Application.ActiveWindow.Caption = "test " & Format(Date, "dd-MM-YY HH-MM-SS")
End Sub
'-----------------------------

Cet événement se déclenche seulement au moment où tu veux enregistrer ton fichier
pour la première fois. et les 2 macros doivent être placées dans le ThisWorkbook
de ton classeur.
'-----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = True Then
Application.GetSaveAsFilename "test " & Format(Date, "dd-MM-YY HH-MM-SS")
Cancel = True
End If

End Sub
'-----------------------------

P.S. Ma participation se limite mes interventions sur ce forum et à moins de solliciter le fichier
d'un demandeur pour un problème particulier via ce médium ...je ne suis pas disponible
à l'extérieur de ce forum pour des échanges.



Salutations!


"sennheiser" <sennheiser@discussions.microsoft.com> a écrit dans le message de news:
FCE49AB5-EBC6-408B-87B3-8C2F69329C50@microsoft.com...
Bon finalement j'ai fait un petit mélange mais si le fichier existe déja j'ai
un méssage de débogage du VBA on peut arranger ca ??

Private Sub Workbook_Open()
nf = "Feuille de Poste du " & Format(Date, "dd MMMM YYYY")
MsgBox nf
ActiveWorkbook.SaveAs Filename:=nf

End Sub

Merci

Bonjour sennheiser,

Dans le ThisWorkbook de ton classeur modèle,

Utilise ceci :

'-----------------------------
Private Sub Workbook_Open()
Application.ActiveWindow.Caption = "test " & Format(Date, "dd-MM-YY")
End Sub
'-----------------------------

'Ceci aussi dans le ThisWorkbook de ton classeur. Le classeur aura vraiment un
vrai nom seulement lorsqu'il aura été enregistré. Ce qui suit force une boîte
d'enregistrement du fichier au nom que tu désires lors du premier enregistrement
seulement.
'-----------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = True Then
Application.GetSaveAsFilename "test " & Format(Date, "dd-MM-YY")
Cancel = True
End If

End Sub
'-----------------------


Salutations!



"sennheiser" <sennheiser@discussions.microsoft.com> a écrit dans le message de news:
05B144B9-ADD3-4071-AF77-EAA882D77797@microsoft.com...
Bonjour
J'aimerais ouvrir à partir d'un modele (TEST) par exemple, un nouveau
classeur qui porterais non pas le nom TEST1 mais TEST (la date du jour) .

Est ce possible ????

Merci beaucoup d'avance

je suis un peu novice

j'arrive pas à insérrer la macro dedans

Pour exécuter une macro dans un modèle seulement à la création d'un nouveau
fichier basé sur ce modèle :

Private Sub Workbook_Open()
If ThisWorkbook.Path = "" Then
'ta macro
End If
End Sub

(dans le module ThisWorkbook du modèle)

----------
Ange Ounis
----------

Ok pas de soucis pour le PS dsl

OK d'ailleur ca m'arrange qu'on ne puisse pas enregistré deux fois le meme
fichier sous le meme nom !! Par contre je ve pas que le mec puisse changer
le nom ce sont vraiment des bras cassés je ve que ca ce fasse directement.

cependant je me suis apperçu de quelquechose, quand j'ouvre un de mes
fichiers enregistré il exécute la macro :( alors que j'aimerais quelle
s'exécute uniquement quand on fait un nouvo fichier a partir du model.

Merci beaucoup

Bonsoir sennheiser,

Quand tu ouvres ton modèle pour la première fois, cette procédure
affiche dans la barre de titre, le nouveau nom que tu lui as donné.

Cependant, l'usager peut toujours au moment de l'enregistrement
choisir un autre nom....

Et attention, tu ne peux pas enregistrer 2 fichiers sous le même nom,
si tu ajoutes à la ligne de code les heures, minutes, secondes, ça va
résoudre le problème... comme ceci :

'-----------------------------
Private Sub Workbook_Open()
Application.ActiveWindow.Caption = "test " & Format(Date, "dd-MM-YY HH-MM-SS")
End Sub
'-----------------------------

Cet événement se déclenche seulement au moment où tu veux enregistrer ton fichier
pour la première fois. et les 2 macros doivent être placées dans le ThisWorkbook
de ton classeur.
'-----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = True Then
Application.GetSaveAsFilename "test " & Format(Date, "dd-MM-YY HH-MM-SS")
Cancel = True
End If

End Sub
'-----------------------------

P.S. Ma participation se limite mes interventions sur ce forum et à moins de solliciter le fichier
d'un demandeur pour un problème particulier via ce médium ...je ne suis pas disponible
à l'extérieur de ce forum pour des échanges.



Salutations!


"sennheiser" <sennheiser@discussions.microsoft.com> a écrit dans le message de news:
FCE49AB5-EBC6-408B-87B3-8C2F69329C50@microsoft.com...
Bon finalement j'ai fait un petit mélange mais si le fichier existe déja j'ai
un méssage de débogage du VBA on peut arranger ca ??

Private Sub Workbook_Open()
nf = "Feuille de Poste du " & Format(Date, "dd MMMM YYYY")
MsgBox nf
ActiveWorkbook.SaveAs Filename:=nf

End Sub

Merci

Bonjour sennheiser,

Dans le ThisWorkbook de ton classeur modèle,

Utilise ceci :

'-----------------------------
Private Sub Workbook_Open()
Application.ActiveWindow.Caption = "test " & Format(Date, "dd-MM-YY")
End Sub
'-----------------------------

'Ceci aussi dans le ThisWorkbook de ton classeur. Le classeur aura vraiment un
vrai nom seulement lorsqu'il aura été enregistré. Ce qui suit force une boîte
d'enregistrement du fichier au nom que tu désires lors du premier enregistrement
seulement.
'-----------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = True Then
Application.GetSaveAsFilename "test " & Format(Date, "dd-MM-YY")
Cancel = True
End If

End Sub
'-----------------------


Salutations!



"sennheiser" <sennheiser@discussions.microsoft.com> a écrit dans le message de news:
05B144B9-ADD3-4071-AF77-EAA882D77797@microsoft.com...
Bonjour
J'aimerais ouvrir à partir d'un modele (TEST) par exemple, un nouveau
classeur qui porterais non pas le nom TEST1 mais TEST (la date du jour) .

Est ce possible ????

Merci beaucoup d'avance

Et c'est quoi, la macro à insérer ?

----------
Ange Ounis
----------

je suis un peu novice

j'arrive pas à insérrer la macro dedans

Pour exécuter une macro dans un modèle seulement à la création d'un nouveau
fichier basé sur ce modèle :

Private Sub Workbook_Open()
If ThisWorkbook.Path = "" Then
'ta macro
End If
End Sub

(dans le module ThisWorkbook du modèle)

----------
Ange Ounis
----------

Ok pas de soucis pour le PS dsl

OK d'ailleur ca m'arrange qu'on ne puisse pas enregistré deux fois le meme
fichier sous le meme nom !! Par contre je ve pas que le mec puisse changer
le nom ce sont vraiment des bras cassés je ve que ca ce fasse directement.

cependant je me suis apperçu de quelquechose, quand j'ouvre un de mes
fichiers enregistré il exécute la macro :( alors que j'aimerais quelle
s'exécute uniquement quand on fait un nouvo fichier a partir du model.

Merci beaucoup

Bonsoir sennheiser,

Quand tu ouvres ton modèle pour la première fois, cette procédure
affiche dans la barre de titre, le nouveau nom que tu lui as donné.

Cependant, l'usager peut toujours au moment de l'enregistrement
choisir un autre nom....

Et attention, tu ne peux pas enregistrer 2 fichiers sous le même nom,
si tu ajoutes à la ligne de code les heures, minutes, secondes, ça va
résoudre le problème... comme ceci :

'-----------------------------
Private Sub Workbook_Open()
Application.ActiveWindow.Caption = "test " & Format(Date, "dd-MM-YY HH-MM-SS")
End Sub
'-----------------------------

Cet événement se déclenche seulement au moment où tu veux enregistrer ton fichier
pour la première fois. et les 2 macros doivent être placées dans le ThisWorkbook
de ton classeur.
'-----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = True Then
Application.GetSaveAsFilename "test " & Format(Date, "dd-MM-YY HH-MM-SS")
Cancel = True
End If

End Sub
'-----------------------------

P.S. Ma participation se limite mes interventions sur ce forum et à moins de solliciter le fichier
d'un demandeur pour un problème particulier via ce médium ...je ne suis pas disponible
à l'extérieur de ce forum pour des échanges.



Salutations!


"sennheiser" <sennheiser@discussions.microsoft.com> a écrit dans le message de news:
FCE49AB5-EBC6-408B-87B3-8C2F69329C50@microsoft.com...
Bon finalement j'ai fait un petit mélange mais si le fichier existe déja j'ai
un méssage de débogage du VBA on peut arranger ca ??

Private Sub Workbook_Open()
nf = "Feuille de Poste du " & Format(Date, "dd MMMM YYYY")
MsgBox nf
ActiveWorkbook.SaveAs Filename:=nf

End Sub

Merci

Bonjour sennheiser,

Dans le ThisWorkbook de ton classeur modèle,

Utilise ceci :

'-----------------------------
Private Sub Workbook_Open()
Application.ActiveWindow.Caption = "test " & Format(Date, "dd-MM-YY")
End Sub
'-----------------------------

'Ceci aussi dans le ThisWorkbook de ton classeur. Le classeur aura vraiment un
vrai nom seulement lorsqu'il aura été enregistré. Ce qui suit force une boîte
d'enregistrement du fichier au nom que tu désires lors du premier enregistrement
seulement.
'-----------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = True Then
Application.GetSaveAsFilename "test " & Format(Date, "dd-MM-YY")
Cancel = True
End If

End Sub
'-----------------------


Salutations!



"sennheiser" <sennheiser@discussions.microsoft.com> a écrit dans le message de news:
05B144B9-ADD3-4071-AF77-EAA882D77797@microsoft.com...
Bonjour
J'aimerais ouvrir à partir d'un modele (TEST) par exemple, un nouveau
classeur qui porterais non pas le nom TEST1 mais TEST (la date du jour) .

Est ce possible ????

Merci beaucoup d'avance

Excuse moi j'ai parler avant d'agir !
j'ai réfléchiss un peu et j'ai trouver !! MERCI mille fois

Voila à quoi ressemble ma macro maintenant

Private Sub Workbook_Open()
If ThisWorkbook.Path = "" Then
nf = "Feuille de Poste du " & Format(Date, "dd MMMM YYYY")
MsgBox nf
ActiveWorkbook.SaveAs Filename:=nf
Range("'Feuille DSR1'!I5") = Now()
End If
End Sub

est ce que je peu rajouter la dedans un tout petit truc pour forcer le
répertoire de sauvegarde ?

Merci

Et c'est quoi, la macro à insérer ?

----------
Ange Ounis
----------

je suis un peu novice

j'arrive pas à insérrer la macro dedans

Pour exécuter une macro dans un modèle seulement à la création d'un nouveau
fichier basé sur ce modèle :

Private Sub Workbook_Open()
If ThisWorkbook.Path = "" Then
'ta macro
End If
End Sub

(dans le module ThisWorkbook du modèle)

----------
Ange Ounis
----------

Ok pas de soucis pour le PS dsl

OK d'ailleur ca m'arrange qu'on ne puisse pas enregistré deux fois le meme
fichier sous le meme nom !! Par contre je ve pas que le mec puisse changer
le nom ce sont vraiment des bras cassés je ve que ca ce fasse directement.

cependant je me suis apperçu de quelquechose, quand j'ouvre un de mes
fichiers enregistré il exécute la macro :( alors que j'aimerais quelle
s'exécute uniquement quand on fait un nouvo fichier a partir du model.

Merci beaucoup

Bonsoir sennheiser,

Quand tu ouvres ton modèle pour la première fois, cette procédure
affiche dans la barre de titre, le nouveau nom que tu lui as donné.

Cependant, l'usager peut toujours au moment de l'enregistrement
choisir un autre nom....

Et attention, tu ne peux pas enregistrer 2 fichiers sous le même nom,
si tu ajoutes à la ligne de code les heures, minutes, secondes, ça va
résoudre le problème... comme ceci :

'-----------------------------
Private Sub Workbook_Open()
Application.ActiveWindow.Caption = "test " & Format(Date, "dd-MM-YY HH-MM-SS")
End Sub
'-----------------------------

Cet événement se déclenche seulement au moment où tu veux enregistrer ton fichier
pour la première fois. et les 2 macros doivent être placées dans le ThisWorkbook
de ton classeur.
'-----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = True Then
Application.GetSaveAsFilename "test " & Format(Date, "dd-MM-YY HH-MM-SS")
Cancel = True
End If

End Sub
'-----------------------------

P.S. Ma participation se limite mes interventions sur ce forum et à moins de solliciter le fichier
d'un demandeur pour un problème particulier via ce médium ...je ne suis pas disponible
à l'extérieur de ce forum pour des échanges.



Salutations!


"sennheiser" <sennheiser@discussions.microsoft.com> a écrit dans le message de news:
FCE49AB5-EBC6-408B-87B3-8C2F69329C50@microsoft.com...
Bon finalement j'ai fait un petit mélange mais si le fichier existe déja j'ai
un méssage de débogage du VBA on peut arranger ca ??

Private Sub Workbook_Open()
nf = "Feuille de Poste du " & Format(Date, "dd MMMM YYYY")
MsgBox nf
ActiveWorkbook.SaveAs Filename:=nf

End Sub

Merci

Bonjour sennheiser,

Dans le ThisWorkbook de ton classeur modèle,

Utilise ceci :

'-----------------------------
Private Sub Workbook_Open()
Application.ActiveWindow.Caption = "test " & Format(Date, "dd-MM-YY")
End Sub
'-----------------------------

'Ceci aussi dans le ThisWorkbook de ton classeur. Le classeur aura vraiment un
vrai nom seulement lorsqu'il aura été enregistré. Ce qui suit force une boîte
d'enregistrement du fichier au nom que tu désires lors du premier enregistrement
seulement.
'-----------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = True Then
Application.GetSaveAsFilename "test " & Format(Date, "dd-MM-YY")
Cancel = True
End If

End Sub
'-----------------------


Salutations!



"sennheiser" <sennheiser@discussions.microsoft.com> a écrit dans le message de news:
05B144B9-ADD3-4071-AF77-EAA882D77797@microsoft.com...
Bonjour
J'aimerais ouvrir à partir d'un modele (TEST) par exemple, un nouveau
classeur qui porterais non pas le nom TEST1 mais TEST (la date du jour) .

Est ce possible ????

Merci beaucoup d'avance

Bonjour Sennheiser,

J'ai ajouté une variable "Chemin" que tu dois renseigner
adéquatement pour signifier le chemin où tu désires
enregistrer ton fichier. N'oublie pas le "backlash"

'-------------------------
Private Sub Workbook_Open()
Dim Nf As String, Chemin As String
If ThisWorkbook.Path = "" Then
Chemin = "C:Excel"
If Dir(Chemin, vbDirectory) <> "" Then
Nf = "Feuille de Poste du " & Format(Date, "dd MMMM YYYY")
MsgBox Nf
ActiveWorkbook.SaveAs Filename:=Chemin & Nf
Range("'Feuille DSR1'!I5") = Now()
Else
MsgBox "Ce répertoire : " & Chemin & " n'existe pas."
End If
End If
End Sub
'-------------------------


Salutations!




"sennheiser" <sennheiser@discussions.microsoft.com> a écrit dans le message de news:
A9B96350-A881-4397-A221-DADE0D269B57@microsoft.com...
Excuse moi j'ai parler avant d'agir !
j'ai réfléchiss un peu et j'ai trouver !! MERCI mille fois

Voila à quoi ressemble ma macro maintenant

Private Sub Workbook_Open()
If ThisWorkbook.Path = "" Then
nf = "Feuille de Poste du " & Format(Date, "dd MMMM YYYY")
MsgBox nf
ActiveWorkbook.SaveAs Filename:=nf
Range("'Feuille DSR1'!I5") = Now()
End If
End Sub

est ce que je peu rajouter la dedans un tout petit truc pour forcer le
répertoire de sauvegarde ?

Merci

Et c'est quoi, la macro à insérer ?

----------
Ange Ounis
----------

je suis un peu novice

j'arrive pas à insérrer la macro dedans

Pour exécuter une macro dans un modèle seulement à la création d'un nouveau
fichier basé sur ce modèle :

Private Sub Workbook_Open()
If ThisWorkbook.Path = "" Then
'ta macro
End If
End Sub

(dans le module ThisWorkbook du modèle)

----------
Ange Ounis
----------

Ok pas de soucis pour le PS dsl

OK d'ailleur ca m'arrange qu'on ne puisse pas enregistré deux fois le meme
fichier sous le meme nom !! Par contre je ve pas que le mec puisse changer
le nom ce sont vraiment des bras cassés je ve que ca ce fasse directement.

cependant je me suis apperçu de quelquechose, quand j'ouvre un de mes
fichiers enregistré il exécute la macro :( alors que j'aimerais quelle
s'exécute uniquement quand on fait un nouvo fichier a partir du model.

Merci beaucoup

Bonsoir sennheiser,

Quand tu ouvres ton modèle pour la première fois, cette procédure
affiche dans la barre de titre, le nouveau nom que tu lui as donné.

Cependant, l'usager peut toujours au moment de l'enregistrement
choisir un autre nom....

Et attention, tu ne peux pas enregistrer 2 fichiers sous le même nom,
si tu ajoutes à la ligne de code les heures, minutes, secondes, ça va
résoudre le problème... comme ceci :

'-----------------------------
Private Sub Workbook_Open()
Application.ActiveWindow.Caption = "test " & Format(Date, "dd-MM-YY HH-MM-SS")
End Sub
'-----------------------------

Cet événement se déclenche seulement au moment où tu veux enregistrer ton fichier
pour la première fois. et les 2 macros doivent être placées dans le ThisWorkbook
de ton classeur.
'-----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = True Then
Application.GetSaveAsFilename "test " & Format(Date, "dd-MM-YY HH-MM-SS")
Cancel = True
End If

End Sub
'-----------------------------

P.S. Ma participation se limite mes interventions sur ce forum et à moins de solliciter le fichier
d'un demandeur pour un problème particulier via ce médium ...je ne suis pas disponible
à l'extérieur de ce forum pour des échanges.



Salutations!


"sennheiser" <sennheiser@discussions.microsoft.com> a écrit dans le message de news:
FCE49AB5-EBC6-408B-87B3-8C2F69329C50@microsoft.com...
Bon finalement j'ai fait un petit mélange mais si le fichier existe déja j'ai
un méssage de débogage du VBA on peut arranger ca ??

Private Sub Workbook_Open()
nf = "Feuille de Poste du " & Format(Date, "dd MMMM YYYY")
MsgBox nf
ActiveWorkbook.SaveAs Filename:=nf

End Sub

Merci

Bonjour sennheiser,

Dans le ThisWorkbook de ton classeur modèle,

Utilise ceci :

'-----------------------------
Private Sub Workbook_Open()
Application.ActiveWindow.Caption = "test " & Format(Date, "dd-MM-YY")
End Sub
'-----------------------------

'Ceci aussi dans le ThisWorkbook de ton classeur. Le classeur aura vraiment un
vrai nom seulement lorsqu'il aura été enregistré. Ce qui suit force une boîte
d'enregistrement du fichier au nom que tu désires lors du premier enregistrement
seulement.
'-----------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = True Then
Application.GetSaveAsFilename "test " & Format(Date, "dd-MM-YY")
Cancel = True
End If

End Sub
'-----------------------


Salutations!



"sennheiser" <sennheiser@discussions.microsoft.com> a écrit dans le message de news:
05B144B9-ADD3-4071-AF77-EAA882D77797@microsoft.com...
Bonjour
J'aimerais ouvrir à partir d'un modele (TEST) par exemple, un nouveau
classeur qui porterais non pas le nom TEST1 mais TEST (la date du jour) .

Est ce possible ????

Merci beaucoup d'avance