Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Nom d'enregistrement tapant dans cellule du fichier (macro dans ma

Nom d'enregistrement tapant dans cellule du fichier (macro dans ma

1 réponse
Avatar
chrislio
Bonjour !
Merci de votre aide pour la macro...lorsqu'elle se déclenche, le nom
d'enregistrement est bien celui qu'une des cellules du fichier contient.
Par contre mais si je fais "Annuler" et bien se réouvre une même fenêtre
d'enregistrement et on me repropose par défault le nom du classeur.

Est-ce que l'on peut agir sur ce point ?

Merci de votre aide.
L'historique de mes mails échangés se trouve ci-dessous.

@+
chrislio

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
>
>
> "motard" a écrit :
>
>> 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
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Tant qu'à faire, je te suggère de modifier plutôt comme ça :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
nomdefichier = Application.GetSaveAsFilename([qualite], , , "Nom de
Fichier")
If nomdefichier = False Then
Cancel = True
Else
Application.EnableEvents = False
ThisWorkbook.SaveAs nomdefichier: End If
Application.EnableEvents = True
End Sub
Cordialement
Pascal

"chrislio" a écrit dans le message de
news:
Bonjour !
Merci de votre aide pour la macro...lorsqu'elle se déclenche, le nom
d'enregistrement est bien celui qu'une des cellules du fichier contient.
Par contre mais si je fais "Annuler" et bien se réouvre une même fenêtre
d'enregistrement et on me repropose par défault le nom du classeur.

Est-ce que l'on peut agir sur ce point ?

Merci de votre aide.
L'historique de mes mails échangés se trouve ci-dessous.

@+
chrislio

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" a écrit dans le message de
news:
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