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 remplacer enregistrer par une macro

remplacer enregistrer par une macro

5 réponses
Avatar
marc.dufresne
bonjour
est il possible de substituer une macro à la commande enregistrer du menu
fichier

merci
Signaler un problème avec ce contenu

5 réponses

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
Philippe.R
Bonsoir
Sans trop comprendre l'interet :

sub sauve()
activeworkbook.save
end sub

enregistre le fichier en cours

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"marc.dufresne" a écrit dans le message de news:
425d8150$0$29221$
bonjour
est il possible de substituer une macro à la commande enregistrer du menu
fichier

merci




Avatar
Gaspareau
oui

"marc.dufresne" a écrit dans le
message de news:425d8150$0$29221$
bonjour
est il possible de substituer une macro à la commande enregistrer du menu
fichier

merci




Avatar
MichDenis
Bonjour Marc,

Exécute la macro ChangerEnregistrer et va cliquer sur la commande Enregistrer du menu Fichier. Tu dois copier les 3 macros dans un
module standard.

'----------------------
Sub ChangerEnregistrer()

For Each C In Application.CommandBars.FindControls(ID:=3)
C.OnAction = "Denis"
Next

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

Sub Denis()
MsgBox "Bonjour"
End Sub


'----------------------
Sub RevenirNormalEnregistrer()

For Each C In Application.CommandBars.FindControls(ID:=3)
C.OnAction = ""
Next

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


Salutations!



"marc.dufresne" a écrit dans le message de news: 425d8150$0$29221$
bonjour
est il possible de substituer une macro à la commande enregistrer du menu
fichier

merci
Avatar
marc.dufresne
merci
pour cette réponsejudicieuse
pour les autres une petite explication je veux enregistrer le fichier avec
un nouveau nom quelque soit la manière d'enregistrer
merci à tous


"MichDenis" a écrit dans le message de news:
##
Bonjour Marc,

Exécute la macro ChangerEnregistrer et va cliquer sur la commande
Enregistrer du menu Fichier. Tu dois copier les 3 macros dans un

module standard.

'----------------------
Sub ChangerEnregistrer()

For Each C In Application.CommandBars.FindControls(ID:=3)
C.OnAction = "Denis"
Next

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

Sub Denis()
MsgBox "Bonjour"
End Sub


'----------------------
Sub RevenirNormalEnregistrer()

For Each C In Application.CommandBars.FindControls(ID:=3)
C.OnAction = ""
Next

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


Salutations!



"marc.dufresne" a écrit dans le
message de news: 425d8150$0$29221$

bonjour
est il possible de substituer une macro à la commande enregistrer du menu
fichier

merci





Avatar
MichDenis
Bonsoir Marc,

| je veux enregistrer le fichier avec
| un nouveau nom quelque soit la manière d'enregistrer

Si c'est une question, je n'ai pas compris !


Salutations!



"MichDenis" a écrit dans le message de news:
##
Bonjour Marc,

Exécute la macro ChangerEnregistrer et va cliquer sur la commande
Enregistrer du menu Fichier. Tu dois copier les 3 macros dans un

module standard.

'----------------------
Sub ChangerEnregistrer()

For Each C In Application.CommandBars.FindControls(ID:=3)
C.OnAction = "Denis"
Next

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

Sub Denis()
MsgBox "Bonjour"
End Sub


'----------------------
Sub RevenirNormalEnregistrer()

For Each C In Application.CommandBars.FindControls(ID:=3)
C.OnAction = ""
Next

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


Salutations!



"marc.dufresne" a écrit dans le
message de news: 425d8150$0$29221$

bonjour
est il possible de substituer une macro à la commande enregistrer du menu
fichier

merci