Ptit loup a écrit :
1. utilise l'enregistreur de macro (je vois pas pourquoi tu veux pas l'utiliser, c'est stupide)
2. sélection / impression / sélection / impression (cf. remarque ci dessus)
|
Oulala ! Excusez mon ignorance ! La nuit portant conseil, je me permets de revenir vers vous et tente de surpasser ma stupidité pour pouvoir échanger avec vous .
Je ne voulais tout simplement pas utiliser l'enregistreur de macro puisque ça me faisait lancer une impression (+ de 1000 pages) que je ne pouvais stopper avec l'imprimante...
Peu importe, voici les modifications que j'ai apporté avec votre aide précieuse. Néanmoins, il doit manquer quelque chose puisque ça ne m'imprime que les 10 premières ligne de chaque feuille...
Sheets("Côté Sarthe" ).Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("feuil1" ).Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("feuil2" ).Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("feuil3" ).Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("feuil4" ).Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("feuil5" ).Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("feuil6" ).Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("feuil7" ).Select
Selection.PrintOut Copies:=1, Collate:=True
Selection.PrintOut Copies:=1, Collate:=True
Sheets("Acceuil" ).Select
End Sub
Merci d'avance pour votre réponse
Cdt