Enregistrer en PDF avec le nom du dossier [Résolu/Fermé]

Messages postés
14
Date d'inscription
lundi 28 avril 2014
Statut
Membre
Dernière intervention
11 août 2014
-
Bonjour,

J'ai tenté avec l'enregistreur de macro, la macro fonctionne bien mais le nom reste toujours x au lieu de garder le nom actuel du fichier, dès que j'essaie de toucher rien ne fonctionne plus.


Sub Enregistrer_PDF()
'
' Enregistrer_PDF Macro
'

'
Dim x As String
x = ThisWorkbook.Name
Sheets("Offre ELECTRIQUE").Select
ChDir "G:\VENTE\OFFRES\OFFRES 2014"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\VENTE\OFFRES\OFFRES 2014\x.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub



En tatonant j'ai écrit cela:


Sub Enregistrer_PDF()

Dim chemin As String
Dim nom As String

chemin = "G:\VENTE\OFFRES\OFFRES 2014"
nom = ThisWorkbook.Name

Sheets("Offre ELECTRIQUE").Select


ActiveWorkbook.ExportAsFixedFormat Type:=x1TypePDF, _
Filename:=chemin & nom & ".pdf"

End Sub

Mais maintenant le nom est ok mais plus l'emplacement...... il sauve sur C: ...

J'ai essayà de rajouter un chemin par la au travers:

ChDir "G:\VENTE\OFFRES\OFFRES 2014"


Mais rien à faire...


Merci


Afficher la suite 

5 réponses

Messages postés
12253
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
19 juillet 2019
2220
0
Merci
Bonjour,
Ajoute \ à la fin de ton chemin :

chemin = "G:\VENTE\OFFRES\OFFRES 2014\" 
--
Cordialement,
Franck
Messages postés
14
Date d'inscription
lundi 28 avril 2014
Statut
Membre
Dernière intervention
11 août 2014
0
Merci
ça ne suffit pas,

Mais bien vu, merci une erreur de moins
0
Merci
bonjour

sur Chemin il manque \

ex: chemin = "G:\VENTE\OFFRES\OFFRES 2014\"
ou
Filename:=chemin & "\" & nom & ".pdf"
A+
Maurice
0
Merci
Bonjour

Voila un macro PDF

Sub PDF()
Chemin = "G:\VENTE\OFFRES\OFFRES 2014" & "\"
Nom = Split(ThisWorkbook.Name, ".")(0)
NomFiche = Chemin & Nom & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomFiche, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False ' False on voie rien
End Sub

A+
Maurice
Messages postés
14
Date d'inscription
lundi 28 avril 2014
Statut
Membre
Dernière intervention
11 août 2014
0
Merci
Hello,

ça fonctionne au poil,

Merci!