Macro VBA pour export PDF suivant lignes filtrées (Résolu)

Bonsoir Dollismine,
Voici ton fichier avec une solution à tester
Pas de soucis avec l'ajout d'onglet
La base avec le nom complet est à créer dans la feuille "Params"
A+

Un grand merci BrunoM45 pour ton aide et ton temps. Je ne vois ta réponse que ce matin (désolé pour le double sujet sur un autre forum, je craignais que ma demande ne trouve pas de réponse)

J'ai une erreur d'exécution 1004 "Document non enregistré. Le document est peut-être ouvert ou une erreur s'est produite lors de l'enregistrement"[/i] ...je pense que c'est relatif au chemin d'accès du dossier.

Je vais essayer d'aller voir le code, si je peux changer ça.

Re,

Tu verras, je t'ai détaillé tout le code
Il faut changer le chemin ici
En n'oubliant pas de mettre l'antislash de fin
A+

Vu et trouvé, merci.

Par contre, même avec le mois filtré, la macro génère l'enregistrement de tous les mois (alors que je ne voudrais que le mois sélectionné)

Détails (rien de vital, je ne voudrais pas trop abuser):
-Est-ce qu'il est possible sur le PDF généré de ne pas voir le bouton "Exporter PDF" ?
-Est-ce qu'il est possible d'avoir le nom complet de la personne en entête du PDF (en plus du nom de fichier)?

Bonjour,
Oui tout est possible en VBA ou presque
A+

Un très très grand merci pour le temps que tu m'as accordé, tout fonctionne bien de mon côté !

J'ai 2 ou 3 petites modifications à faire mais ça concerne plus des formules et des choses hors VBA. Je vais trouver.

Merci,
;-)

Dernière question (après j'arrête !)

Est-ce qu'il est possible d'avoir une boîte de dialogue qui s'ouvre pour définir le chemin du dossier d'enregistrement ? (plutôt qu'un emplacement fixe et "imposé"...tout en gardant la même méthode de nommage des pdf générés)
Juste lui dire "enregistre moi tout à tel endroit".

Mille mercis !

Re,
Je suis d'humeur généreuse, mais n'en profite pas trop
Voici le fichier modifié avec demande du dossier de destination

Je comprends bien, et de mon côté je fais des recherches avant de poser les questions.
Malheureusement, quand tu ne connais pas le VBA, ni la logique du code de manière générale, c'est compliqué de formuler son besoin (d'autant plus que les idées viennent petit à petit...)....alors aller trifouiller dans le code, ça devient costaud (super tes explications sur chaque ligne, ça permet déjà d'y voir plus clair).

Sauf erreur de ma part, la dernière modification renomme le PDF au nom du dossier de destination et sauvegarde sur le bureau (et non dans le dossier choisi)

J'avais trouvé ça hier (en gras la partie qui me semble gérer la demande du dossier de destination, mais je n'en suis pas certain et ne sait pas la relier avec le reste du code qui permet de renommer le PDF suivant l'artisan et le mois concernés)

Sub PDFActiveSheet()
'www.contextures.com
'for Excel 2010 and later
Dim wsA As Worksheet
Dim wbA As Workbook
Dim strTime As String
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
On Error GoTo errHandler

Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
strTime = Format(Now(), "yyyymmdd\_hhmm")

'get active workbook folder, if saved
strPath = wbA.Path
If strPath = "" Then
strPath = Application.DefaultFilePath
End If
strPath = strPath & "\"

'replace spaces and periods in sheet name
strName = Replace(wsA.Name, " ", "")
strName = Replace(strName, ".", "_")

'create default name for savng file
strFile = strName & "_" & strTime & ".pdf"
strPathFile = strPath & strFile

'use can enter name and
' select folder for file
myFile = Application.GetSaveAsFilename _
(InitialFileName:=strPathFile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Select Folder and FileName to save")

'export to PDF if a folder was selected
If myFile <> "False" Then
wsA.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'confirmation message with file info
MsgBox "PDF file has been created: " _
& vbCrLf _
& myFile
End If

exitHandler:
Exit Sub
errHandler:
MsgBox "Could not create PDF file"
Resume exitHandler
End Sub

Non,

C'est simplement l'antislash de fin que j'ai oublié de mettre et comme je n'ai pas tout testé
Avant
Après

Après tu fais comme tu veux, mais je ne serais plus là pour t'aider

D'acc o d'acc, un grand merci !