Chemin Variable Google Drive
Invité
Bonjour le forum,
J'ai un code sur un bouton pour un enregistrement de fichier en PDF puis envoi par mail via Outlook que voici:
Private Sub CommandButton6_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim sNomFic As String, sRep As String
Date_F = Format(Date, "dd-mm-yy")
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
sNomFic = "Devis " & Worksheets("Info Devis").Range("B3") & ".pdf"
strbody = "<font face=""century gothic""><font size=""3"">Madame,<br><br>" & _
"Pour faire suite à votre demande veuillez trouver ci-joint une proposition de devis"
With Worksheets("Devis")
fichier = "\" & "Devis" & Worksheets("Info Devis").Range("B3") & " du " & Date_F & ".pdf"
Dossier = "C:\Users\Michael\Google Drive\Devis envoyés"
Chemin = Dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
On Error Resume Next
With OutMail
.Display
.To = ""
.Cc = ""
.Attachments.Add "C:\Users\Michael\Google Drive\Devis envoyés" & Worksheets("Info Devis").Range("B3") & " du " & Date_F & ".pdf"
.Subject = "Devis " & Worksheets("Info Devis").Range("b3")
.HTMLBody = strbody & .HTMLBody
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Par contre, nous sommes plusieurs à vouloir utiliser ce dossier dans Google DRIVE et makheuresuement, le chemin pour ce dossier est différent pour chaque poste et chaque user.
Comment puis-je intégrer cette variable ?
Merci d'avance pour votre aide.
Michael
bonjour,
à tester
Private Sub CommandButton6_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim sNomFic As String, sRep As String
Date_F = Format(Date, "dd-mm-yy")
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
sNomFic = "Devis " & Worksheets("Info Devis").Range("B3") & ".pdf"
strbody = "<font face=""century gothic""><font size=""3"">Madame,<br><br>" & _
"Pour faire suite à votre demande veuillez trouver ci-joint une proposition de devis"
With Worksheets("Devis")
fichier = "\" & "Devis" & Worksheets("Info Devis").Range("B3") & " du " & Date_F & ".pdf"
dossier = "C:\Users\" & Environ("username") & "\Google Drive\Devis envoyés"
Chemin = dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
On Error Resume Next
With OutMail
.Display
.To = ""
.Cc = ""
.Attachments.Add dossier & fichier
.Subject = "Devis " & Worksheets("Info Devis").Range("b3")
.HTMLBody = strbody & .HTMLBody
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Invité
Tout simplement !! (quand on le sait...)
Merci beaucoup !
Euh.. non...
Au temps pour moi.
Ca fonctionne toujours bien sur mon poste, mais pas celui d'un collaborateur.