Création et envoi pdf par macro VBA [Résolu]

Philippe - Dernière réponse le 17 nov. 2010 à 16:23

Rebonjour à tous,
D'avance merci à tous ceux qui mettent leur expérience au service des autres!
Voici mon petit soucis,
j'ai créé la macro que voici

Sub EnvoiMailMediven()    
ActiveSheet.Unprotect Password:="xxxx"    
ActiveSheet.Range("A1:K17").Select    
ActiveWorkbook.EnvelopeVisible = True    
ReturnReceipt = True    
With ActiveSheet.MailEnvelope    
    .Introduction = "bonjour , ci joint notre commande pour des xxxx"    
    .Item.To = "info@xxxx.be"    
    .Item.Subject = "commande xxxx"    
    .Item.Send    
End With    
Range("A11").Select    
ActiveWorkbook.Save    
ActiveSheet.Protect Password:="xxxx"    
End Sub

Comme vous le voyez cette macro me permet d'envoyer un tableau excel par mail.
Cela fonctionne très bien mais lorsque la personne qui reçoit ce mail désire l'imprimer il manque une partie du tableau (Fichtre, embêtant ca).
Au début je croyais qu'il s'agisait d'un problème de configuration de l'imprimante, mais j'ai beau changer cette configuration le problème reste le même (il me manque toujour une partie).
Depuis aujourd'hui je me demande si cela ne vient pas de la macro et si il serait possible de modifier celle-ci pour qu'elle prenne en compte des critères de taille?
J'espère que mes explications sont claires et j'ai hâte de lire vops suggestions.
Merci à tous
Philippe

Création et envoi pdf par macro VBA »

Suggestions

Création et envoi pdf par macro VBA
Impression en pdf et Macro VBA » Forum
Problèmes macro VBA envoi mail (Résolu) » Forum
Soucis création d'une macro VBA (débutant) (Résolu) » Forum
Débutante VBA, macro Excel/Word » Forum
VBA macro pour convertir en pdf » Forum

Plus

Réponse

pijaku 4444Messages postés 15 mai 2008Date d'inscription 24 avril 2012Dernière intervention 9 nov. 2010 à 15:07

Bonjour,
Juste en passant comme cela et à tout hasard, la partie qui s'imprime correctement ne serait elle pas : "A1:K17"?

Ajouter un commentaire - Site web

Philippe - 9 nov. 2010 à 15:18

Je sens comme qui dirait une pointe d'humour dans ta question.
Et bien non, "A1:K17" est bien la zone qu'il faut imprimer mais qui ne s'imprime pas en entier (j'aurais préféré que ce soit le cas, on aurait bien rigoler tous les deux)!

Cela dit merci à toi de m'avoir répondu car on ne se pousse pas au portillon pour m'aider.
Mais je ne perd pas espoir.

pijaku- 9 nov. 2010 à 15:24

Non cela n'étais pas de l'humour.
Le destinataire du mail reçoit tout le tableau, dans le corps du message, mais à l'impression tout ne s'imprime pas. C'est bien cela?

Philippe - 9 nov. 2010 à 16:00

C'est exactement ca!
Et même en configurant son imprimante différemment, ca ne fait que diminuer le problème mais sans le régler totalement

Réponse

cousinhub29 460Messages postés 10 août 2010Date d'inscription 27 mai 2012Dernière intervention 9 nov. 2010 à 15:23

Bonjour,

quelles références as-tu, dans ton code (sous VBE, Outils/Références)

Et sinon, n'aurais-tu point une zone d'impression de pré-définie?

@ te relire

Ajouter un commentaire

Philippe - 9 nov. 2010 à 16:12

que veut tu dires par référence dans mon code?
je ne crois pas avoir une zone d'impression prédéfinie car quand la personne change ses paramètre d'impression ca diminue le problème sans le régler totalement

Réponse

cousinhub29 460Messages postés 10 août 2010Date d'inscription 27 mai 2012Dernière intervention 9 nov. 2010 à 16:24

Re-;

Lorsque tu es sous VBE (Visual Basic Edition) par le biais de "Alt + F11", tu as accès à une barre de menus...

Si tu cliques sur "Outils/Références", tu as les références requises pour dérouler ton code...

C'était cela que je te demandais....

Maintenant, vu que "tu ne crois pas" que tu aies une zone d'impression...

Peut-être un souci d'interface Clavier/Dossier?

Il sait régler une zone d'impression? (ton interlocuteur)

Bon courage

Ajouter un commentaire

Philippe - 9 nov. 2010 à 16:37

5 références sont disponibles

- visual basic for applications
- microsoft excel 11.0 object library
- ole automation
- microsoft office 11.0 object library
- microsoft forms 2.0 objetct library

Réponse

cousinhub29 460Messages postés 10 août 2010Date d'inscription 27 mai 2012Dernière intervention 9 nov. 2010 à 16:50

Re-,

Je te posais cette question, car je n'arrive pas à reproduire ton souci chez moi....(ni à utiliser ton code, d'ailleurs....)

