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

XL 2016 joindre fichier PDF par mail via différent PC

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
N

nettoyageduperche

XLDnaute Nouveau
Bonjour,
j'ai crée un logiciel de planning, qui peu être utilisé sur plusieurs poste de travail.
une fois le planning effectué je l'enregistre en PDF sur ondrive et je l'envoie par mail au collaborateur concerné
L'enregistrement en PDF avec la fonction ENVIRON fonctionne sur tout les postes
en revanche je n'arrive pas a mettre le fichier en pièce jointe dans le mail sur tout les poste.
si j'utilise la fonction ENVIRON la pièce jointe n'est pas attaché.
avez vous une astuce? si dessous le code VBA avec les chemin des autres ordinateurs

Private Sub envoyer_mail_Click()
Dim lemail As Variant
Dim adressemail As String

'sauvegarder la facture en pdf
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Environ("userprofile") & "\OneDrive\PLANNING\" & Range("k7") & " planning " & Range("a1"), openafterpublish:=True


'envoyer la facture par mail;
Set lemail = CreateObject("outlook.application")

'rechercher l'adresse mail
adressemail = ActiveSheet.Range("a17")

'verifier si il y une adresse mail
If adressemail <> Empty Then
'envoyer un email

With lemail.CreateItem(olMailItem)
.Subject = "Planning "
.To = adressemail
.HTMLBody = "bonjour" & "," & "<br> ci-joint votre nouveau planning " & "," & "<br> NETTOYAGE DU PERCHE 02 37 52 25 16 <br> Cordialement"
.Display 'display pour voir le mail et send pour envoyer le mail
.Attachments.Add ("C:\Users\nettoyageduperche\OneDrive\PLANNING\" & Range("k7") & " planning " & Range("a1") & ".pdf")

'les chemins pour les autres postes
'pc jojo : .attachments.add("C:\Users\Admin\OneDrive\PLANNING\" & Range("k7") & " planning " & Range("a1") & ".pdf")
'pc pauline: .attachments.add("C:\Users\Utilisateur\OneDrive\PLANNING\" & Range("k7") & " planning " & Range("a1") & ".pdf")


End With

End If
Range("a1") = Range("a1") + 1
MsgBox ("votre planning est bien enregistré")
ActiveWorkbook.Save

End Sub
 
Trier par date Trier par votes
Bonjour Nettoyageduperche,
Ce n'est pas clair. J'ai compris que ça marchait avec C:\Users\nettoyageduperche\OneDrive\PLANNING\ mais pas avec les autres chemin.

Juste une interrogation :
Etes vous sur de vos chemins :
C:\Users\Admin\OneDrive\PLANNING\ et
C:\Users\Utilisateur\OneDrive\PLANNING\
c'est bizarres ces arborescence Users\Admin et Users\Utilisateur ?

Une autre piste peut être est l'utilisation de Environ(20) au lieu de Environ(48).

Ci dessous Environ qui concerne User :
NEnviron(N)
1ALLUSERSPROFILE=C:\ProgramData
2APPDATA=C:\Users\PC_Name\AppData\Roaming
12FPS_BROWSER_USER_PROFILE_STRING=Default
15HOMEPATH=\Users\PC_Name
16LOCALAPPDATA=C:\Users\PC_Name\AppData\Local
20OneDrive=C:\Users\PC_Name\OneDrive
21OneDriveConsumer=C:\Users\PC_Name\OneDrive
39PUBLIC=C:\Users\Public
45USERDOMAIN=PC_Name-HP
46USERDOMAIN_ROAMINGPROFILE=PC_Name-HP
47USERNAME=PC_Name
48USERPROFILE=C:\Users\PC_Name
 
Vote positif 0 Vote négatif
Bonjour
normalement environ userprofile devrait fonctionner
environ("userprofile") &"\OneDrive\PLANNING\" & Range("k7") & " planning " & Range("a1") & ".pdf")
il n'y a pas de raison
sinon ça veut dire que tes dossiers sont ou ont été modifié
un chose a faire c'est de tester la validité du chemin
msgbox dir (environ("userprofile") &"\OneDrive\PLANNING\" & Range("k7") & " planning " & Range("a1") & ".pdf") )<>""

si tu a false c'est qu'il y a un problème avec les données constituant le chemin
 
Vote positif 0 Vote négatif
 
Vote positif 0 Vote négatif
j'ai fait un copier collet des chemins sur les differents poste
sinon lorsque j'execute cette ligne :
msgbox dir (environ("userprofile") &"\OneDrive\PLANNING\" & Range("k7") & " planning " & Range("a1") & ".pdf") )<>"" j'ai ce message :

 
Vote positif 0 Vote négatif
autant pour moi une parenthèses en trop
msgbox dir (environ("userprofile") &"\OneDrive\PLANNING\" & Range("k7") & " planning " & Range("a1") & ".pdf")<>""
et pendant que t'y est regarde ce que donne la chaine
msgbox dir (environ("userprofile") &"\OneDrive\PLANNING\" & Range("k7") & " planning " & Range("a1") & ".pdf")
 
Vote positif 0 Vote négatif
Ok ca marche cmais c'est pas optimisé
par exemple
tu crée l'object outlook avant meme de savoir si A17 contient une address
tu code le chemin 2 fois

une version de ton code
VB: 
Private Sub envoyer_mail_Click()
    Dim lemail As Object, adressemail$, chemin$, nom$

    With ActiveSheet
        'si il n'y a pas de mail on sort tout de suite on va pas plus loin
        If Trim(.Range("a17")) = "" Then MsgBox "il n'y a pas d'addresse mail en A17": Exit Sub

          
            adressemail = Trim(.Range("a17")) ' l'adresse mail
            
            chemin = Environ("userprofile") & "\OneDrive\PLANNING\"
            nom = .Range("k7") & " planning " & .Range("a1") 'chemin

            
            If Dir(chemin, vbDirectory) <> "" Then 'sauvegarder la facture en pdf
                ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & nom    ', openafterpublish:=True' pas vraiment necessaire le pubish
            Else
                MsgBox "l'application n'a pas pu acceder au dossier/Fichier": Exit Sub
            End If

            ' mail;
            Set lemail = CreateObject("outlook.application")
            With lemail.CreateItem(olMailItem)
                .Subject = "Planning "
                .To = adressemail
                .HTMLBody = "bonjour" & "," & "<br> ci-joint votre nouveau planning " & "," & "<br> NETTOYAGE DU PERCHE 02 37 52 25 16 <br> Cordialement"
                .Display    'display pour voir le mail et send pour envoyer le mail
                .Attachments.Add chemin
            End With

         .Range("a1") = .Range("a1") + 1
        MsgBox ("votre planning est bien enregistré")
    End With
    ActiveWorkbook.Save

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

Discussions similaires

  • Question Question
XL 2019 envoi pdf d'une feuille par gmail et non pas par outlook
Réponses
7
Affichages
310
pascal21
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
2 K
Fabrice16ct
F
D
  • Question Question
Microsoft 365 Envoi mail Outlook depuis Excel : changement de taille de police si signature insérée
Réponses
6
Affichages
2 K
Deadpool_CC
  • Question Question
Microsoft 365 Mail et attachment.pdf
Réponses
3
Affichages
698
Phil69970
M
  • Question Question
Microsoft 365 Joindre une copie de 2 feuilles Excel dans outlook
Réponses
0
Affichages
616
Mika07
M
F
  • Résolu(e)
XL 2016 Envoi mail fichier Excel renommer
Réponses
6
Affichages
982
FS69
F
C
  • Question Question
Microsoft 365 Erreur Automation : L'objet invoqué s'est déconnecté de ses clients
Réponses
9
Affichages
2 K
fanch55
N
  • Résolu(e)
XL 2016 Compléter cellule une fois la macro réalisée
Réponses
7
Affichages
1 K
Phil69970
N
  • Résolu(e)
XL 2016 Ne pas lancer une macro suivant info cellule
Réponses
5
Affichages
2 K
Nikoko
N
N
  • Question Question
Microsoft 365 donner a ma feuille le nom de l'onglet avant envoi par mails
Réponses
2
Affichages
973
Nabster
N
N
  • Question Question
XL 2016 vba pdf , ne veux pas de ma cellule pour nommer le fichier
Réponses
2
Affichages
958
nettoyageduperche
N
G
  • Question Question
XL 2019 Envoi mail depuis Excel sous MAC
Réponses
2
Affichages
6 K
yll92300
Y
S
  • Question Question
XL 2016 Envoi pièce jointe par mail
Réponses
11
Affichages
2 K
SALAH
S
G
  • Question Question
Microsoft 365 Création PDF à partir d'une plage de données et l'insérer dans un email Outlook sur une meme macro
2
Réponses
15
Affichages
2 K
Dranreb
  • Question Question
envois PDF via code VB
Réponses
1
Affichages
1 K
Sylvain
  • Question Question
Gmail via CDO, attacher un fichier PDF, des adresses, un objet et un corps bien définit, code de Roland_M.
2 3
Réponses
43
Affichages
6 K
Roland_M
  • Question Question
Outlook par défaut
Réponses
2
Affichages
1 K
zizan
A
  • Question Question
envoie par mail la fuille active en EXCEL + PDF
Réponses
2
Affichages
1 K
AWB
A
S
  • Question Question
XL 2010 Envoi d'une feuille spécifique par mail via VBA
Réponses
9
Affichages
2 K
Lone-wolf
J
  • Question Question
XL 2013 BUg bizarre; pb d'impression lors d'un envoi de mail ???!!!
Réponses
0
Affichages
604
Jawst
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…