Microsoft 365 Impression Userform en format paysage + Envoyer l'imprime écran du Userform par courriel

[MeliChat_47]

Bonjour,

Je suis secrétaire dans une école et j'ai créé un Userform à 3 onglets afin que mes enseignants puissent faire la commande des cahiers à commander en fin d'année pour le début de la prochaine année scolaire. Voici mes besoins...

J'aimerais que l'on puisse imprimer les 2 premiers onglets du Userform en format paysage. (L'enseignant aurait une preuve de sa commande qu'il pourrait garder dans ses dossiers) Au début, j'avais mis un bouton "imprimer" dans chaque onglet, mais il n'imprime pas en format paysage. Je peux ajouter le bouton imprimer dans chaque onglet ou seulement au 3e onglet et que les 2 onglets s'impriment automatiquement?

Ma collègue aimerait recevoir par courriel l'imprime écran du Userform. Est-ce qu'on peut générer le courriel automatiquement à ma collègue lorsque l'on clique sur le bouton "Quitter" du 3e onglet ou sur le bouton "imprimer" de son onglet (Lucie)? Si oui, vous pouvez m'aider à programmer le tout svp? L'objet serait Commande 25-26 et il pourrait allé chercher le nom de l'enseignant automatiquement...

J'espère que je suis assez claire 😅!

Merci pour votre aide ☺️

 

[MeliChat_47]

dans le modul outlook_mod

change tout

Sub startoutlook()
   Dim i&
   With CreateObject("outlook.application")
        With .CreateItem(0)
            .To = "quelqun@mailou.com" 'mettre le mail du destinataire ici
            .Subject = "sujet du mail " & Date 'mettre le titre ou sujet ici
            .htmlbody = "<b>bonjour</b><br>"
            .htmlbody = .htmlbody & " vous trouverez ci joint les copies de commande<br>"
            'les images (embeded on htmlbody)
           
            .htmlbody = .htmlbody & "<img width=" & Round(UserForm1.Width / 2) & " height=" & Round(UserForm1.Height / 2) & _
                                     " src='capture1.jpg'/><br><br>"
            .htmlbody = .htmlbody & "<img width=" & Round(UserForm1.Width / 2) & " height=" & Round(UserForm1.Height / 2) & _
                                     " src='capture2.jpg'/><br><br>"
            'politesse et salamalec
            .htmlbody = .htmlbody & "en vous souhaitant bonne reception<br>"
            .htmlbody = .htmlbody & "cordialement Géraldine la secrétaire qui pète tout le temps"
            'on injecte deux fois 1 fois pour intégrer dans le mail et l'autre en tant que piece jointes  For i = 1 To 2
                 .Attachments.Add ThisWorkbook.Path & "\capture1.jpg"
                .Attachments.Add ThisWorkbook.Path & "\capture2.jpg"
            .display
            'ou
            '.send'pour envoyer direct
        End With
    End With
    Application.CutCopyMode = False
End Sub

 

[MeliChat_47]

Bonjour,

Le courriel a ses 2 pièces jointes, mais elles sont échouées (elles n'ouvent pas 😳 ) et les 2 imprime écrans aussi... Je partage mon fichier dans Onedrive et l'enseignant doit l'ouvrir sur son bureau pour que le VBA fonctionne. Je suis un peu gênée de vous demander encore votre aide alors j'ai téléphoné à un technicien informatique de mon Centre de service scolaire et personne ne connaît le VBA dans Excel.

Par contre, ce qu'il m'a dit c'est que d'après lui il faudrait envoyer seulement l'image et non un lien hypertexte dans le courriel. Évidemment, il ne sait pas comment faire.

J'ai essayé de voir la capture dans mes dossiers et je ne la trouvais pas et le technicien l'a trouvé, mais il a dû changer la lettre du lecteur D pour C ce que je n'avais pas accès directement...

Puisque vous me répondez vraiment rapidement je veux seulement vous informer que vous pouvez attendre à la semaine prochaine puisque je pars en congé ce soir et je serai de retour mardi à l'école.

Je vous souhaite un bon congé de Pâques!

Mélissa

 

[patricktoulon]

re