Pb Macro
Jul74250ien
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 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
A voir également:
- Pb Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
1 réponse
Bonjour,
a vous de voir:
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
