Chemin Variable Google Drive

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

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.

Rechercher des sujets similaires à "chemin variable google drive"