Enregistrer pdf dans le dossier qui vient d'être crée
Bonjour,
Je souhaite exporter une partie de ma feuille excel au format pdf pour cela je la nomme en fonction de certaines cellules de la feuilles puis je créer un dossier aussi en fonction de certaines cellules de la feuille. Et j'aimerai que mon pdf s'enregistre dans ce dossier créer.
Le problème est que le chemin de ce dossier peut être totalement différent d'un jour à l'autre donc je ne peux pas fixer le chemin car il dépend de la position se trouve la feuille excel.
Je ne sais pas comment faire ?
Voici ce que j'ai fais :
Chemin = ActiveWorkbook.Path & "\"
Dossier = [B100].Value & " - " & [I6].Value
Complet = Chemin & "\" & Dossier
If Dir(Complet, vbDirectory) = "" Then 'si le dossier n'existe pas
MkDir Complet
End If
nomfiche = [C2].Value & " _ " & Sheets("FicheNCF_VR").Range("I6") & " " & Sheets("FicheNCF_VR").Range("C6") & " " & Sheets("FicheNCF_VR").Range("F6") & " _ " & Sheets("FicheNCF_VR").Range("C12") & ".pdf"
'Création du PDF
Sheets("FicheNCF_VR").Range("A1:J34").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Complet & nomfiche, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Merci pour votre aide
Bonsoir fvba et
Une petite présentation ICI serait la bienvenue
Si vous ne l'avez pas encore fait, je vous invite à lire :
- La charte du forum
- Quelques fonctionnalités du forum à connaître
Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui :
- vous permettent de poster un code (</>)
- ou de clôturer un fil lorsque vous avez terminé (V)
Concernant vos demandes :
1) merci d'éditer votre post avec le crayon, pour mettre le code entre balises
2) pourquoi ne pas avoir utilisé le même fil
Merci pour votre participation
Cordialement