Bonjour,
Je sais que ce sujet a été maintes fois abordé. J'ai essayé les différentes solutions proposées, mais lorsque je lance la macro, j'ai un bug ou l'enregistrement ne se fait pas là où je le souhaiterai.
Ma problématique : Je dois enregistrer une feuille excel (2007) en PDF en renommant le automatiquement par le contenu d'une cellule. Le pdf doit s'ouvrir à la fin pour impression.
Mon fichier s'appelle : Gestion des litiges, le nom est contenu dans la cellule AC16, et le dossier de destination est : y:\commun\test.
Voici la macro que j'ai fait et merci de me dire où cela pêche:
"Sub Arc()
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=x2TypePDF
extension = ".pdf"
chemin = "y:\jmarcel\fnc fournisseur\test ne pas utiliser\"
nomfichier = ActiveSheet.Range("AC16") & extension
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier
End With
Quality = xlQualityStandard
IncludeDocProperties = True
IgnorePrintAreas = False
OpenAfterPublish = True
End Sub"
Merci d'avance de me donner un coup de pouce sur cette problématique !