Bonjour,
Je suis un novice de chez novice en VBA et je voudrais souvegarder la feuille active en xlsx (une nouvelle à chaque fois, pas en remplaçant l'actuelle). le code ci-dessous en pdf fonctionne très bien mais dès que je chage le format en xlsx dans le code cela ne fonctionne plus.
ChDir _
"C:\XXXXXXXX\1_Cuisine\3_Recettes"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\XXXXXXXX\1_Cuisine\3_Recettes\1_Cuisine\3_Recettes\" & Range("A4").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Egalement, connaissez vous le code pour pour enregistrer en PDF, donc le même code qu'en haut mais dans un fichier en fonction du nom d'une cellule (en l'occurence C2). Le chemin serait comme suit: (après 1_Fiche Recette = choix du dossier en fonction de la cellule C2
ChDir _
"C:\XXXXXXXX\1_Cuisine\3_Recettes\1_Fiche Recette"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\XXXXXXXX\1_Cuisine\3_Recettes\1_Cuisine\3_Recettes\\1_Fiche Recette" & Range("A4").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Merci d'avance pour votre aide la communauté
Jonathan
Je suis un novice de chez novice en VBA et je voudrais souvegarder la feuille active en xlsx (une nouvelle à chaque fois, pas en remplaçant l'actuelle). le code ci-dessous en pdf fonctionne très bien mais dès que je chage le format en xlsx dans le code cela ne fonctionne plus.
ChDir _
"C:\XXXXXXXX\1_Cuisine\3_Recettes"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\XXXXXXXX\1_Cuisine\3_Recettes\1_Cuisine\3_Recettes\" & Range("A4").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Egalement, connaissez vous le code pour pour enregistrer en PDF, donc le même code qu'en haut mais dans un fichier en fonction du nom d'une cellule (en l'occurence C2). Le chemin serait comme suit: (après 1_Fiche Recette = choix du dossier en fonction de la cellule C2
ChDir _
"C:\XXXXXXXX\1_Cuisine\3_Recettes\1_Fiche Recette"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\XXXXXXXX\1_Cuisine\3_Recettes\1_Cuisine\3_Recettes\\1_Fiche Recette" & Range("A4").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Merci d'avance pour votre aide la communauté
Jonathan