Macro impression et PDF

[JMDBOULE78]

Bonjour à tous,

Voici la macro que j'ai faite pour exporter en PDF et imprimer. En fait je voudrais:

1/ Sauvegarder en PDF sur le bureau. Comment faire pour que different user puisse utiliser car la macro prend mon répertoire et que cela nomme automatiquement avec la date au bout du nom "Export lecture code barre JJMMAAAA nom de l'utilisateur"

2/ Imprimer uniquement la zone variable de données ?

Merci à tous et bon dimanche !

Sub Impression()
x = 4
Range("g5").Select
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
x = x + 1
Wend
zone = "B1:I" & x & ""
Range(zone).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\XXXXXXX\Desktop\Export lecture code barre.pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

 

[CPk]

Re : Macro impression et PDF

Bonjour, pour le lien du dossier essayez ceci :

Filename:="C:\Users\" & Environ("USERNAME") & "\Desktop\Export lecture code barre.pdf"

Pour la zone...Essayez ceci :

Activesheet.range("B1:I" & x).ExportAsFixedFormat Type:=xlTypePDF,...

Je n'ai pas testé mais cela devrait être bon

 

[JMDBOULE78]

Re : Macro impression et PDF

Bonjour,

merci! j'ai une erreur 1004
Bonne après midi

 

[CPk]

Re : Macro impression et PDF

Pas assez d'élément pour déterminer la cause.