CV avec modif adresse et Modif titre faire pdf dans un dossier spécifique

Bonjour,
Je recherche du taf et je dois bien sûr faire des CV ....

Ma spécificité c'est que je dois changer d'adresse sur mon cv en fonction de la région où je postule.
Si je postule dans la région :
- A alors mon adresse est XXXXX
- B alors mon adresse est BBBBBB

Mon titre sur mon CV change à Chaque fois
- Titre AAAAAA
- Titre HHHHHH
.........

Pour me simplifier la tâche, je me disais qu'une macro pourrait me simplifier la tâche
Caractéristiques :
- Liste de choix pour choisir mon adresse
- Liste de choix pour choisir Mon Titre
- Enregistrement en pdf
- Le pdf se fait dans un dossier parent appelé comme la région A ou B... ( en fonction de l'adresse)


Merci par avance

Bonne aprem

Seb


Pièce jointe 150294

Petit Rajout :

Il ya qq temps j'ai commencé un post comme celui-ci, avec un début de code.
si cela peut aider .....

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub CommandButton1_Click() Dim shpA As Shape, shpB As Shape, vStr1$, vStr2$, i%, X ActiveDocument.Shapes.SelectAll Selection.Delete Set shpA = ActiveDocument.Shapes.AddTextbox(1, 85, 95#, 100, 100) 'TextBox shpA.Visible = True: shpA.Left = 35 shpA.TextFrame.TextRange.Text = "TEST" MsgBox shpA.TextFrame.TextRange.Text 'affiche contenu TextBox Set shpA = Nothing Set shpB = ActiveDocument.Shapes.AddLabel(1, 35, 10, 75, 75) 'Label shpB.Visible = True: shpB.Left = 70 shpB.TextFrame.TextRange.Text = Application.UserName MsgBox shpB.TextFrame.TextRange.Text ' affiche contenu Label Set shpB = Nothing With ActiveDocument X = .Shapes.Count MsgBox X & " forme(s) sur le document actif." For i = 1 To X MsgBox "NOM Forme " & i & ": " & .Shapes(X).Name, vbInformation Next vStr1 = .Shapes(1).TextFrame.TextRange.Text 'contenu Shape1 dans une variable vStr2 = .Shapes(2).TextFrame.TextRange.Text ''contenu Shape2 dans une variable End With MsgBox UCase(vStr1), vbInformation, "VARIABLE 1" MsgBox LCase(vStr2), vbInformation, "VARIABLE 2" End Sub

---

Salut GADENSEB,

As-tu regardé le menu "Insertion > Texte > Organisateur de blocs de construction..." qui semble correspondre à ce que tu veux ?

@+

Ce n'est pas tout à fait les blocs de construction

A la rigueur, je viens de penser qu'un USF avec liste de choix à l'ouverture du fichier serait bien

J'ai commencé le code



Pièce jointe 150359