Bonjour à tous
Je cherche a améliorer mon fichier excel, pour l'instant j'ai un bouton qui permet de créer un pdf de ma feuille et donne au PDF le nom de la cellule A1.
Maintenant je voudrais quand je clique sur le bouton :
1 - il ouvre une boite de dialogue pour me demander le répertoire principale
2 - Vérifie si le répertoire existe déjà avant de le créé, si il existe alors crée uniquement le PDF
3 - puis me crée un sous-répertoire avec le no dans la cellule A2
4 - Crée le pdf avec le nom de A1 qu'il place dans le répertoire crée juste avant
voici le code qui me permet de créé le PDF
Private Sub CommandButton1_Click()
Dim chemin As String, NomFichier As String
NomFichier = Range("A1").Value & "-" & "ENTETE" & ".pdf"
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then ' Clic sur Ok
chemin = .SelectedItems(1)
Else
' Clic sur Annuler
Exit Sub
End If
End With
ENTETE_FT.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & "\" & NomFichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Merci d'avance et bon week-end à tous