XL 2019 Macro imprimer

[le___destin]

Bonjour,



Bonjour,
j'ai pas reçu a utiliser la valeur dune case sans un macro pour impression

Sub macro()
'
' macro Macro
'

ActiveWorkbook.PrintOut From:=1, To:="L31" , Copies:=3, Collate:=True, _
IgnorePrintAreas:=False

End Sub
soit L31 la valeur que je veux

 

[Staple1600]

Bonsoir le fil, le__destin

le__destin
Essaies comme ceci

Sub macro() 
' 
' macro Macro 
' 

ActiveWorkbook.PrintOut From:=1, To:=Range("L31") , Copies:=3, Collate:=True, _ 
IgnorePrintAreas:=False 

End Sub

 

[le___destin]

Non ça marche pas .. toujour meme problèmes
Moin je veux imrime chaque fois les pages de 1 jusqua le nombre qui se trouve dans une cellule de ma feuilles

Bonsoir le fil, le__destin

le__destin
Essaies comme ceci

Sub macro()
'
' macro Macro
'

ActiveWorkbook.PrintOut From:=1, To:=Range("L31") , Copies:=3, Collate:=True, _
IgnorePrintAreas:=False

End Sub

 

[Staple1600]

Re

Quel est le nom de la feuille contenant la cellule L31 ?

 

[le___destin]

Re

Quel est le nom de la feuille contenant la cellule L31 ?

La première feuille du classeur tab3

 

[Staple1600]

Re

Le classeur s'appelle tab3 [OK]
Et la feuille (ou l'onglet si tu préfères) s'appelle comment ?
En attendant le nom, testes-ceci

Sub macro() 
' 
' macro Macro 
' 

ActiveWorkbook.PrintOut From:=1, To:=Sheets(1).Range("L31") , Copies:=3, Collate:=True, _ 
IgnorePrintAreas:=False 

End Sub

 

[le___destin]

Re

Le classeur s'appelle tab3 [OK]
Et la feuille (ou l'onglet si tu préfères) s'appelle comment ?
En attendant le nom, testes-ceci

Sub macro()
'
' macro Macro
'

ActiveWorkbook.PrintOut From:=1, To:=Sheets(1).Range("L31") , Copies:=3, Collate:=True, _
IgnorePrintAreas:=False

End Sub

Nn tab3 le non du feille .. ca marche pas

 

[Staple1600]

Re

Sois précis!!!
Tu avais écrit: du classeur tab3
Donc si le nom de la feuille est tab3, essaies

Sub macro_ter() 
ActiveWorkbook.PrintOut From:=1, To:=Sheets("tab3").Range("L31") , Copies:=3, Collate:=True, _ 
IgnorePrintAreas:=False 
End Sub

 

[le___destin]

Re

Sois précis!!!
Tu avais écrit: du classeur tab3
Donc si le nom de la feuille est tab3, essaies

Sub macro_ter()
ActiveWorkbook.PrintOut From:=1, To:=Sheets("tab3").Range("L31") , Copies:=3, Collate:=True, _
IgnorePrintAreas:=False
End Sub

Toujour meme problème .. message de erreur macro

 

[Staple1600]

Re

Peut-être que si tu joignais un fichier Excel exemple, on pourrait y voir plus clair, non ?
NB: Pour joindre un fichier, cliquer sur : Joindre des fichiers

 

[le___destin]

Malheureuse je peux pas cest un fichier sucré du travail.. jai 3 feuille qui contient 10 page a imprime au max .. suivant le valeur du case l31 le macro dout imprime du 1 jusqu'à le le numero du page qui est deja saisie dans cette case

 

[Staple1600]

Re

Testes ces deux macros

Sub TestNBPages()
MsgBox ActiveSheet.PageSetup.Pages.Count, vbInformation, "Nombre page(s) de la feuille active"
End Sub
Sub TestNBP_Classeur()
Dim i&, p&, pp&
p = 0: pp = 0
For i = 1 To Worksheets.Count
    With Worksheets(i)
      p = .PageSetup.Pages.Count: pp = pp + p
    End With
  Next i
MsgBox pp, vbInformation, "Nombre de page(s) du classeur"
End Sub

Est-ce le nombre qui s'affiche est inférieur ou égal au contenu de la cellule L31?

Si ce n'est pas le cas, c'est normal dans ce cas, que ta macro plante...

 

[Staple1600]

Bonjour le fil

le___destin
Comment peux-tu dire que cela ne marche pas?
Aucune trace de mes macros dans ton fichier exemple... 🙄

Au moins, maintenant je sais ce qu'il y a en L31
Donc essaies ceci

Sub macro_quatro() 
ActiveWorkbook.PrintOut From:=1, To:=Sheets("tab3").Range("L31").Text , Copies:=3, Collate:=True, _ 
IgnorePrintAreas:=False 
End Sub

 

[le___destin]

Bonjour le fil

le___destin
Comment peux-tu dire que cela ne marche pas?
Aucune trace de mes macros dans ton fichier exemple... 🙄

Au moins, maintenant je sais ce qu'il y a en L31
Donc essaies ceci

Sub macro_quatro()
ActiveWorkbook.PrintOut From:=1, To:=Sheets("tab3").Range("L31").Text , Copies:=3, Collate:=True, _
IgnorePrintAreas:=False
End Sub

je suprime les macro qui marche plus
encore elle sa marche plus toujour il imprime de 1 a 10

Bonjour le fil

le___destin
Comment peux-tu dire que cela ne marche pas?
Aucune trace de mes macros dans ton fichier exemple... 🙄

Au moins, maintenant je sais ce qu'il y a en L31
Donc essaies ceci

Sub macro_quatro()
ActiveWorkbook.PrintOut From:=1, To:=Sheets("tab3").Range("L31").Text , Copies:=3, Collate:=True, _
IgnorePrintAreas:=False
End Sub

 

[le___destin]

je suprime les macro qui marche plus
encore elle sa marche plus toujour il imprime de 1 a 10

Bonjour le fil

le___destin
Comment peux-tu dire que cela ne marche pas?
Aucune trace de mes macros dans ton fichier exemple... 🙄

Au moins, maintenant je sais ce qu'il y a en L31
Donc essaies ceci

Sub macro_quatro()
ActiveWorkbook.PrintOut From:=1, To:=Sheets("tab3").Range("L31").Text , Copies:=3, Collate:=True, _
IgnorePrintAreas:=False
End Sub

je suprimer les macro marche plus
toujour il imprime de 1 à 10