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

macro Bouton Impression

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Julien77
  • 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
J

Julien77

Guest
Bonjour a tous,

Existe il une procedure pour imprimer automatiquement depuis un bouton un fichier excel ?

J'ai trouvé un debut de code mais je sais pas comment l'exploiter, merci a celles et ceux qui pourraient m'eclairer

Code: 
Sub imprimer_entree() 
'Atteindre le formulaire et mémoriser les données 
Sheets("Base de données").Select 
ActiveCell.EntireRow.Select 
Selection.Copy
 
Trier par date Trier par votes
Re : macro Bouton Impression

Bonjour Julien,

regarde ces codes si ils peuvent t'aider...

Code: 
'impression feuille active
ActiveSheet.PrintOut

'impression classeur actif
ActiveWorkbook.PrintOut

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : macro Bouton Impression

OUAH, j ai viens d effectuer la macro et l impression est partie. Sauf que j etais dans un cyber et tous les onglets de classeur sont sortis à l impression et donc vais devoir payer tout ca. Il est de configurer pour n avoir que la feuill1 ? en 1 exemplaire?
 
Vote positif 0 Vote négatif
Re : macro Bouton Impression

Re,

il y avait 2 codes dans ce que j'avais donné, le premier imprimait que la feuille active.... A noter tu peux également remplacer "PrintOut" par "PrintPreview" pour avoir un appercu avant impression....
 
Vote positif 0 Vote négatif
Re : macro Bouton Impression

ok MERCI A TOI,

Dis moi pour info, un enregisrement auto a l aide d un bouton du contenu de la feuille en PDF, est ce que c la meme methode ?
 
Vote positif 0 Vote négatif
Re : macro Bouton Impression

Derniere chose (ou avant derniere) j'ai réalisé la modification et ajouté une msgbox, mais comment realisé un message sous forme de question pour dire "OUi" ou "NON", "Voulez vous imprimer le travail?
 
Vote positif 0 Vote négatif
Re : macro Bouton Impression

Re,

peut être comme ceci :

Code: 
Dim mareponse As Integer
mareponse = MsgBox("Voulez vous imprimer le travail ?", vbYesNo)
If mareponse = vbYes Then ActiveSheet.PrintOut

ou en 1 seule ligne :

Code: 
If MsgBox("Voulez vous imprimer le travail ?", vbYesNo) = VbYes Then ActiveSheet.PrintOut
 
Vote positif 0 Vote négatif
Re : macro Bouton Impression

Peux tu me donner des precisions sur la procedure Dim As Integer ? En traduction ca veut dire quoi (en tenant compte de l'ensemble de la premiere macro) et dans quel cas l utiliser ?


Merci a toi en tout cas, tu assures mec!!!!!!!
 
Vote positif 0 Vote négatif
Re : macro Bouton Impression

Re,

"Dim mareponse As Integer" permet de déclarer et de "typer" la variable "mareponse", le fait d'appuyer sur un des bouton yes / no de ta "msgbox" enverra une valeur de type "integer" dans cette variable.... regarde dans l'aide vba, plus d'info sur les différents types de donnée possible...
 
Vote positif 0 Vote négatif
Re : macro Bouton Impression


Avant l aide VBA, j aimearais avoir une autre explication plus adapté a mon niveau. Quand tu dis
"de typer la variable ma reponse"
Cliquez pour agrandir...
. J'aimerais que tu emploi un mot simple pour le remplacer afin que ma logique puisse s opérer.

Je te dis ca car dans une feuille j ai ca :

Code: 
Private Sub CommandButton1_Click()

retour_user

End Sub

Et dans un module cette declaration :

Code: 
Sub retour_user()
Sheets(2).Select
UserForm1.Show
End Sub

Est ce que "Sub" aurait pu etre remplacé par autre chose ?
 
Vote positif 0 Vote négatif
Re : macro Bouton Impression

Dans un module :

Code: 
Sub Feuil1_Photo1_QuandClic()
    
    
    Dim x As Range: Set x = Sheets("Feuil1").Range("B13")
    
    Application.ScreenUpdating = False
    
    x.Value = x.Value + 1
    If x.Value > 2 Then x.Value = 1

    If Sheets("Feuil1").Range("B13") = 1 Then
        ActiveSheet.Shapes("Photo1").Select
        Selection.ShapeRange.ScaleWidth 4, msoFalse, msoScaleFromTopLeft
        Selection.ShapeRange.ScaleHeight 4, msoFalse, msoScaleFromTopLeft
        
        Selection.ShapeRange.Left = ActiveSheet.Range("D9").Left
        Selection.ShapeRange.Top = ActiveSheet.Range("D9").Top
        
        Selection.ShapeRange.ZOrder msoBringToFront
        Sheets("Feuil1").Range("N3").Select
    Else
        ActiveSheet.Shapes("Photo1").Select
        Selection.ShapeRange.ScaleWidth 0.25, msoFalse, msoScaleFromTopLeft
        Selection.ShapeRange.ScaleHeight 0.25, msoFalse, msoScaleFromTopLeft
        'Une solution consista a te servire de la position des cellule de ta feuille excel
        
        Selection.ShapeRange.Left = ActiveSheet.Range("B11").Left
        Selection.ShapeRange.Top = ActiveSheet.Range("B11").Top
        
        Selection.ShapeRange.ZOrder msoBringToFront
        Sheets("Feuil1").Range("N3").Select
    End If
    

End Sub

Avec cette procedure j'ai une declaration Dim comme tu peux le constater dans la procedure Sub. Ici c est bien la cellule B13 qui est bien declaré. Je t avoue j ai du ma mal avec "variable"
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
196
sylvanu
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
388
AlineJ
A
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
232
pascal21
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
954
TooFatBoy
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
698
jeff1494
M
  • Question Question
Microsoft 365 Mon TCD ne prend pas en compte le filtre de la table auquel il est lié.
Réponses
3
Affichages
317
chris
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
761
Nounours4173
N
G
  • Résolu(e)
XL 2019 macro pour masquer puis afficher colonnes a la demande
Réponses
4
Affichages
336
Phil69970
K
  • Question Question
Microsoft 365 Exercice compte en banque
Réponses
10
Affichages
567
klemasson
K
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
694
micie1509
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
532
NONO14
N
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
G
  • Résolu(e)
Copie de données d'une feuille à une autre
Réponses
2
Affichages
719
gui22
G
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
889
candido57
C
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
426
Pierreavecunp
P
O
  • Résolu(e)
Microsoft 365 Amélioration/réparation d'une Macro et création d'un bouton pour calcul consommation
2
Réponses
27
Affichages
2 K
Olihoes
O
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
1 K
Dranreb
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
545
sylvanu
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
659
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…