Macro impression pdf

dilank à dit:

ou alors cela s'enregistre quelque part.. ??

Cliquez pour agrandir...

ThisWorkbook.Path & "\" & Range("G4") & ".pdf"

Cliquez pour agrandir...

Staple1600 à dit:

Bonjour à tous

dilank
j'ai lu tout le fil, j'ai retenu ceci.

Est-ce bien le cas chez toi?

EDITION: Et donc avec une boucle, je confirme que le code soumis par Modeste Geedee n'est pas dans l'incapacité de fonctionner correctement 😉

Code:

Sub Macro1B()
Dim i, sPath$, f As Worksheet
sPath = "C:\Temp\" 'adapter ici le chemin
Set f = Sheets([IMPRESSION].Parent.Name)
For i = 14001 To 14005
f.[G4] = i
[IMPRESSION].ExportAsFixedFormat Type:=xlTypePDF, _
                     Filename:=sPath & f.[G4] & ".pdf", _
                     Quality:=xlQualityStandard, _
                     IncludeDocProperties:=True, _
                     IgnorePrintAreas:=False, _
                    OpenAfterPublish:=False 'True
Next
End Sub

NB: Ici [IMPRESSION] correspond à une plage de cellule nommées.
(voir le Gestionnaire de Noms)
testé avec Excel 2013.

Cliquez pour agrandir...

Modeste geedee à dit:

Bonsour®

ça s'enregistre dans le répertoire ou se trouve le classeur contenant la macro-active :

Cliquez pour agrandir...