Macro excel imprim nombre de copie aléatoire

sanchis81 Messages postés 138 Statut Membre -  
pilas31 Messages postés 1878 Statut Contributeur -
Bonjour à tous,

je cherche à mettre en place une macro excel qui me permette d'imprimer une feuille excel une ou plusieurs fois selon la valeur de la case A1.

Je m'explique:

A1 = 2 --> 2 impressions de la feuille

A1 = 5 --> 5 impressions de la feuille

....

Merci d'avance pour votre aide

Sanchis81
A voir également:

3 réponses

pilas31 Messages postés 1878 Statut Contributeur 647
 
Bonjour,

Voici un exemple :

Sheets("Feuil2").PrintOut Copies:=Sheets("Feuil1").Range("A1")

Cet exemple imprime la feuille "Feuil2" , le nombre de copies étant dans la cellule A1 de "Feuil1"

A+
0
sanchis81 Messages postés 138 Statut Membre 10
 
Ca marche vraiment bien. Mais si la feuille à imprimer appartient à un autre fichier excel, quel serait le code vba? Est ce possible d'utiliser le même code?

Merci
0
pilas31 Messages postés 1878 Statut Contributeur 647
 
Bonsoir,

Oui on peut utiliser la même syntaxe en préfixant avec le bon nom de classeur.
Par exemple :

Workbooks("CLASSEUR2.xls").Sheets("Feuil1").PrintOut Copies:=ThisWorkbook.Sheets("Feuil1").Range("A1")
 


Imprime la Feuil1 du CLASSEUR2, le nombre de copies étant dans la cellule A1 de la Feuil1 du classeur qui contient la macro (ThisWorkbook)

Il faut que CLASSEUR2 soit ouvert. Sinon il faut l'ouvrir dans la macro

A+
Cordialement,
0