Macro pour choisir le nombre copies souhaitées

[keurma]

Bonjour,

Comment modifier la macro ci dessous pour choisir le nombre de copies (ce nombre sera inscrit dans la cellule A1)

Sub impressionapartirdeintro()

Sheets("IMPRESSION").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ActiveWindow.SmallScroll Down:=-9
End Sub

D'avance merci.

 

[Larson]

Re : Macro pour choisir le nombre copies souhaitées

Bonjour,

un 'simple'

Sub impressionapartirdeintro()

Sheets("IMPRESSION").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=Range("A1"), Collate _
:=True
ActiveWindow.SmallScroll Down:=-9
End Sub

devrait suffir il me semble 🙂

 

[keurma]

Re : Macro pour choisir le nombre copies souhaitées

Merci pour la réponse mais ca ne fonctionne pas .... sniff

 

[Larson]

Re : Macro pour choisir le nombre copies souhaitées

Ca, ca m'apprendra a ne pas essayer avant d'envoyer !!🙄
Je vais trouver la faille 🙂

Edit : bon y'a un soucis parce que ca fonctionne bien chez moi !!
Si la cellule contient bien un nombre ... ca roule !

Quel est l'erreur ?

 

[phlaurent55]

Re : Macro pour choisir le nombre copies souhaitées

Salut à tous,

unpetit oubli de la part de Larson.....en bleu ci-dessous

Bonjour,

un 'simple'

Sub impressionapartirdeintro()

Sheets("IMPRESSION").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=Range("A1")[B][COLOR="Blue"].Value[/COLOR][/B], Collate _
:=True
ActiveWindow.SmallScroll Down:=-9
End Sub

devrait suffir il me semble 🙂

 

[Larson]

Re : Macro pour choisir le nombre copies souhaitées

Bonjour phlaurent55,

promis, juré, craché, ca fonctionne sans le .value ! 😛😛

 

[keurma]

Re : Macro pour choisir le nombre copies souhaitées

BOnjour,

Chez moi rien ne marche arrrrrgggghhhhhhhh lol

 

[keurma]

Re : Macro pour choisir le nombre copies souhaitées

erreur d'execution 1004

 

[Larson]

Re : Macro pour choisir le nombre copies souhaitées

un petit fichier joint sans données confidentielles peut être ?
on aura plus de detail pour t'aider

 

[keurma]

Re : Macro pour choisir le nombre copies souhaitées

Ca y est j'ai compris mon erreur en fait ca marche nickel mais le chiffre que l'on tape se trouve en A1 dans une autre feuille que la feuille IMPRESSION. Comment faire ?? grand merci pour votre aide.

 

[keurma]

Re : Macro pour choisir le nombre copies souhaitées

donc en plus du range il faut juste donner le nom de la feuille dans laquelle se trouve ce chiffre. Cette feuille s'appelle INTRO

 

[Larson]

Re : Macro pour choisir le nombre copies souhaitées

Aaahhh ben voilà le detail qui manquai 😀

Remplace Range("A1") par Sheets("INTRO").Range("A1")
ou pour faire encore plus propre
Sheets("INTRO").Range("A1").value

 

[phlaurent55]

Re : Macro pour choisir le nombre copies souhaitées

Re,

sans avoir essayé..mais ça devrait marcher

Application.ScreenUpdating = False
Sheets("Feuil1").Select (ou  la feuille concernée par la case A1)
Ici tu mets ta procédure d'impression
.........
.........
.........
Sheets("IMPRESSION").Select
Application.ScreenUpdating = True

 

[keurma]

Re : Macro pour choisir le nombre copies souhaitées

Grand merci pour votre aide tout fonctionne parfaitement. Désolé de ne pas avoir été clair. Merci à vous deux.