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

Signaler
Messages postés
14
Date d'inscription
lundi 28 avril 2014
Statut
Membre
Dernière intervention
11 août 2014
-
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


5 réponses

Messages postés
12188
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 décembre 2020
2 525
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

ça ne suffit pas,

Mais bien vu, merci une erreur de moins
bonjour

sur Chemin il manque \

ex: chemin = "G:\VENTE\OFFRES\OFFRES 2014\"
ou
Filename:=chemin & "\" & nom & ".pdf"
A+
Maurice
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

Hello,

ça fonctionne au poil,

Merci!