Bonsoir,
Pour appeler la fenêtre "Enregistrer sous" dans la feuille ThisWorkbook avec
la procédure Workbook_Open, j'ai mis:
Application.OnKey "^{s}" et il ne se passe rien pourquoi? La combinaison de
touche fait suite à une MsgBox.
Merci de vos réponses.
Cordialement
Hervé
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
RV
Re-bonsoir, Je crois que j'ai trouvé mon erreur : Application.Dialogs(xlDialogSaveAs).Show est la solution et me permet d'obtenir ce que je souhaite. Désolé du dérangement. Cordialement Hervé
"RV" a écrit dans le message de news: %
Bonsoir, Pour appeler la fenêtre "Enregistrer sous" dans la feuille ThisWorkbook avec la procédure Workbook_Open, j'ai mis: Application.OnKey "^{s}" et il ne se passe rien pourquoi? La combinaison de touche fait suite à une MsgBox. Merci de vos réponses. Cordialement Hervé
Re-bonsoir,
Je crois que j'ai trouvé mon erreur :
Application.Dialogs(xlDialogSaveAs).Show est la solution et me permet
d'obtenir ce que je souhaite.
Désolé du dérangement.
Cordialement
Hervé
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
%23S8H6vcyFHA.1856@TK2MSFTNGP12.phx.gbl...
Bonsoir,
Pour appeler la fenêtre "Enregistrer sous" dans la feuille ThisWorkbook
avec la procédure Workbook_Open, j'ai mis:
Application.OnKey "^{s}" et il ne se passe rien pourquoi? La combinaison
de touche fait suite à une MsgBox.
Merci de vos réponses.
Cordialement
Hervé
Re-bonsoir, Je crois que j'ai trouvé mon erreur : Application.Dialogs(xlDialogSaveAs).Show est la solution et me permet d'obtenir ce que je souhaite. Désolé du dérangement. Cordialement Hervé
"RV" a écrit dans le message de news: %
Bonsoir, Pour appeler la fenêtre "Enregistrer sous" dans la feuille ThisWorkbook avec la procédure Workbook_Open, j'ai mis: Application.OnKey "^{s}" et il ne se passe rien pourquoi? La combinaison de touche fait suite à une MsgBox. Merci de vos réponses. Cordialement Hervé
Jacky
Bonsoir
Bien que Application.OnKey "^{s}" enregistre aussi ,mais directement, sans passer par 'enregistrer sous'
Salutations JJ
"RV" a écrit dans le message de news:OkcLj%
Re-bonsoir, Je crois que j'ai trouvé mon erreur : Application.Dialogs(xlDialogSaveAs).Show est la solution et me permet d'obtenir ce que je souhaite. Désolé du dérangement. Cordialement Hervé
"RV" a écrit dans le message de news: %
Bonsoir, Pour appeler la fenêtre "Enregistrer sous" dans la feuille ThisWorkbook avec la procédure Workbook_Open, j'ai mis: Application.OnKey "^{s}" et il ne se passe rien pourquoi? La combinaison
de touche fait suite à une MsgBox. Merci de vos réponses. Cordialement Hervé
Bonsoir
Bien que Application.OnKey "^{s}" enregistre aussi ,mais directement, sans
passer par 'enregistrer sous'
Salutations
JJ
"RV" <dick.pitt@rv.fr> a écrit dans le message de
news:OkcLj%23cyFHA.720@TK2MSFTNGP15.phx.gbl...
Re-bonsoir,
Je crois que j'ai trouvé mon erreur :
Application.Dialogs(xlDialogSaveAs).Show est la solution et me permet
d'obtenir ce que je souhaite.
Désolé du dérangement.
Cordialement
Hervé
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
%23S8H6vcyFHA.1856@TK2MSFTNGP12.phx.gbl...
Bonsoir,
Pour appeler la fenêtre "Enregistrer sous" dans la feuille ThisWorkbook
avec la procédure Workbook_Open, j'ai mis:
Application.OnKey "^{s}" et il ne se passe rien pourquoi? La
combinaison
de touche fait suite à une MsgBox.
Merci de vos réponses.
Cordialement
Hervé
Bien que Application.OnKey "^{s}" enregistre aussi ,mais directement, sans passer par 'enregistrer sous'
Salutations JJ
"RV" a écrit dans le message de news:OkcLj%
Re-bonsoir, Je crois que j'ai trouvé mon erreur : Application.Dialogs(xlDialogSaveAs).Show est la solution et me permet d'obtenir ce que je souhaite. Désolé du dérangement. Cordialement Hervé
"RV" a écrit dans le message de news: %
Bonsoir, Pour appeler la fenêtre "Enregistrer sous" dans la feuille ThisWorkbook avec la procédure Workbook_Open, j'ai mis: Application.OnKey "^{s}" et il ne se passe rien pourquoi? La combinaison
de touche fait suite à une MsgBox. Merci de vos réponses. Cordialement Hervé
RV
Bonsoir Jacky, Merci pour cette précision Cordialement Hervé
"Jacky" a écrit dans le message de news: e$
Bonsoir
Bien que Application.OnKey "^{s}" enregistre aussi ,mais directement, sans passer par 'enregistrer sous'
Salutations JJ
"RV" a écrit dans le message de news:OkcLj%
Re-bonsoir, Je crois que j'ai trouvé mon erreur : Application.Dialogs(xlDialogSaveAs).Show est la solution et me permet d'obtenir ce que je souhaite. Désolé du dérangement. Cordialement Hervé
"RV" a écrit dans le message de news: %
Bonsoir, Pour appeler la fenêtre "Enregistrer sous" dans la feuille ThisWorkbook avec la procédure Workbook_Open, j'ai mis: Application.OnKey "^{s}" et il ne se passe rien pourquoi? La combinaison
de touche fait suite à une MsgBox. Merci de vos réponses. Cordialement Hervé
Bonsoir Jacky,
Merci pour cette précision
Cordialement
Hervé
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
e$YtVFdyFHA.3000@TK2MSFTNGP12.phx.gbl...
Bonsoir
Bien que Application.OnKey "^{s}" enregistre aussi ,mais directement, sans
passer par 'enregistrer sous'
Salutations
JJ
"RV" <dick.pitt@rv.fr> a écrit dans le message de
news:OkcLj%23cyFHA.720@TK2MSFTNGP15.phx.gbl...
Re-bonsoir,
Je crois que j'ai trouvé mon erreur :
Application.Dialogs(xlDialogSaveAs).Show est la solution et me permet
d'obtenir ce que je souhaite.
Désolé du dérangement.
Cordialement
Hervé
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
%23S8H6vcyFHA.1856@TK2MSFTNGP12.phx.gbl...
Bonsoir,
Pour appeler la fenêtre "Enregistrer sous" dans la feuille ThisWorkbook
avec la procédure Workbook_Open, j'ai mis:
Application.OnKey "^{s}" et il ne se passe rien pourquoi? La
combinaison
de touche fait suite à une MsgBox.
Merci de vos réponses.
Cordialement
Hervé
Bonsoir Jacky, Merci pour cette précision Cordialement Hervé
"Jacky" a écrit dans le message de news: e$
Bonsoir
Bien que Application.OnKey "^{s}" enregistre aussi ,mais directement, sans passer par 'enregistrer sous'
Salutations JJ
"RV" a écrit dans le message de news:OkcLj%
Re-bonsoir, Je crois que j'ai trouvé mon erreur : Application.Dialogs(xlDialogSaveAs).Show est la solution et me permet d'obtenir ce que je souhaite. Désolé du dérangement. Cordialement Hervé
"RV" a écrit dans le message de news: %
Bonsoir, Pour appeler la fenêtre "Enregistrer sous" dans la feuille ThisWorkbook avec la procédure Workbook_Open, j'ai mis: Application.OnKey "^{s}" et il ne se passe rien pourquoi? La combinaison
de touche fait suite à une MsgBox. Merci de vos réponses. Cordialement Hervé