Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel impression

impression

3 réponses
Avatar
Bernard SALIEN
bonsoir,
Pourriez-vous, s'il vous plait, verifier cette commande car
il y a un pb dans mon code, cela ne marche pas. Pouvez-vous m'éclairer sur
ce (petit) problème
merci de me répondre rapidement

@+

Private Sub CommandButton4_Click()
Sheets("DPGF", "SYNTHESE").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Clément Marcotte
As-tu essayé l'enregistreur de macros ?


"Bernard SALIEN" a écrit dans le message de
news:e%
bonsoir,
Pourriez-vous, s'il vous plait, verifier cette commande car
il y a un pb dans mon code, cela ne marche pas. Pouvez-vous
m'éclairer sur

ce (petit) problème
merci de me répondre rapidement

@+

Private Sub CommandButton4_Click()
Sheets("DPGF", "SYNTHESE").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub




Avatar
Clément Marcotte
Moi, j'ai pas envie de gaspiller mon encre pour répondre rapidement.


"Bernard SALIEN" a écrit dans le message de
news:e%
bonsoir,
Pourriez-vous, s'il vous plait, verifier cette commande car
il y a un pb dans mon code, cela ne marche pas. Pouvez-vous
m'éclairer sur

ce (petit) problème
merci de me répondre rapidement

@+

Private Sub CommandButton4_Click()
Sheets("DPGF", "SYNTHESE").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub




Avatar
MichDenis
Bonjour Bernard,

Essaie avec ceci : ARRAY


Private Sub CommandButton4_Click()
Sheets(Array("DPGF", "SYNTHESE")).Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub


Salutations!