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

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

Créer une discussion

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
M

MeliChat_47

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



 

Pièces jointes

Trier par date Trier par votes
patricktoulon à dit:
re
supprime cette ligne
VB: 
    mail1.Picture = Application.CommandBars.GetImageMso("MicrosoftOutlook", 50, 50)
et met l'image que tu veux comme tu a fait pour les autres
Cliquez pour agrandir...
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😀
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
patricktoulon à dit:
re
oui car moi je l'ai pas l'image que tu a
Cliquez pour agrandir...
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...





 
Vote positif 0 Vote négatif
dans le modul outlook_mod

change tout
VB: 
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
 
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
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…