Ayant activé les mêmes références que toi, je n'y arrive toujours pas...

So, je ne vais plus être d'une grande utilité, ne pouvant utiliser le même code que toi....

PS, tu le déroules bien sous Excel?

Ajouter un commentaire

Philippe - 9 nov. 2010 à 16:55

oui excel 2003 (sp3)

Réponse

Philippe 10 nov. 2010 à 09:51

Rebonjour,

Personne d'autre n'aurait une idée pour mon petit problème?
SVP

Merci

Ajouter un commentaire

Afficher les 26 commentaires

pijaku- 10 nov. 2010 à 10:02

Salut philippe,
1- Sans changer la configuration de ton tableau, largeur des colonnes, hauteru lignes etc, peux tu placer un exemple de ton tableau, sans données confidentielles, sur cijoint.fr et venir coller le lien ici dans une réponse?
2- Si tu cliques sur mon pseudo, au dessus d'un de mes messages, tu arrives dans mon profil. Dedans, tu trouveras mon mail. Envoie moi un exemple de ton tableau à cette adresse, comme tu le fais par macro bien sur...

Philippe - 10 nov. 2010 à 12:11

Voilà le lien pour le fichier excel

http://www.cijoint.fr/cjlink.php?file=cj201011/cijBFqtZiv.xls

pour le reste je n'étais pas encore membre sur ce forum je n'ai pas accès à ton adresse mail.
Je me suis inscris mais je ne s'aurais confirmer cette inscription que ce soir chez moi car ici je suis au bureau.
D'avance mille merci pour ton aide !

trifon 2- 15 nov. 2010 à 15:35

Pour info philippe est devenu trifon 2
désolé pour le retard mais j'ai été absent jusqu'à aujourd'hui
voilà je t'ai envoyé un exemple du tableau par mail.
ci-dessus tu trouveras le lien pour le programme excel

Merci encore

pijaku- 16 nov. 2010 à 09:09

Et bien ciao philippe et bienvenue à trifon 2...
J'ai bien reçu le mail. Tout est nickel, même à l'impression. Cela me conforte dans l'idée que cela ne vient pas de la macro ni du fichier excel, mais du logiciel de messagerie. Soit le tien, soit celui du(des) correspondant(s)...
De toutes manières, s'agissant de commandes, il serait préférable pour toi de le joindre au mail en pièce jointe plutôt que dans le corps du message. De plus, le format .pdf serait plus adapté. Je reviens tout à l'heure après recherches...

trifon 2- 16 nov. 2010 à 10:56

effectivement on m'avait déjà conseillé de le faire en pdf.
le problème était, comment faire au niveau de la macro, mes comptétence s'arrête là.

pijaku- 16 nov. 2010 à 11:02

Salut,
Si tu as Excel 2007, ça va être facile. Donc : de qu'elle version d'Excel disposes tu?

trifon 2- 16 nov. 2010 à 11:37

malheureusement c'est excel 2003 avec SP3.
j'espère que ca ne va pas trop compliquer les choses

pijaku- 16 nov. 2010 à 12:08

On va donc procéder par étape.
As tu un logiciel adobe te permettant d'imprimer en pdf? si non tu peux en télécharger un ici
Dès que c'est fait, il te faudra me donner le nom complet de cette "imprimante". Pour cela copie colle cette macro :

Sub test()
Dim Impr As String
Impr = Application.ActivePrinter
MsgBox Impr
End Sub

Change l'imprimante active comme ceci :
1- Fichier/Imprimer
2- choisit l'imprimante "virtuelle" pdf puis clique sur annuler
3- lance la macro elle te donnera le nom complet.

trifon 2- 16 nov. 2010 à 12:45

voilà
le nom complet est (CutePDF Writer sur CPW2)
pour le logiciel adobe il s'agit de "Adobe reader 8"

pijaku- 16 nov. 2010 à 13:00

Donc la macro deviendrait :
'---partie création du pdf----

Sub Imprime_pdf()
Dim Defaut_Impr
Defaut_Impr = Application.ActivePrinter
Application.ActivePrinter = "CutePDF Writer sur CPW2"
    ActiveSheet.PrintOut Copies:=1, Collate:=True
Application.ActivePrinter = Defaut_Impr
End Sub

Ensuite pour l'envoi par mail, voir cette discussion

trifon 2- 16 nov. 2010 à 14:02

j'ai un message d'erreur
erreur d'exécution '1004'
la méthode 'ActivePrinter'de l'objet'_Application' à échoué

