Imprimer feuilles excel

Résolu/Fermé
kojko Messages postés 29 Date d'inscription lundi 25 mai 2015 Statut Membre Dernière intervention 22 novembre 2020 - 13 avril 2016 à 11:07
kojko Messages postés 29 Date d'inscription lundi 25 mai 2015 Statut Membre Dernière intervention 22 novembre 2020 - 18 avril 2016 à 09:50
Bonjour,

J’ai un problème pour lequel j’aurais besoin de votre aide.

je souhaite créer une macro pour imprimer de la première page à la page que je sélectionne d'une cellule, je souhaite que l'impression se lance automatiquement.

3 réponses

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 159
13 avril 2016 à 17:31
Bonjour Kojko, bonjour le forum,

Quand tu dis page , ce sont des pages d'un même onglet (par exemple Feuil1 qui aurait plusieurs pages) ou tu veux imprimer plusieurs onglets du classeur (Feuil1, Feuil2, etc.) ?
0
kojko Messages postés 29 Date d'inscription lundi 25 mai 2015 Statut Membre Dernière intervention 22 novembre 2020
14 avril 2016 à 11:43
Bonjour ThauTheme,

Tout d'abord merci pour votre réponse, je veux dire les pages de la même feuille ou le même onglet.

ci joint le fichier excel.

https://www.cjoint.com/c/FDojQistQ8R
0
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 159
14 avril 2016 à 13:38
Re,

Pour qu'un fichier Excel stocké dans ci-joint puisse être lu par Excel il faut le zipper sinon ce n'est qu'une suite de hiéroglyphes...
0
kojko Messages postés 29 Date d'inscription lundi 25 mai 2015 Statut Membre Dernière intervention 22 novembre 2020
15 avril 2016 à 16:01
Bonjour ThauTheme,

j'ai re-partagé le fichier et voici ce que me donne

https://www.cjoint.com/c/FDpn1bjh8XQ
0
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 159
17 avril 2016 à 14:57
Bonjour Kojko, bonjour le forum,

Essaie comme ça :
Sub Macro1()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Sheets("Feuil1").Range("F2").Value, Copies:=1, Collate _
    :=True, IgnorePrintAreas:=False

0
kojko Messages postés 29 Date d'inscription lundi 25 mai 2015 Statut Membre Dernière intervention 22 novembre 2020
18 avril 2016 à 09:50
Bonjour ThauTheme.

Merci, ça marche très bien.

Bonne journée.
0