Email

Bonjour à tous, étant novice en la matière, je sollicite votre aide.

J'ai ce bout de code qui me permet d'envoyer un mail avec une pièce jointe en PDF à partir d'une feuille Excel, mais cela ne fonctionne pas, car la feuille en question est masquée (feuil 5) l'adresse d'enregistrement du PDF est différente de celle du classeur, mais je n'arrive pas à enregistrer le PDF où je veux

Pouvez, vous m'aidez

Private Sub EnvoisMail()

Dim OutlookApp As Object

Dim Mail As Object

Dim curfile

Set OutlookApp = CreateObject("Outlook.Application")

Set Mail = OutlookApp.CreateItem(0)

curfile = ThisWorkbook.Path & "\" & Range("C3").Value & "_" & Range("C8").Value & ".Pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=curfile, _

Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _

OpenAfterPublish:=False

With Mail

.SentOnBehalfOfName = "boite mail"

.To = ActiveSheet.Range("C10").Text

.Subject = "Duplicata De Reçu "

.HTMLBody = "<br><br>" & GetBoiler("adresse fichier htm")

.Attachments.Add curfile

.Send

End With

ActiveWorkbook.Save

End Sub

Bonsoir,

Ci-dessous voici le code que j'utilise sur un bouton et qui m'enregistre ma feuille active, a la fois en XLSM dans un dossier, et en PDF dans un autre dossier et qui se nomme automatiquement selon les cellules nommés. en esperant que ca puisse t'aider.

Sub enregistrefacture()
Dim Chemin As String, Fichier As String

          Fichier = Range("R11") & "" & Range("D18") & " " & Format(Date, "mmm yyyy") & " " & Range("F11") & " " & Range("F4")
          If Len(Trim(Fichier)) = 0 Then
             MsgBox "Pas de nom de fichier"
            Exit Sub
          End If

          With Application.FileDialog(msoFileDialogFolderPicker)
            .InitialFileName = "CHEMIN D'ACCES QUI ENREGISTRE LA FEUILLE ACTIVE EN .xlsm\"
            If .Show = -1 Then    ' Clic sur Ok
           Chemin = .SelectedItems(1)
            Else
              ' Clic sur Annuler
           Exit Sub
            End If
          End With
          ActiveSheet.Copy
          With ActiveWorkbook
            .SaveAs Filename:=Chemin & "\" & Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
            .Close
          End With
          ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="CHEMIN D'ACCES Où S'ENREGISTRE LE PDF" & "\" & Range("R11") & "" & Range("D18") & " " & Format(Date, "mmm yyyy") & " " & Range("F11") & " " & Range("F4"), Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
End Sub

nickel merci a toi