Enregistrer un fichier PDF sous VBE pour EXCEL2007 [Résolu]

kilucru974 6 Messages postés lundi 13 avril 2009Date d'inscription 1 novembre 2009 Dernière intervention - 13 avril 2009 à 04:51 - Dernière réponse : kilucru974 6 Messages postés lundi 13 avril 2009Date d'inscription 1 novembre 2009 Dernière intervention
- 13 avril 2009 à 05:38
Bonjour,
je voudrais enregistrer un fichier  de type pdf sous un répertoire defini par une cellule (ou un  .value d'une TXTBox)
voici le code que j'utilise

Public Sub export_pdf()



Dim nom As String
Dim datefiche As String
Dim Monrep As String



nom = Sheets("Feuil1").Range("A1").Value
datefiche = Format(Sheets("Feuil1").Range("A3").Value, "DD_MM_YYYY")
Monrep = "D:\REP\Clients\Civils" & datefiche
On Error Resume Next
MkDir Monrep



Sheets("Feuil1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
nom, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True



End Sub

ce sont des fiches de suivi et je voudrais créer un sous dossier de la date de visite du client (plusieurs clients le même jour)
(ON ERROR RESUME NEXT m'évite d'avoir des messages d'erreur si le répertoire existe déjà.)
Mon problème vient de ce que je crée mon répertoire correctement, mais que le fichier "pdf" est enregistré sous "mes docs"
je ne désire pas passer par application.Dialogs(xlDialogSaveAs).show (ou .open) maisgénérer directement l'emplacement de ce fichier sous le sous dossier défini par la date de visite.
Merci de bien vouloir me venir en aide.
Afficher la suite 

2 réponses

Répondre au sujet
cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention - 13 avril 2009 à 05:10
+3
Utile
Salut
Qu'y a t-il dans ta cellule A1 ?
Si c'est juste le nom du fichier, c'est normal qu'il enregistre sur le répertoire par défaut, tu ne lui dis pas qu'il faut en choisir un autre.
Peut-être que ceci marcherait mieux :
   Filename:= Monrep & "" & nom

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_Jack
kilucru974 6 Messages postés lundi 13 avril 2009Date d'inscription 1 novembre 2009 Dernière intervention - 13 avril 2009 à 05:38
0
Utile
Merci,


je viens d'essayer ça marche (évidemment) ça va me dépanner.
Marc
Commenter la réponse de kilucru974

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.