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 ☺️

 

[patricktoulon]

bonjour @MeliChat_47
fait comme tu fait d'habitude et regarde bien quand tu arrive sur l'onglet "quitter"

 

[MeliChat_47]

bonjour @MeliChat_47
fait comme tu fait d'habitude et regarde bien quand tu arrive sur l'onglet "quitter"

Hooooooooo wowwww magique! Une chance que vous m'avez aidé, car je n'aurais jamais été capable d'écrire du VBA comme ça! Une dernière chose, si je voulais changer l'image du courriel comment je dois faire puisque ce n'est pas un bouton?

 

[patricktoulon]

re
supprime cette ligne

    mail1.Picture = Application.CommandBars.GetImageMso("MicrosoftOutlook", 50, 50)

et met l'image que tu veux comme tu a fait pour les autres

 

[MeliChat_47]

re
supprime cette ligne

    mail1.Picture = Application.CommandBars.GetImageMso("MicrosoftOutlook", 50, 50)

et met l'image que tu veux comme tu a fait pour les autres

Bonjour,
C'est carrément génial! 🙂 Un énorme merci! Je vais faire des tests avec mes enseignants.

Comment on fait pour mettre notre discussion "résolu"?

Merci pour tout et pour votre temps!
Mélissa😀

 

[patricktoulon]

bonjour @MeliChat_47
merci du retour
pour clôturer tu peux cocher le coche sur la bande a droite du post qui t'a convenu
patrick

 

[MeliChat_47]

bonjour @MeliChat_47
merci du retour
pour clôturer tu peux cocher le coche sur la bande a droite du post qui t'a convenu
patrick

Bonjour,
Encore moi... 😅 Lorsque mes enseignants essaient mon fichier, lorsqu'il clique sur "Enregistrer" ça fait un bogue... Est-ce que vous pouvez m'aider?

 

[patricktoulon]

Bonjour
parce que ton fichier est certainement dans un dossier system "documents" ou autres et certaines configs windows n'autorisent pas l’écriture par robot(en l'occurrence vba) dans ces dossiers
je vais revoir la copie

 

[patricktoulon]

re
tu va devoir remettre ton image

 

[MeliChat_47]

re
tu va devoir remettre ton image

Bonjour,
Je ne suis pas certaine de bien vous comprendre. Vous allez me retourner le fichier et je vais changer l'image du courriel est-ce bien ça?

 

[patricktoulon]

re
oui car moi je l'ai pas l'image que tu a

 

[MeliChat_47]

re
oui car moi je l'ai pas l'image que tu a

Bonjour M. Toulon,

Encore moi, maintenant il y a 2 fois chaque capture d'écran en pièce jointe dans le courriel mais qui sont échoués... et lorsqu'on clique sur quitter j'ai un message d'erreur... Est-ce possible de m'aider encore une fois?

Si c'est trop compliqué d'avoir les 2 onglets dans le courriel est-ce qu'on peut avoir seulement celui de Lucie? Est-ce qu'on doit avoir la capture en pièce jointe absolument? J'essai de trouver des idées...

 

[patricktoulon]

re
bonsoir

 

[MeliChat_47]

re
bonsoir

Reeee bonsoir 😅

Il mets 4 pièces jointes et elles sont échouées... Mais nous sommes capable de quitter le userform...

Je crois qu'il ne manque pas grand chose...

Merci de votre patience!
Mélissa

 

[patricktoulon]

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