si j'ai bien compris la macro crée un fichier pdf avec le tableau, mais où va-t-elle le stocker?

pijaku- 17 nov. 2010 à 08:26

N'y avait il pas deux points après CPW2, comme ceci : CPW2:
Refais le test pour vérifier :
1- change l'imprimante par défaut (fichier/imprimer choisit CutePDF et clique sur fermer
2- lance cette macro :

Sub test()
MsgBox Application.ActivePrinter
End Sub

Elle va en effet créer le pdf et l'enregistrer ou tu veux... La fenêtre Enregistrer sous s'ouvre d'elle même...

trifon 2- 17 nov. 2010 à 11:42

Salut,

Effectivement tu avais raison, il manquait les deux point après CPW2.
Depuis j'ai testé et sa marche (super)
J'ai aussi été voir la discussion pour l'envoi par mail
petites questions :
- est-il possible d'intégrer la macro qui crée le fichier pdf avec celle qui effectue l'envoi par mail de manière à n'avoir qu'une seule macro qui effectue toute l'oppération?
- le fichier pdf sera-t-il toujour le même ou sera-t-il différent au fure et à mesure de mes envois par mail.

en clair mon objectif serait(si c'est réalisable bien-sure) que la même macro crée un fichier pdf et l'envoi au destinataire sans autre intervention de ma part.

pijaku- 17 nov. 2010 à 11:44

Je regarde cela. Le problème est de mettre "en attente" la macro le temps d'enregistrer le pdf...
Ca doit pouvoir se faire!

pijaku- 17 nov. 2010 à 12:02

En fait, même pas besoin de la mettre en pause cette macro. Ceci fonctionne chez moi jusqu'à "send"... Mais teste la car je n'ai pas de messagerie configurée ici...

Sub Imprime_pdf()
Dim Defaut_Impr
Dim CdoMessage As Object
Dim Fichier As Variant

Defaut_Impr = Application.ActivePrinter
Application.ActivePrinter = "Adobe PDF sur Ne28:"
    ActiveSheet.PrintOut Copies:=1, Collate:=True
Application.ActivePrinter = Defaut_Impr

    Fichier = Application.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf")
    If Fichier = False Then Exit Sub
        
    Set CdoMessage = CreateObject("CDO.Message")
    With CdoMessage
        .Subject = "Exemple"
        .From = "xxxxx@wanadoo.fr"
        .To = "yyyyy@orange.fr"
        .CC = ""
        .BCC = ""
        .TextBody = "Texte dans le corps de message"
        .AddAttachment Fichier
        .Send
    End With
    
    Set CdoMessage = Nothing

End Sub

trifon 2- 17 nov. 2010 à 13:00

je crois qu'on avance,mais ca bloque à send...
voici le message d'erreur et le code que j'ai utilisé

<ital>erreur d'exécution '-2147220960 (80040220)':
la valeur de configuration"SendUsing" est non valide</ital

Sub Imprime2_pdf()
Dim Defaut_Impr
Dim CdoMessage As Object
Dim Fichier As Variant

Defaut_Impr = Application.ActivePrinter
Application.ActivePrinter = "CutePDF Writer sur CPW2:"
    ActiveSheet.PrintOut Copies:=1, Collate:=True
Application.ActivePrinter = Defaut_Impr

    Fichier = Application.GetOpenFilename("Fichiers PDF (Classeur1.pdf), Classeur1.pdf")
    If Fichier = False Then Exit Sub
        
    Set CdoMessage = CreateObject("CDO.Message")
    With CdoMessage
        .Subject = "Exemple"
        .From = "xxx@xxx.fr"
        .To = "xxx@xxx.fr"
        .CC = ""
        .BCC = ""
        .TextBody = "Test envoi mail"
        .AddAttachment Fichier
        .Send    End With
    
    Set CdoMessage = Nothing

End Sub

Autre chose lorsque j'active la macro il me demande d'abord d'enregistrer le fichier pdf, comme c'est toujour le même (classeur1.pdf) il me dit que le fichier pdf existe déjà et me demande si je veux le remplacer (je confirme) et directement après il me demande quel fichier il doit ouvrir pour l'envoi (mais là encore c'est toujour classeur1.pdf).

n'y a-t-il pas moyen de simplifier

pijaku- 17 nov. 2010 à 13:16

je regarde cela cet aprème...

pijaku- 17 nov. 2010 à 13:36

petite question : ton logiciel de messagerie est ?

trifon 2- 17 nov. 2010 à 14:09

Microsoft office Outlook 2003 (11.8313.8221) SP3

pijaku- 17 nov. 2010 à 14:18

Essaye donc un peu ceci :

Sub Imprime2_pdf()
Dim Defaut_Impr
Dim ol As Object, myItem As Object
Dim strHtml, Fichier As String

