Export facture en PDF
danielc0 Messages postés 2059 Date d'inscription Statut Membre Dernière intervention -
Bonjour, à vous
Je cherche à Exporter mes factures Excel en PDF en créant un dossier en cliquant sur un bouton Exporter pour éviter de faire les manipulations.
Le nom du fichier exporter se concatène avec les cellules E5 et L1 (num facture + client)
Pouvez me faire part, pourquoi le code ci-dessous ne fonctionne pas !! Le fichier se trouve dans un répertoire "Finance" sur onedrive et normalement je devrais retrouver Finance/factures Pdf.
Merci d'avance
Sub EXPORT_PDF()
Dim Dossier
Dim Chemin As String
Dim ws As Worksheet
Set ws = ActiveSheet
If MsgBox(" Voulez vous exporter la facture en PDF ", vbYesNo + vbQuestion, "Confirmation….. ! ") = vbYes Then
On Error Resume Next
Dossier = Application.InputBox("Insérer nom du dossier", "Création du dossier", "Factures PDF ")
Chemin = ThisWorkbook.Path & " / " & Dossier & " : "
If Dossier = True Then
GetAttr (Chemin) And vbDirectory
Else
MkDir (Chemin)
End If
ws.ExportAsFixedFormat xlTypePDF, Chemin & Range("E5").Value & " _ " & Range("L1").Value, xqualitystandard, True, False, 1, 1, False
End If
End Sub
Windows / Edge 142.0.0.0
- Export facture en PDF
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Save as pdf office 2007 - Télécharger - Bureautique
- Télécharger dictionnaire larousse pdf gratuit - Télécharger - Dictionnaires & Langues
- Notices gratuites pdf - Guide
- Facture ryanair - Forum Réseaux sociaux
45 réponses
Bonjour,
Sur mon ordi perso, je ferais une réparation d'Office. Maintenant, tu dois être dans un environnement d'entreprise; tu devrais donc voir avec le responsable informatique. De toutes façons, je ne pense pas que la macro puisse fonctionner avec Exchange. Je n'utilise pas Exchange donc je ne peux pas de fournir une solution. Je vais donc arrêter là ma participation au fil.
Daniel
Hello,
Voici le code qui permet d'envoyer un mail via le serveur SMTP de la connexion active (sans Outlook)
Sub mail()
Set Message = CreateObject("cdo.Message")
' configuration de la messagerie
With Message.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = nom du serveur SMTP de la connexion active (ex : "smtp.free.fr")
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Numéro du port d'envoi (465 généralement en SSL/TLS)
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = nom du compte utilisateur de la BàL utilisé pour l'envoi (ex : si "***@***", utiliser "toto")
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mot de passe du compte utilisateur de la BàL utilisé pour l'envoi (ex : "password")
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Update
End With
' configuration du message
With Message
.Subject = "CSD Tennis de Table – Facture"
.From = "Mon adresse ***@***"
.To = Sheets("Modele Facture").Range("L10").Value
'‘.CC = « ***@*** »
.TextBody = "Veuillez trouver ci joint la facture relative à vos engagements. Cordialement"
.AddAttachment ("chemin complet et nom du fichier")
.Send
End With
Set Message = Nothing
MsgBox "Message envoyé... ou pas :-D"
End Sub
OK. Je comprends bien
J'ai réparé office mais toujours le même problème et non c'est mon ordi perso.
Juste une question avec la fonction ci-dessous est il possible d'attacher un PDF
=LIEN_HYPERTEXTE("mailto:"&L10&"?subject="&W3&"&CC="&E10&"&body="&W5;"MAIL A ENVOYER")
Bizarrement ça fonctionne avec le nouvel outlook
Merci beaucoup pour ta patience
Xavier
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionJuste une question avec la fonction ci-dessous est il possible d'attacher un PDF
=LIEN_HYPERTEXTE("mailto:"&L10&"?subject="&W3&"&CC="&E10&"&body="&W5;"MAIL A ENVOYER")
Non, pour 2 raisons
1 : ça n'est pas prévu dans le mailto
2 : ça n'arrangera pas votre souci de messagerie car elle doit être configurée (correctement)
https://fr.wikipedia.org/wiki/Mailto
