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

Imprimer avec VBA : Rien ne se passe !

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Alexxpz
  • Date de début Date de début

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
A

Alexxpz

XLDnaute Nouveau
Bonjour à tous.

J'ai un bouton de maccro sur ma feuille Excel : celui-ci enregistre les données de ma feuille dans un tableau bilan (situé dans une autre feuille du classeur) pour ensuite imprimer ma feuille courante.
Mon problème est que mon bouton marche pour l'enregistrement des données dans le tableau bilan mais pas pour l'impression; qui ne se lance pas. J'ai essayé de mettre le code permettant simplement d'ouvrir la fenêtre d'impression et rien ne se passe non plus.

Voici mon code VBA :
Sub Recap1()

Application.Dialogs(xlDialogPrint).Show

ligne = Sheets("Bilan").Range("A65000").End(xlUp).Row + 1 ' ligne libre


Sheets("Bilan").Cells(ligne, 1) = Cells(20, 1)
Sheets("Bilan").Cells(ligne, 2) = Cells(11, 1)
Sheets("Bilan").Cells(ligne, 3) = Cells(20, 4)
Sheets("Bilan").Cells(ligne, 4) = Cells(20, 5)


End Sub

J'ai essayé pas mal de codes d'impression, aucun ne marche, pourtant ça a l'air de marcher pour tout le monde :/

Cordialement, Alexxpz.
 
Trier par date Trier par votes
Re : Imprimer avec VBA : Rien ne se passe !

Bonjour

Et comme cela?
Code: 
Sub Recap1()
Dim ligne as Long
Application.Dialogs(xlDialogPrint).Show
ligne = Sheets("Bilan").Range("A65000").End(xlUp).Row + 1 ' ligne libre
Sheets("Bilan").Cells(ligne, 1) = Sheets("NOMDELAFEUILLE").Cells(20, 1)
Sheets("Bilan").Cells(ligne, 2) = Sheets("NOMDELAFEUILLE").Cells(11, 1)
Sheets("Bilan").Cells(ligne, 3) = Sheets("NOMDELAFEUILLE").Cells(20, 4)
Sheets("Bilan").Cells(ligne, 4) = Sheets("NOMDELAFEUILLE").Cells(20, 5)
End Sub

Remplacer NOMDELAFEUILLE par le nom de la feuille adéquate.

Sinon pour honorer mes endives 😉
Code: 
Sub Recap1BIS()
Dim ligne As Long
Application.Dialogs(xlDialogPrint).Show
    With Sheets("Bilan")
        ligne = .Range("A65000").End(xlUp).Row + 1 ' ligne libre
        .Cells(ligne, 1) = Sheets("NOMDELAFEUILLE").Cells(20, 1)
        .Cells(ligne, 2) = Sheets("NOMDELAFEUILLE").Cells(11, 1)
        .Cells(ligne, 3) = Sheets("NOMDELAFEUILLE").Cells(20, 4)
        .Cells(ligne, 4) = Sheets("NOMDELAFEUILLE").Cells(20, 5)
    End With
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Imprimer avec VBA : Rien ne se passe !

Non tu n'as pas compris ce que je voulais faire ^^
Regarde en pièce jointe, la feuille que je veux imprimer est "Autorisation" et les informations de cette feuille vont dans la feuille "Bilan" quand on clique sur le bouton Imprimer normalement.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Imprimer avec VBA : Rien ne se passe !

Re

Tu ne crois pas que j'aurai compris si tu avais joint une pièce jointe dès le départ ...🙄
D’autant plus que j'avais parfaitement compris 😉
Code: 
Sub Recap2()
With Sheets("Bilan")
ligne = .Range("A65000").End(xlUp).Row + 1
.Cells(ligne, 1) = Sheets("Autorisation").Cells(20, 1)
.Cells(ligne, 2) = Sheets("Autorisation").Cells(11, 1)
.Cells(ligne, 3) = Sheets("Autorisation").Cells(20, 4)
.Cells(ligne, 4) = Sheets("Autorisation").Cells(20, 5)
.PageSetup.PrintArea = .Range("A1:D" & ligne).Address
.PrintPreview 'pour test
End With
End Sub

J'ai donc remplacer NOMFEUILLE par Autorisation
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Imprimer avec VBA : Rien ne se passe !

Re

Treve de plaisanterie 😉
Et avec ceci ca donne quoi ?
Code: 
Sub Recap3()
With Sheets("Bilan")
ligne = .Range("A65000").End(xlUp).Row + 1
.Cells(ligne, 1) = Sheets("Autorisation").Cells(20, 1)
.Cells(ligne, 2) = Sheets("Autorisation").Cells(11, 1)
.Cells(ligne, 3) = Sheets("Autorisation").Cells(20, 4)
.Cells(ligne, 4) = Sheets("Autorisation").Cells(20, 5)
End With
With Sheets("Autorisation").PageSetup
    .PrintArea = Sheets("Autorisation").Range("A1:E36").Address
    .CenterHorizontally = True
    .CenterVertically = True
    .Orientation = xlPortrait
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With
Sheets("Autorisation").PrintPreview ' ici pour test
End Sub

Pour vraiment imprimer, remplacer :
Sheets("Autorisation").PrintPreview ' ici pour test
par
Sheets("Autorisation").PrintOut
 
Vote positif 0 Vote négatif
Re : Imprimer avec VBA : Rien ne se passe !

Re

Avec le code précédemment fourni, l’aperçu avant impression de s'affiche pas ???
(voir copie d'écran ci-dessous)


PS: Tu devrais mettre un fichier exemple sans données confidentielles.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Imprimer avec VBA : Rien ne se passe !

Non, rien ne s'affiche, ça vient peut être du PC. Je vais essayer sur un autre.
Et pour les données il n'y a rien de confidentiel, tous les noms et fonctions sont retrouvables sur le site de l'entreprise ^^
 
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

C
  • Résolu(e)
XL 2019 Problème de transferts de données formulaire à feuille
Réponses
5
Affichages
147
ceralpes
C
M
  • Question Question
XL 2016 liste déroulante formulaire vba excel
2
Réponses
20
Affichages
626
fanch55
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
840
CortoXls
C
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
368
sylvanu
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
830
Dranreb
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
232
Yogean
Y
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
490
KRUG WOO
K
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
499
vgendron
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
629
MBEPID
M
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
663
jeff1494
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
399
Latias
L
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
515
Piment
P
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
1 K
Vermithor
V
C
  • Résolu(e)
XL 2021 Remplir données devis en vba avec descriptions/quantités/PUs alignés
2
Réponses
18
Affichages
1 K
Phil69970
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
269
Pierreavecunp
P
  • Question Question
XL 2016 Protéger Plage avec condition
2
Réponses
16
Affichages
1 K
Amigo
  • Question Question
XL 2016 graphique avec pilotage
Réponses
0
Affichages
100
richardlion
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
591
desto
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…