Code pour Fermer Excel et un autre pour imprimer

Fermé
red360 Messages postés 4 Date d'inscription mardi 27 septembre 2016 Statut Membre Dernière intervention 29 septembre 2016 - 28 sept. 2016 à 10:27
thev Messages postés 1852 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 23 avril 2024 - 29 sept. 2016 à 14:03
Bonjour,

Je compte utiliser des macros pour fermer Excel tout en enregistrant le fichier (le code que j'ai pu avoir de l'aide de l'excel; ferme rien que le classeur en laissant la fenetre excel ouverte).

quel code utiliser pour imprimer (avec un bouton de commande) sans passer par le menu fichier.

merci de votre aide
A voir également:

3 réponses

thev Messages postés 1852 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 23 avril 2024 681
28 sept. 2016 à 12:24
Bonjour,

Pour fermer Excel
Application.Quit

Pour imprimer le classeur actif
ActiveWorkbook.PrintOut
0
red360 Messages postés 4 Date d'inscription mardi 27 septembre 2016 Statut Membre Dernière intervention 29 septembre 2016
29 sept. 2016 à 10:06
Bonjour,

1. Merci de votre aide mais apparemment la commande Application.Quit me demande toujours d'activer la macro. Une fois le fichier fermé, quand tu l'ouvres de nouveau, il y a plus des liens hypertexte qui s'affiche sur le bouton de commande.

2. et puis, est ce cette commande enregistre-t-elle les modifications apportées ?

3. Une précision pour la commande ActiveWorkbook.PrintOut; imprimme-t-elle tout le classeur ou seulement la feuille active, mon souhait est d'imprimer la feuille active.

merci
0
thev Messages postés 1852 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 23 avril 2024 681
29 sept. 2016 à 14:03
Pour imprimer la feuille active
ActiveSheet.PrintOut
0
The_boss_68 Messages postés 925 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 23 avril 2024 174
29 sept. 2016 à 13:54
Bonjour,

Voir exemple ci-joint, possibilité de voir les codes dans les modules en faisaint Alt+F11

http://www.cjoint.com/c/FIDl1hlf1Bj

Slts
0