j'en avait pourtant déjà fait des macros qui ont toujours fonctionnées,
et là j'en fait une toute simple, "enregistrer sous", je crée un bouton que
j'affecte à la macro que je viens de créer et quand je clique dessus
rien ne se passe ???
je vais voir le contenu de la macro et il n'y a rien dedans ???
Sub enregistre_sous()
'
' enregistre_sous Macro
' Macro enregistrée le 21/08/2005 par BG
'
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
LSteph
Bonsoir, si tu t'es servi de l'enregistreur pour réellement ne rien enregistrer sous mais juste afficher la fenêtre et annuler c'est normal!
Pour enregistrer sous le classeur actif écris le code, sers toi de
Sub enregistrersous() Activeworkbook.SaveAs Filename:="nomdefichier" end sub
il y a exactement l'exemple que tu cherches dans l'aide de SaveAs pour laisser la main à l'utilisateur pour choisir.
mais en fait Shift+F12 t'éviterait d'écrire une macro
lSteph
"Bégé" a écrit dans le message de news: %
Salut à tous,
j'en avait pourtant déjà fait des macros qui ont toujours fonctionnées, et là j'en fait une toute simple, "enregistrer sous", je crée un bouton que j'affecte à la macro que je viens de créer et quand je clique dessus rien ne se passe ???
je vais voir le contenu de la macro et il n'y a rien dedans ??? Sub enregistre_sous() ' ' enregistre_sous Macro ' Macro enregistrée le 21/08/2005 par BG '
' End Sub
merci de vos conseils
j'utilise Excel 2002 SP 2
Bonsoir,
si tu t'es servi de l'enregistreur pour réellement ne rien enregistrer sous
mais juste afficher la fenêtre et annuler c'est normal!
Pour enregistrer sous le classeur actif écris le code, sers toi de
Sub enregistrersous()
Activeworkbook.SaveAs Filename:="nomdefichier"
end sub
il y a exactement l'exemple que tu cherches dans l'aide de SaveAs
pour laisser la main à l'utilisateur pour choisir.
mais en fait Shift+F12 t'éviterait d'écrire une macro
lSteph
"Bégé" <bejean_sans_spam@wanadoo.fr> a écrit dans le message de news:
%23CKrXHnpFHA.3960@TK2MSFTNGP12.phx.gbl...
Salut à tous,
j'en avait pourtant déjà fait des macros qui ont toujours fonctionnées,
et là j'en fait une toute simple, "enregistrer sous", je crée un bouton
que
j'affecte à la macro que je viens de créer et quand je clique dessus
rien ne se passe ???
je vais voir le contenu de la macro et il n'y a rien dedans ???
Sub enregistre_sous()
'
' enregistre_sous Macro
' Macro enregistrée le 21/08/2005 par BG
'
Bonsoir, si tu t'es servi de l'enregistreur pour réellement ne rien enregistrer sous mais juste afficher la fenêtre et annuler c'est normal!
Pour enregistrer sous le classeur actif écris le code, sers toi de
Sub enregistrersous() Activeworkbook.SaveAs Filename:="nomdefichier" end sub
il y a exactement l'exemple que tu cherches dans l'aide de SaveAs pour laisser la main à l'utilisateur pour choisir.
mais en fait Shift+F12 t'éviterait d'écrire une macro
lSteph
"Bégé" a écrit dans le message de news: %
Salut à tous,
j'en avait pourtant déjà fait des macros qui ont toujours fonctionnées, et là j'en fait une toute simple, "enregistrer sous", je crée un bouton que j'affecte à la macro que je viens de créer et quand je clique dessus rien ne se passe ???
je vais voir le contenu de la macro et il n'y a rien dedans ??? Sub enregistre_sous() ' ' enregistre_sous Macro ' Macro enregistrée le 21/08/2005 par BG '
' End Sub
merci de vos conseils
j'utilise Excel 2002 SP 2
LSteph
...d'ailleurs c'est f12 tout court.
"Bégé" a écrit dans le message de news: %
Salut à tous,
j'en avait pourtant déjà fait des macros qui ont toujours fonctionnées, et là j'en fait une toute simple, "enregistrer sous", je crée un bouton que j'affecte à la macro que je viens de créer et quand je clique dessus rien ne se passe ???
je vais voir le contenu de la macro et il n'y a rien dedans ??? Sub enregistre_sous() ' ' enregistre_sous Macro ' Macro enregistrée le 21/08/2005 par BG '
' End Sub
merci de vos conseils
j'utilise Excel 2002 SP 2
...d'ailleurs c'est f12 tout court.
"Bégé" <bejean_sans_spam@wanadoo.fr> a écrit dans le message de news:
%23CKrXHnpFHA.3960@TK2MSFTNGP12.phx.gbl...
Salut à tous,
j'en avait pourtant déjà fait des macros qui ont toujours fonctionnées,
et là j'en fait une toute simple, "enregistrer sous", je crée un bouton
que
j'affecte à la macro que je viens de créer et quand je clique dessus
rien ne se passe ???
je vais voir le contenu de la macro et il n'y a rien dedans ???
Sub enregistre_sous()
'
' enregistre_sous Macro
' Macro enregistrée le 21/08/2005 par BG
'
j'en avait pourtant déjà fait des macros qui ont toujours fonctionnées, et là j'en fait une toute simple, "enregistrer sous", je crée un bouton que j'affecte à la macro que je viens de créer et quand je clique dessus rien ne se passe ???
je vais voir le contenu de la macro et il n'y a rien dedans ??? Sub enregistre_sous() ' ' enregistre_sous Macro ' Macro enregistrée le 21/08/2005 par BG '
' End Sub
merci de vos conseils
j'utilise Excel 2002 SP 2
Bégé
Bonsoir, si tu t'es servi de l'enregistreur pour réellement ne rien enregistrer sous mais juste afficher la fenêtre et annuler c'est normal!
Pour enregistrer sous le classeur actif écris le code, sers toi de
Sub enregistrersous() Activeworkbook.SaveAs Filename:="nomdefichier" end sub ah oui mais là on ne peut pas donner de nom de fichier ?
il y a exactement l'exemple que tu cherches dans l'aide de SaveAs pour laisser la main à l'utilisateur pour choisir.
mais en fait Shift+F12 t'éviterait d'écrire une macro pour mes feuilles je fais simplement F12
mais c'est pour quelqu'un qui n'y connaît strictement rien, et comme la manip ne se fera qu'une fois par mois, j'ai peur que d'ici là elle ne se souvienne pas du F12, donc je fais un bouton avec une macro pour simplifier
Bonsoir,
si tu t'es servi de l'enregistreur pour réellement ne rien enregistrer
sous
mais juste afficher la fenêtre et annuler c'est normal!
Pour enregistrer sous le classeur actif écris le code, sers toi de
Sub enregistrersous()
Activeworkbook.SaveAs Filename:="nomdefichier"
end sub
ah oui mais là on ne peut pas donner de nom de fichier ?
il y a exactement l'exemple que tu cherches dans l'aide de SaveAs
pour laisser la main à l'utilisateur pour choisir.
mais en fait Shift+F12 t'éviterait d'écrire une macro
pour mes feuilles je fais simplement F12
mais c'est pour quelqu'un qui n'y connaît strictement rien, et comme
la manip ne se fera qu'une fois par mois, j'ai peur que d'ici là elle ne se
souvienne pas du F12, donc je fais un bouton avec une macro
pour simplifier
Bonsoir, si tu t'es servi de l'enregistreur pour réellement ne rien enregistrer sous mais juste afficher la fenêtre et annuler c'est normal!
Pour enregistrer sous le classeur actif écris le code, sers toi de
Sub enregistrersous() Activeworkbook.SaveAs Filename:="nomdefichier" end sub ah oui mais là on ne peut pas donner de nom de fichier ?
il y a exactement l'exemple que tu cherches dans l'aide de SaveAs pour laisser la main à l'utilisateur pour choisir.
mais en fait Shift+F12 t'éviterait d'écrire une macro pour mes feuilles je fais simplement F12
mais c'est pour quelqu'un qui n'y connaît strictement rien, et comme la manip ne se fera qu'une fois par mois, j'ai peur que d'ici là elle ne se souvienne pas du F12, donc je fais un bouton avec une macro pour simplifier
LSteph
Bonsoir, alors lis ce que je t'ai écrit et tu vas y arriver!
lSteph
"Bégé" a écrit dans le message de news:
Bonsoir, si tu t'es servi de l'enregistreur pour réellement ne rien enregistrer sous mais juste afficher la fenêtre et annuler c'est normal!
Pour enregistrer sous le classeur actif écris le code, sers toi de
Sub enregistrersous() Activeworkbook.SaveAs Filename:="nomdefichier" end sub ah oui mais là on ne peut pas donner de nom de fichier ?
il y a exactement l'exemple que tu cherches dans l'aide de SaveAs pour laisser la main à l'utilisateur pour choisir.
mais en fait Shift+F12 t'éviterait d'écrire une macro pour mes feuilles je fais simplement F12
mais c'est pour quelqu'un qui n'y connaît strictement rien, et comme la manip ne se fera qu'une fois par mois, j'ai peur que d'ici là elle ne se souvienne pas du F12, donc je fais un bouton avec une macro pour simplifier
Bonsoir,
alors lis ce que je t'ai écrit et tu vas y arriver!
lSteph
"Bégé" <bejean_sans_spam@wanadoo.fr> a écrit dans le message de news:
uJlIrgypFHA.620@TK2MSFTNGP15.phx.gbl...
Bonsoir,
si tu t'es servi de l'enregistreur pour réellement ne rien enregistrer
sous
mais juste afficher la fenêtre et annuler c'est normal!
Pour enregistrer sous le classeur actif écris le code, sers toi de
Sub enregistrersous()
Activeworkbook.SaveAs Filename:="nomdefichier"
end sub
ah oui mais là on ne peut pas donner de nom de fichier ?
il y a exactement l'exemple que tu cherches dans l'aide de SaveAs
pour laisser la main à l'utilisateur pour choisir.
mais en fait Shift+F12 t'éviterait d'écrire une macro
pour mes feuilles je fais simplement F12
mais c'est pour quelqu'un qui n'y connaît strictement rien, et comme
la manip ne se fera qu'une fois par mois, j'ai peur que d'ici là elle ne
se
souvienne pas du F12, donc je fais un bouton avec une macro
pour simplifier
Bonsoir, alors lis ce que je t'ai écrit et tu vas y arriver!
lSteph
"Bégé" a écrit dans le message de news:
Bonsoir, si tu t'es servi de l'enregistreur pour réellement ne rien enregistrer sous mais juste afficher la fenêtre et annuler c'est normal!
Pour enregistrer sous le classeur actif écris le code, sers toi de
Sub enregistrersous() Activeworkbook.SaveAs Filename:="nomdefichier" end sub ah oui mais là on ne peut pas donner de nom de fichier ?
il y a exactement l'exemple que tu cherches dans l'aide de SaveAs pour laisser la main à l'utilisateur pour choisir.
mais en fait Shift+F12 t'éviterait d'écrire une macro pour mes feuilles je fais simplement F12
mais c'est pour quelqu'un qui n'y connaît strictement rien, et comme la manip ne se fera qu'une fois par mois, j'ai peur que d'ici là elle ne se souvienne pas du F12, donc je fais un bouton avec une macro pour simplifier
Bégé
alors lis ce que je t'ai écrit et tu vas y arriver! mais c'est bien ce que j'ai fait,
et il enregistre sous "nomdefichier" et je répète que ce n'est pas ce que je veut puisque le nom du fichier on doit pouvoir le choisir au moment d'enregistrer, en résumé, je voudrais une macro qui me fasse juste "enregistrer sous" et on choisit le nom qu'on veut, en fait exactement comme le ferait la touche F12
alors lis ce que je t'ai écrit et tu vas y arriver!
mais c'est bien ce que j'ai fait,
et il enregistre sous "nomdefichier"
et je répète que ce n'est pas ce que je veut puisque le nom
du fichier on doit pouvoir le choisir au moment d'enregistrer,
en résumé, je voudrais une macro qui me fasse juste
"enregistrer sous" et on choisit le nom qu'on veut, en fait
exactement comme le ferait la touche F12
alors lis ce que je t'ai écrit et tu vas y arriver! mais c'est bien ce que j'ai fait,
et il enregistre sous "nomdefichier" et je répète que ce n'est pas ce que je veut puisque le nom du fichier on doit pouvoir le choisir au moment d'enregistrer, en résumé, je voudrais une macro qui me fasse juste "enregistrer sous" et on choisit le nom qu'on veut, en fait exactement comme le ferait la touche F12
michdenis
Bonjour Bégé,
'---------------------- Sub FenetreEnregistrerSous()
Application.Dialogs(xlDialogSaveAs).Show
End Sub '----------------------
Salutations!
"Bégé" a écrit dans le message de news: e%
alors lis ce que je t'ai écrit et tu vas y arriver! mais c'est bien ce que j'ai fait,
et il enregistre sous "nomdefichier" et je répète que ce n'est pas ce que je veut puisque le nom du fichier on doit pouvoir le choisir au moment d'enregistrer, en résumé, je voudrais une macro qui me fasse juste "enregistrer sous" et on choisit le nom qu'on veut, en fait exactement comme le ferait la touche F12
Bonjour Bégé,
'----------------------
Sub FenetreEnregistrerSous()
Application.Dialogs(xlDialogSaveAs).Show
End Sub
'----------------------
Salutations!
"Bégé" <bejean_sans_spam@wanadoo.fr> a écrit dans le message de news: e%23fNXo1pFHA.1136@TK2MSFTNGP12.phx.gbl...
alors lis ce que je t'ai écrit et tu vas y arriver!
mais c'est bien ce que j'ai fait,
et il enregistre sous "nomdefichier"
et je répète que ce n'est pas ce que je veut puisque le nom
du fichier on doit pouvoir le choisir au moment d'enregistrer,
en résumé, je voudrais une macro qui me fasse juste
"enregistrer sous" et on choisit le nom qu'on veut, en fait
exactement comme le ferait la touche F12
'---------------------- Sub FenetreEnregistrerSous()
Application.Dialogs(xlDialogSaveAs).Show
End Sub '----------------------
Salutations!
"Bégé" a écrit dans le message de news: e%
alors lis ce que je t'ai écrit et tu vas y arriver! mais c'est bien ce que j'ai fait,
et il enregistre sous "nomdefichier" et je répète que ce n'est pas ce que je veut puisque le nom du fichier on doit pouvoir le choisir au moment d'enregistrer, en résumé, je voudrais une macro qui me fasse juste "enregistrer sous" et on choisit le nom qu'on veut, en fait exactement comme le ferait la touche F12
LSteph
Bonsoir Bégé, C'est toi qui remplace "nom de fichier" sinon pour laisser la main à l'utilisateur As tu lu comme je te l'indique l'aide de SaveAs? fais alt+f11 C'est dans l'Aide de VBA tu clique sur ? et recherche saveas regarde l'exemple analogue Voici adapté pour activeworkbook:
'*** Sub regstsous() fName = Application.GetSaveAsFilename("tapezicilenom", _ "Excel files (*.xls),*.xls") If fName = False Then Exit Sub Else ActiveWorkbook.SaveAs Filename:=fName End If
End Sub '*** 'lSteph
"Bégé" a écrit dans le message de news: e%
alors lis ce que je t'ai écrit et tu vas y arriver! mais c'est bien ce que j'ai fait,
et il enregistre sous "nomdefichier" et je répète que ce n'est pas ce que je veut puisque le nom du fichier on doit pouvoir le choisir au moment d'enregistrer, en résumé, je voudrais une macro qui me fasse juste "enregistrer sous" et on choisit le nom qu'on veut, en fait exactement comme le ferait la touche F12
Bonsoir Bégé,
C'est toi qui remplace "nom de fichier" sinon pour laisser la main à
l'utilisateur
As tu lu comme je te l'indique l'aide de SaveAs?
fais alt+f11 C'est dans l'Aide de VBA tu clique sur ? et recherche saveas
regarde l'exemple analogue
Voici adapté pour activeworkbook:
'***
Sub regstsous()
fName = Application.GetSaveAsFilename("tapezicilenom", _
"Excel files (*.xls),*.xls")
If fName = False Then
Exit Sub
Else
ActiveWorkbook.SaveAs Filename:=fName
End If
End Sub
'***
'lSteph
"Bégé" <bejean_sans_spam@wanadoo.fr> a écrit dans le message de news:
e%23fNXo1pFHA.1136@TK2MSFTNGP12.phx.gbl...
alors lis ce que je t'ai écrit et tu vas y arriver!
mais c'est bien ce que j'ai fait,
et il enregistre sous "nomdefichier"
et je répète que ce n'est pas ce que je veut puisque le nom
du fichier on doit pouvoir le choisir au moment d'enregistrer,
en résumé, je voudrais une macro qui me fasse juste
"enregistrer sous" et on choisit le nom qu'on veut, en fait
exactement comme le ferait la touche F12
Bonsoir Bégé, C'est toi qui remplace "nom de fichier" sinon pour laisser la main à l'utilisateur As tu lu comme je te l'indique l'aide de SaveAs? fais alt+f11 C'est dans l'Aide de VBA tu clique sur ? et recherche saveas regarde l'exemple analogue Voici adapté pour activeworkbook:
'*** Sub regstsous() fName = Application.GetSaveAsFilename("tapezicilenom", _ "Excel files (*.xls),*.xls") If fName = False Then Exit Sub Else ActiveWorkbook.SaveAs Filename:=fName End If
End Sub '*** 'lSteph
"Bégé" a écrit dans le message de news: e%
alors lis ce que je t'ai écrit et tu vas y arriver! mais c'est bien ce que j'ai fait,
et il enregistre sous "nomdefichier" et je répète que ce n'est pas ce que je veut puisque le nom du fichier on doit pouvoir le choisir au moment d'enregistrer, en résumé, je voudrais une macro qui me fasse juste "enregistrer sous" et on choisit le nom qu'on veut, en fait exactement comme le ferait la touche F12
LSteph
Re, si le but est de faire court :
Sub test() Application.SendKeys "{F12}" End Sub
"Bégé" a écrit dans le message de news: e%
alors lis ce que je t'ai écrit et tu vas y arriver! mais c'est bien ce que j'ai fait,
et il enregistre sous "nomdefichier" et je répète que ce n'est pas ce que je veut puisque le nom du fichier on doit pouvoir le choisir au moment d'enregistrer, en résumé, je voudrais une macro qui me fasse juste "enregistrer sous" et on choisit le nom qu'on veut, en fait exactement comme le ferait la touche F12
Re,
si le but est de faire court :
Sub test()
Application.SendKeys "{F12}"
End Sub
"Bégé" <bejean_sans_spam@wanadoo.fr> a écrit dans le message de news:
e%23fNXo1pFHA.1136@TK2MSFTNGP12.phx.gbl...
alors lis ce que je t'ai écrit et tu vas y arriver!
mais c'est bien ce que j'ai fait,
et il enregistre sous "nomdefichier"
et je répète que ce n'est pas ce que je veut puisque le nom
du fichier on doit pouvoir le choisir au moment d'enregistrer,
en résumé, je voudrais une macro qui me fasse juste
"enregistrer sous" et on choisit le nom qu'on veut, en fait
exactement comme le ferait la touche F12
alors lis ce que je t'ai écrit et tu vas y arriver! mais c'est bien ce que j'ai fait,
et il enregistre sous "nomdefichier" et je répète que ce n'est pas ce que je veut puisque le nom du fichier on doit pouvoir le choisir au moment d'enregistrer, en résumé, je voudrais une macro qui me fasse juste "enregistrer sous" et on choisit le nom qu'on veut, en fait exactement comme le ferait la touche F12
Bégé
'---------------------- Sub FenetreEnregistrerSous()
Application.Dialogs(xlDialogSaveAs).Show
End Sub '---------------------- ça marche bien
merci
'----------------------
Sub FenetreEnregistrerSous()
