Discussion :

[teten1]

Bonjour,
Cela fait plusieurs jours que j'essaie désespérément de trouver une solution pour enregistrer mes devis en pdf via une macro qui prendrait en compte mon champ "sous titre" (correspondant à mon n° de devis) pour le nom de l'enregistrement.
Merci à ceux qui prendront le temps de me répondre,
Christelle

[Invité]

Bonjour,

Il faudrait a minima publier votre code et indiquer avec quel type de champ vous travaillez.

[teten1]

Bonjour Eric, le forum
Voici la base de mon document. Les champs que j'ai intégré sont des quickparts.
Je suis désolée je suis totalement novice sur word...
Merci d'avance,
Christelle

[Invité]

Il vous faut dissocier le groupe de shapes contenant le numéro de devis. Sinon, cette fonction permet de récupérer votre numéro de devis une fois dégroupé. Le Shape correspondant au devis est le numéro 2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub TestNumeroDevis()
 
    MsgBox NumeroDevis(2, ActiveDocument)
 
 
End Sub
 
 
Function NumeroDevis(ByVal NumeroDeForme As Integer, ByVal DocEnCours As Document) As String
 
   NumeroDevis =""
   With DocEnCours
 
         With .Shapes(NumeroDeForme).TextFrame
              If .HasText Then NumeroDevis = .TextRange
         End With
 
   End With
 
End Function

[teten1]

Eric,

Je suis désolée mais cela ne marche pas... j'ai tenté de changé les n°.
Mais j'ai l'impression que cela prends en compte les zones de texte?
Christelle

[Invité]

Regardez ce document dont j'ai dissocié les shapes au niveau du numéro de devis.

[teten1]

Ah oui effectivement c dingue... et vous n'avez rien modifier au fichier ?
... bon bah je vais chercher pourquoi chez moi cela ne marche pas alors...
Merci Eric

[Invité]

Ah oui effectivement c dingue... et vous n'avez rien modifier au fichier ?

Si j'ai dégroupé les shapes. Savez-vous comment faire ?

[teten1]

Non pas du tout... même shapes je ne c'est pas ce que cela veut dire dans word ...
Je découvre word et c'est laborieux ...

[Invité]

Non pas du tout... même shapes je ne c'est pas ce que cela veut dire dans word ...
Je découvre word et c'est laborieux ...

Généralement, ce n'est pas par cela qu'on commence...

Vous sélectionnez la zone devis (le cadre de cette zone s'appelle une forme ou un shape). Clic droit sur le numéro de devis. Si le trait est en pointillé, cliquez sur le trait du cadre pour le sélectionner. Re clic droit, normalement vous devez voir Grouper en gras (donc accessible). Si oui, Grouper - Dissocier.

[teten1]

ah oui génial ça marche... !!!
Me reste à faire la macro pour enregistrer sous ce numéro maintenant !!!
Ah Eric vous êtes mon héros !!!
Merci beaucoup

[Invité]

Me reste à faire la macro pour enregistrer sous ce numéro maintenant !!!

Regardez la méthode ExportAsFixedFormat dans l'aide en ligne Word et lancez une requête sur le forum Word avec ce mot.