Publipostage conditionnel et formulaires

Question

Je me permets de solliciter votre aide. J'essaie de créer : 1- Un publipostage avec plusieurs conditions à envoyer à des médecins ne m'ayant pas communiqué leur fiche d'honoraire accompagné d'une fiche pré-remplit (délicate attention ) &gt; Lister les patients (si plusieurs) par médecin qui n’ont pas transmis leur état d’honoraire &gt; Indiquer : « civilité » « prénom » « nom », le « date » à l’aide d’une liste à puce et non d’un tableau. Ne sachant très bien me servir du publipostage avec une base de donnée étoffée, j'ai créé une feuille "Courrier Etat Honoraire" pour me simplifier les choses. J’ai usé d’une astuce de débutante via une concaténation de plusieurs colonnes « Ligne » mais je n’arrive pas à indiquer la date. 2 – Automatisation de 2 formulaires Excel Formulaire Etat d'Honoraire + remplir automatiquement les champs de la feuille « Etat d'Honoraire » du fichier « Suivi des consultations_Visite de Recrutement » avec la feuille « Suivi » pour toutes lignes ayant NON dans la colonne U1 : Etat d'honoraire Dans le document word "Projet", vous trouverez ma tentative de création des deux projets de création de formulaire à l'aide d'un formulaire qu'une Gmb m'a gentiment créer. Je pense avoir compris comment adapter le code à mes nouveaux projets. Par contre je n'arrive pas à le "placer" dans l'interface VBA ;-(. Je n'en suis pas encore à ce niveau. Sub CréerLesFormulaires() chemin = ThisWorkbook.Path & "\" nomFichier = Dir(chemin & "Suivi des consultations_Visite de Recrutement") On Error Resume Next Set wbF = Workbooks(nomFichier) If Err.Number &gt; 0 Then MsgBox "Le fichier ''Suivi des consultations_Visite de Recrutement'' doit être ouvert.", 16 Exit Sub End If If Range("T2:T)= NON Then 'lancer le remplissage du formulaire et du Courrier_Demande_Etat d'honoraire + les enregistrer en pdf' MsgBox "Le fichier ''Suivi des consultations_Visite de Recrutement'' doit être ouvert.", 16 Exit Sub End If tabloL = Range("A1:E" & Range("A" & Rows.Count).End(xlUp).Row) tabloF = Workbooks(nomFichier).Sheets("Etat d'Honoraire").Range("B1:23") Application.ScreenUpdating = False For i = 3 To UBound(tabloL, 1) tabloF(6, 1) = tabloL(i, 16) tabloF(7, 1) = tabloL(i, 17) tabloF(9, 1) = tabloL(i, 11) tabloF(10, 1) = tabloL(i, 12) tabloF(11, 1) = tabloL(i, 13) tabloF(12, 1) = tabloL(i, 14) & " " & tabloL(i, 15) tabloF(15, 1) = tabloL(i, 18) tabloF(i, 19) = tabloL(i, 1) & " " & tabloL(i, 4)) & " " & tabloL(i, 2)) If (civilite = "M.") Then MsgBox "Monsieur" End If If (civilite = "Mme") Then MsgBox "Madame" End If tabloF(21, 1) = tabloL(i, 7) tabloF(23, 1) = tabloL(i, 6) Workbooks(nomFichier).Sheets("Bordereau d'envoi").Range("B1").Resize(UBound(tabloF, 1), 1) = tabloF Workbooks(nomFichier).Sheets("Etat d'Honoraire").ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & " Etat d'Honoraire" & tabloL(i,2) & " " & tabloL(i, 3) & "-" tabloL(i, 7) & ".pdf" Next i MsgBox "Travail terminé" End Sub Formulaire Bordereau d'envoi Remplir automatiquement les champs de la feuille « Bordereau d'envoi » du fichier « Suivi des consultations_Visite de Recrutement » avec la feuille « Suivi » pour toutes lignes ayant OUI dans la colonne U1 : Etat d'honoraire 3 – Automatisation de l’enregistrement en format PDF &gt; Courrier_Demande_Etat d'honoraire par médecin Nommer le fichier : Courrier_Demande_Etat d'honoraire_ 2 premiers chiffres du département colonne « O2 »_Nom du Praticien_Prénom du Praticien &gt; Etat d'Honoraire Etat d'honoraire_ 2 premiers chiffres du département colonne « O2 »_Nom du Praticien_Prénom du Praticien &gt; Visite de Recrutement Visite de Recrutement _ 2 premiers chiffres du département colonne « O2 »_Nom de famille_Prénom_Nom Praticien_ Nom Praticien_Consultation Pourriez-vous svp m'expliquer où je peux déposer mon code (je suis preneuse des captures d'écran ) ? Je vous remercie par avance de votre aide et de l'intérêt que vous portez à mon projet...

jmd · Answer

Joindre un fichier de 3 colonnes et 4 lignes et le résultat attendu suffit bouton "joindree fichier" sous ton message lors de la rédaction à te relire...