macro Bouton Impression

[Julien77]

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

Sub imprimer_entree() 
'Atteindre le formulaire et mémoriser les données 
Sheets("Base de données").Select 
ActiveCell.EntireRow.Select 
Selection.Copy

 

[Pierrot93]

Re : macro Bouton Impression

Bonjour Julien,

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

'impression feuille active
ActiveSheet.PrintOut

'impression classeur actif
ActiveWorkbook.PrintOut

bon après midi
@+

 

[Julien77]

Re : macro Bouton Impression

Salut,

Attend mais ce code que tu m'as envoyé, je le mets juste après la procedure "au clik du bouton"?

A plus.

 

[Pierrot93]

Re : macro Bouton Impression

Bonjour,

oui tout à fait...

 

[Julien77]

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?

 

[Pierrot93]

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....

 

[Julien77]

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 ?

 

[Pierrot93]

Re : macro Bouton Impression

Re,

pas trop d'expérience sur des enregistrements en PDF, mais une petite recherche sur le forum devrait t'apporter peutêtre une solution....

bon après midi
@+

 

[Julien77]

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?

 

[Pierrot93]

Re : macro Bouton Impression

Re,

peut être comme ceci :

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

ou en 1 seule ligne :

If MsgBox("Voulez vous imprimer le travail ?", vbYesNo) = VbYes Then ActiveSheet.PrintOut

 

[Julien77]

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!!!!!!!

 

[Pierrot93]

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...

 

[Julien77]

Re : macro Bouton Impression

"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...
Aujourd'hui 14h15

Avant l aide VBA, j aimearais avoir une autre explication plus adapté a mon niveau. Quand tu dis

"de typer la variable ma reponse"

. 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 :

Private Sub CommandButton1_Click()

retour_user

End Sub

Et dans un module cette declaration :

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

Est ce que "Sub" aurait pu etre remplacé par autre chose ?

 

[Pierrot93]

Re : macro Bouton Impression

Re,

non, "dim" permet de déclarer des variables, "sub" est une instruction permettant de déclarer une procédure...

 

[Julien77]

Re : macro Bouton Impression

Dans un module :

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"