nom d'enregistrement tapant dans cellule

Bonjour,
Une macro a été développée afin que je puisse enregistrer mon classeur
suivant une donnée d'une cellule du classeur même.
La macro suivante le fait, seulement lorsque je ferme "violemment" le
document en cliquant sur "x". Si je passe par Fichier/Enregistrer sous, ça
ne marche pas il m'indique tjrs "classeur1".
La macro est la suivante :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.Dialogs(xlDialogSaveAs).Show
CStr(ThisWorkbook.ActiveSheet.Range("qualite").Value)

End Sub


Merci de votre aide. Peut-être faut-il ajouter quelque chose à la macro ou
bien peut-êre existe-t-il une autre manière d'y arriver ?!!?

Merci de votre aide.
@+
Chrislio

bonjour chrislio
il faut simplement choisir Fichier/Enregistrer (ctrl s)

chrislio avait prétendu :

Bonjour,
Une macro a été développée afin que je puisse enregistrer mon classeur
suivant une donnée d'une cellule du classeur même.
La macro suivante le fait, seulement lorsque je ferme "violemment" le
document en cliquant sur "x". Si je passe par Fichier/Enregistrer sous, ça
ne marche pas il m'indique tjrs "classeur1".
La macro est la suivante :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.Dialogs(xlDialogSaveAs).Show
CStr(ThisWorkbook.ActiveSheet.Range("qualite").Value)

End Sub


Merci de votre aide. Peut-être faut-il ajouter quelque chose à la macro ou
bien peut-êre existe-t-il une autre maniÚre d'y arriver ?!!?

Merci de votre aide.
@+
Chrislio

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com

Bonjour !
Merci mais est-ce une information à rentrer dans la macro ??
Je ne suis vraiment as une "douée" dans le langage VBA et sous Excel ?

Merci de ton retour.
Bon Dimanche !
Chrislio

bonjour chrislio
il faut simplement choisir Fichier/Enregistrer (ctrl s)

chrislio avait prétendu :

Bonjour,
Une macro a été développée afin que je puisse enregistrer mon
classeur
suivant une donnée d'une cellule du classeur même.
La macro suivante le fait, seulement lorsque je ferme "violemment" le
document en cliquant sur "x". Si je passe par Fichier/Enregistrer sous,
ça
ne marche pas il m'indique tjrs "classeur1".
La macro est la suivante :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.Dialogs(xlDialogSaveAs).Show
CStr(ThisWorkbook.ActiveSheet.Range("qualite").Value)

End Sub


Merci de votre aide. Peut-être faut-il ajouter quelque chose à la
macro ou
bien peut-êre existe-t-il une autre maniÃsre d'y arriver ?!!?

Merci de votre aide.
@+
Chrislio

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com

Bonjour
Place les mêmes lignes dans l'évènement BeforeSave
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Application.Dialogs(xlDialogSaveAs).Show _
CStr(ThisWorkbook.ActiveSheet.Range("qualite").Value)
End Sub

Cordialement
Pascal

"chrislio" <chrislio@discussions.microsoft.com> a écrit dans le message de
news: 09935FA0-5D9F-4FBA-B4BA-08166F163C70@microsoft.com...

Bonjour !
Merci mais est-ce une information à rentrer dans la macro ??
Je ne suis vraiment as une "douée" dans le langage VBA et sous Excel ?

Merci de ton retour.
Bon Dimanche !
Chrislio

bonjour chrislio
il faut simplement choisir Fichier/Enregistrer (ctrl s)

chrislio avait prétendu :

Bonjour,
Une macro a été développée afin que je puisse enregistrer mon
classeur
suivant une donnée d'une cellule du classeur même.
La macro suivante le fait, seulement lorsque je ferme "violemment" le
document en cliquant sur "x". Si je passe par Fichier/Enregistrer sous,
ça
ne marche pas il m'indique tjrs "classeur1".
La macro est la suivante :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.Dialogs(xlDialogSaveAs).Show
CStr(ThisWorkbook.ActiveSheet.Range("qualite").Value)

End Sub


Merci de votre aide. Peut-être faut-il ajouter quelque chose à la
macro ou
bien peut-êre existe-t-il une autre maniÃsre d'y arriver ?!!?

Merci de votre aide.
@+
Chrislio

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com