Microsoft 365 Aperçu avant impression (par fichier>imprimer>aperçu) différent de la VBA créée à cet effet

[Karim48]

Bonjour à tous,

Débutant en VBA, je rencontre le problème cité en objet. Lorsque je clique sur le bouton "Générer Fiche d'Accompagnement" l'aperçu qui m'en ressort et différent de celui que j'ai lorsque je clique que sur fichier>imprimer>aperçu. Dans l'idéale, j'aimerais ne conserver en zone d'impression que les lignes pleines en conservant les tableaux tels qu'ils apparaissent sur la Feuille "FICHE D'ACCOMPAGNEMENT" avec les titres, les en-têtes et pieds-de-page.

A terme, j'aimerais créer une macro qui m'enregistrerait le fichier sous le format "date"+ le texte contenu en cellule D5 de la fiche d'Accompagnement sous un format dans le cas présent "061219-Prélèvement(s) sur chantier n°19186". Une fois le fichier enregistré, j'aimerais pouvoir l'envoyer par mail.

Votre aide me serait très précieuse.

Merci beaucoup par avance.

Karim

 

[kingfadhel]

Bonjour le fil,

Voila ce que j'ai pu faire en pièce jointe:

• J'ai créé une 3éme feuille "Fiche Mail"
• j'ai modifié le filtre pour qu'il exporte les données dans la feuille créée
• la suppression des lignes avant export + le formatage et les bordures
• sauvegarde de la feuille au format PDF dans le dossier : D:\dossier ===> à modifier bien-sure
• et finalement l'envoi du fichier créé par mail ("outlook")

 

[kingfadhel]

Re,
modification dans une partie du code macor : Sub SavePDF_Email()

ajoute ce qui est en rouge selon le dossier que tu vas créé

'---Destinataires---
destinataires = "mail1@gmail.com" & ";" & "mail2@msf.tn" & ";" & "mail3@rbkl.fn"
'Ou bien entrer le path et nom du fichier autrement
Nom_Fichier = "D:\Dossier\" & new_name & ".pdf"
If Nom_Fichier = "" Then Exit Sub
'---------------------------------------------------------

 

[kingfadhel]

Re,
une autre version, il suffit de cliquer sur ton bouton "Faire apparaître..." et le tour est joué,
sauvegarde au format PDF, mail, et suppression du fichier pdf créé.

 

[Phil69970]

Bonjour Karim48, Kingfadhel

Pour les 2 points suivants je t'ai fais un fichier qui correspond à ta demande...

A terme, j'aimerais créer une macro qui m'enregistrerait le fichier sous le format "date"+ le texte contenu en cellule D5 de la fiche d'Accompagnement sous un format dans le cas présent "061219-Prélèvement(s) sur chantier n°19186".

je clique que sur fichier>imprimer>aperçu.

Pour la messagerie je n'ai pas regardé.

, j'aimerais pouvoir l'envoyer par mail.

Cordialement

 

[Karim48]

Merci à tous les deux. Merci Kingfadhel pour la conversion pdf et le mailing. J'ai un peu réajuster à mon gout mais grace à vous c'est totalement fonctionnel. Merci encore