Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Macro imprimer

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

le___destin

XLDnaute Occasionnel
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
 
Trier par date Trier par votes
Bonsoir le fil, le__destin

le__destin
Essaies comme ceci
VB: 
Sub macro() 
' 
' macro Macro 
' 

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

End Sub
 
Vote positif 0 Vote négatif
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
VB: 
Sub macro() 
' 
' macro Macro 
' 

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

End Sub
 
Vote positif 0 Vote négatif
Re

Sois précis!!!
Tu avais écrit: du classeur tab3
Donc si le nom de la feuille est tab3, essaies
VB: 
Sub macro_ter() 
ActiveWorkbook.PrintOut From:=1, To:=Sheets("tab3").Range("L31") , Copies:=3, Collate:=True, _ 
IgnorePrintAreas:=False 
End Sub
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re

Testes ces deux macros
VB: 
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...
 
Vote positif 0 Vote négatif
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
VB: 
Sub macro_quatro() 
ActiveWorkbook.PrintOut From:=1, To:=Sheets("tab3").Range("L31").Text , Copies:=3, Collate:=True, _ 
IgnorePrintAreas:=False 
End Sub
 
Vote positif 0 Vote négatif
je suprime les macro qui marche plus
encore elle sa marche plus toujour il imprime de 1 a 10
 

Pièces jointes

Vote positif 0 Vote négatif
le___destin à dit:
je suprime les macro qui marche plus
encore elle sa marche plus toujour il imprime de 1 a 10
Cliquez pour agrandir...

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

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
168
vazvaz
V
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
691
Nounours4173
N
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
614
AtTheOne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
653
ph.vanne
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
292
patricktoulon
T
  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
317
cathodique
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
404
job75
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
285
CortoXls
C
S
  • Résolu(e)
XL 2016 Ne pas imprimer si 0 dans une cellule
Réponses
14
Affichages
553
AtTheOne
U
  • Question Question
Autres [RÉSOLU] Peut-on faire une macro qui met une seule macro en commentaires puis le contraire!!!
2 3
Réponses
30
Affichages
1 K
un internaute
U
H
  • Question Question
XL 2013 Erreur VBA 1004 Impression zone d'impression tableau
Réponses
13
Affichages
575
Helios77
H
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
170
cathodique
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
430
AtTheOne
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
279
nat54
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
S
  • Question Question
XL 2016 Erreur dans fonction VBA
Réponses
2
Affichages
447
sylvanu
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
423
cdric78
C
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
426
KTM
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
511
Nounours4173
N
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
437
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…