faire un bouton imprimer

[tarte51]

Bonjour, je suis débutant avec excel, je cherche à créer un bouton imprimer sur la 1ere page de mon document qui imprimera la 2nde page en insérant 4 informations dans la 2nde page (nom prénom date-début et date-fin).

Je joins mon fichier excel, ça sera plus simple à comprendre.

Merci pour votre aide

 

[mth]

Re : faire un bouton imprimer

Bonsoir tarte51,

A priori je ne te conseille pas de préparer un bouton à chaque ligne comme tu le suggères dans ton fichier.
Tu auras sans doute d'aitres propositions meilleures que la mienne, mais en attendant dans le fichier joint, j'ai mis un petit code dans la feuille 1, qui se déclence quand on double clique sur la colonne A:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Columns(1)) Is Nothing Then
    If Target.Value = "" Or Target.Row = 1 Then Exit Sub
    
    Dim lig As Long
    Dim Vnom As String, VPrenom As String, VDateInit As Date, VDatefin As Date
    Vnom = Target.Value
    VPrenom = Target.Offset(0, 1).Value
    VDateInit = Target.Offset(0, 2).Value
    VDatefin = Target.Offset(0, 3).Value
    With Sheets("Feuil2")
        .Range("A3") = Vnom
        .Range("A4") = VPrenom
        .Range("B3") = VDateInit
        .Range("B4") = VDatefin
        
    End With
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End If
End Sub

Bien à toi,

mth

 

[phlaurent55]

Re : faire un bouton imprimer

Bonjour Tarte51 et bienvenue sur le forum
Bonjour Mireille

une solution un peu plus complète en pièce jointe

à+
Philippe

 

[tarte51]

Re : faire un bouton imprimer

Bonjour mth et phlaurent55,

Merci beaucoup pour votre aide, c'est exactement ce dont j'avais besoin, un grand merci à vous.