FOUQUET Yves
XLDnaute Occasionnel
Bonsoir,
J'essaye d'exporter une feuille active "Le_cerfa_Excel" en pdf dans un dossier "cerfa" situé sous "D:\Gestion AHI V2\".
Je voudrai la nommer "Cerfa N° "& "H4" de la feuille active "Le_cerfa_Excl"
Je plante, je plante, je plante...
HELP... merci d'avance.
J'essaye d'exporter une feuille active "Le_cerfa_Excel" en pdf dans un dossier "cerfa" situé sous "D:\Gestion AHI V2\".
Je voudrai la nommer "Cerfa N° "& "H4" de la feuille active "Le_cerfa_Excl"
Je plante, je plante, je plante...
HELP... merci d'avance.
VB:
Option Explicit 'Activation de la déclaration explicite des variables
Dim Ws As Worksheet 'Variable pour un Objet Worksheet en PUBLIC pour tous les Controls de cet UserForm
Private Sub CommandButton1_Click()
Dim fichier As String
Dim NomDossier As String
Dim CheminDossier As String
NomDossier = "cerfa" ' nom du dossier ou doit aller le pdf
CheminDossier = "D:\Gestion AHI V2\" ' chemin de ce dossier
Set Ws = Sheets("Le_cerfa_Excel") ' feuille active "Le_cerfa_Excel" dans le classeur "Essai export PDF" de cette macro.
' la commande ci dessous ne passe pas! "argument ou appel de procedure incorrect"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & NomDossier & "Cerfa N°" & Range("H4").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End Sub