Defaut_Impr = Application.ActivePrinter
Application.ActivePrinter = "Adobe PDF sur Ne28:"
    ActiveSheet.PrintOut Copies:=1, Collate:=True
Application.ActivePrinter = Defaut_Impr
    Fichier = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 4) & ".pdf"
    If Fichier = "" Then Exit Sub
        
   strHtml = "Bonjour , <BR>"
strHtml = strHtml & "<B><font size=6mm>" & _
"vous trouverez ci joint le fichier demandé</font></B>"
strHtml = strHtml & "<BR><BR><BR>" & _
"<font color=red>Cordialement</font>" & "<BR>"
strHtml = strHtml & Environ("UserName")
strHtml = strHtml & ""

Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)

myItem.To = "adresse Email"
myItem.Subject = "envoi d'un fichier attaché"
myItem.HtmlBody = strHtml
'fichier en cours d'utilisation envoyé en attaché:
myItem.Attachments.Add Fichier
myItem.Send

Set ol = Nothing

End Sub

trifon 2- 17 nov. 2010 à 15:02

je bloque sur la partie "myItem.Attachments.Add Fichier" ci-dessous
c'est probablement parce que je n'ai pas fait quelque chose!

myItem.To = "xxx@xxx.fr"
myItem.Subject = "envoi d'un fichier attaché"
myItem.HtmlBody = strHtml
'fichier en cours d'utilisation envoyé en attaché:
myItem.Attachments.Add Fichier
myItem.Send

Set ol = Nothing

encore une fois merci pour ta patience et ton aide

pijaku- 17 nov. 2010 à 15:05

Ou c'est de ma faute... J'ai présumé que ton fichier excel s'appelait "classeur1.xls". Ce n'est peut être pas le cas. J'ai supposé également que tu enregistrait ton fichier pdf dans le même répertoire que ton fichier excel. Ce n'est peut être pas le cas non plus.
Pour le test, remplace cette ligne :
Fichier = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 4) & ".pdf"
par :
Fichier = "C:\mets_ici_tout_\le_chemin\d'acces_à_\ton\fichier\Classeur1.pdf"
Et cela devrait fonctionner...

trifon 2- 17 nov. 2010 à 15:35

excellent, ca fonctionne (mais encore un petit bémol)

visiblement l'envoi du mail se fait avant la mise à jour du fichier pdf, donc quand je reçois le mail c'est celui avant modification alors que le fichier pdf à bien été modifié

pijaku- 17 nov. 2010 à 15:41

On doit donc ajouter une temporisation... Remplace ta macro par :
!!! remplace encore la ligne "fichier = "

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Imprime2_pdf()
Dim Defaut_Impr
Dim ol As Object, myItem As Object
Dim strHtml, Fichier As String

Defaut_Impr = Application.ActivePrinter
Application.ActivePrinter = "Adobe PDF sur Ne28:"
    ActiveSheet.PrintOut Copies:=1, Collate:=True
Application.ActivePrinter = Defaut_Impr
Sleep 10000
    Fichier = "C:\mets_ici_tout_\le_chemin\d'acces_à_\ton\fichier\Classeur1.pdf" 
    If Fichier = "" Then Exit Sub
        
   strHtml = "Bonjour , <BR>"
strHtml = strHtml & "<B><font size=6mm>" & _
"vous trouverez ci joint le fichier demandé</font></B>"
strHtml = strHtml & "<BR><BR><BR>" & _
"<font color=red>Cordialement</font>" & "<BR>"
strHtml = strHtml & Environ("UserName")
strHtml = strHtml & ""

Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)

myItem.To = "adresse Email"
myItem.Subject = "envoi d'un fichier attaché"
myItem.HtmlBody = strHtml
'fichier en cours d'utilisation envoyé en attaché:
myItem.Attachments.Add Fichier
myItem.Send

Set ol = Nothing

End Sub

trifon 2- 17 nov. 2010 à 16:18

super extra ca marche super !!!!!!!!!!!!!!
Mille merci
malheureusement je ne suis pas sure de pouvoir un jour te renvoyer l'assenceur......mais qui sait?
tu as été hyper patient
si je devais encore avoir des petits soucis, puis encore abuser dans le futur?

pijaku- 17 nov. 2010 à 16:23

Ce site est là pour ça.
N'hésite surtout pas à passer, pour tout et n'importe quoi...
Si tu veux me renvoyer l'ascenseur, essaye d'aider à ton tour quelqu'un sur le forum un jour ou tu auras le temps...
Voilà a+ et n'hésite pas!!!

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

Création et envoi pdf par macro VBA [Résolu]

Création et envoi pdf par macro VBA »

Passage au tout numérique : quel coût pour les particuliers ?