Pb Macro
Jul74250ien
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
sur un des mes fichiers j'utilise cette macro:
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
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
1 réponse
-
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:=False
End Sub
