bonjour,
j'ai un classeur excel avec certaine feuilles qui doivent être enregistrées au format pdf, après plusieurs test de macro (enrgistrement et excel-downloads forums) la macro fonctionne bien mais le fichier pdf est enregistré dans un dossier déterminé. Cependant le fichier excel sera dupliqué pour être utilisé plusieurs fois dans des dossiers différents et je souhaiterais que le les fichiers pdf créées soient dans le même dossier que le fichier excel.
voici le code utilisé:
Sub pdfcme()
'
' pdfcme Macro
'
'enregistre au format pdf avec comme nom PEC N° (numéro du pec dans la feuille accueil) cme.
Sheets("cme").Select
Range("E4").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\baptistee\Desktop\PEC N°" & (Feuil13.[b1]) & "cme.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Sheets("cme resultats").Select
End Sub
la partie qui doit être changé est je pense la partie en rouge mais je n'arrive pas à trouver la solution.
merci de votre aide.
j'ai un classeur excel avec certaine feuilles qui doivent être enregistrées au format pdf, après plusieurs test de macro (enrgistrement et excel-downloads forums) la macro fonctionne bien mais le fichier pdf est enregistré dans un dossier déterminé. Cependant le fichier excel sera dupliqué pour être utilisé plusieurs fois dans des dossiers différents et je souhaiterais que le les fichiers pdf créées soient dans le même dossier que le fichier excel.
voici le code utilisé:
Sub pdfcme()
'
' pdfcme Macro
'
'enregistre au format pdf avec comme nom PEC N° (numéro du pec dans la feuille accueil) cme.
Sheets("cme").Select
Range("E4").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\baptistee\Desktop\PEC N°" & (Feuil13.[b1]) & "cme.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Sheets("cme resultats").Select
End Sub
la partie qui doit être changé est je pense la partie en rouge mais je n'arrive pas à trouver la solution.
merci de votre aide.