Pb Macro Fermé

Question

Bonjour à tous, 

sur un des mes fichiers j'utilise cette macro:

Sub Enreg_Pdf()
Dim LaDate As String, HeureJulien As String, LeRep As String
LaDate = Format(Date, "yyyymmdd")
HeureJulien = Range("N2").Value
LeRep = ThisWorkbook.Path & "HeureJulien"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="heure Julien" & "_" & "semaine " & Range("C8").Value & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
End Sub


Le hic, c'est qu'elle me fais bien un fichier pdf mais elle l'enregistre dans mes documents. Je voudrais que ca pointe vers le dossier ou se trouve le fichier excel.

Merci.

Julien

f894009 · Answer

Bonjour,

 a vous de voir:

Sub Enreg_Pdf()    Dim LaDate As String, HeureJulien As String, LeRep As String    LaDate = Format(Date, "yyyymmdd")    HeureJulien = Range("N2").Value     '??????????? sert a quoi    LeRep = ThisWorkbook.Path    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=LeRep & "\heure Julien" & "_" & "semaine " & Range("C8").Value & ".pdf", Quality:= _    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _    From:=1, To:=1, OpenAfterPublish:=FalseEnd Sub

Pb Macro

1 réponse

Discussions similaires