Récupérer dans une variable la note de bas de page [Résolu]

[Manudibango]

Bonjour à tous ,

Je souhaiterais récupérer la valeur de ma note de bas de page dans une variable, de type text par exemple, et ceci pour la modifier entre deux impressions automatique...

je dois utiliser Footnotes mais sa syntaxe m'échappe un peu, malgré mes recherches...

J'ai notamment une erreur sur la fonction suivante :

Code :

Msgbox(ActiveDocument.Footnotes(1))

une idée peut-être ? merchi merchi

[bbil]

sous qu'elle application...?

[BrunoM45]

je dois utiliser Footnotes mais sa syntaxe m'échappe un peu, malgré mes recherches...

Je pense effectivement que tu n'as pas bien compris !

Pour moi "FootNotes" est une variable à utiliser !
Il faut penser à utiliser l'aide dans VBA !

Code :

1
2
3
4
5
6
Dim FootNote as string
FootNote =  ActiveSheet.PageSetup.LeftFooter
' Ou
FootNote =  ActiveSheet.PageSetup.CenterFooter
' Ou
FootNote =  ActiveSheet.PageSetup.RightFooter

Là, tu récupères la valeur de ton pied de page dans la variable "FootNote"

Voilà

[bbil]

non Bruno si c'est du VBA sous Word comme je l'imagine ( faut avoir une boule de crystal des fois..) ..

voir aide en ligne VBA-WORD:

Envoyé par Aide en ligne Word

Footnotes, propriété


Renvoie une collection Footnotes qui représente la totalité des notes de bas de page contenues dans une plage, une sélection ou dans un document. En lecture seule.

par exemple pour afficher toutes les notes dans fenêtre exécution :

Code :

1
2
3
4
5
6
7
 
Sub tst()
 Dim ft As Footnote
 For Each ft In ActiveDocument.Footnotes
  Debug.Print ft.Range.Text
 Next
End Sub

[BrunoM45]

Oups

Désolé Bbil, je suis à fond sur le VBA sous Excel

Du coup j'oublie parfois que ce forum est adressé à tout genre de VBA

Je ne le ferais plus

[Manudibango]

oups, merci pour vos réponses, et désolé de ne pas avoir été un peu plus précis...

tout d'abord, il s'agit bien d'un document Word
En fait, voilà ce que je souhaite faire :

j'ai un document avec une note de bas de page.
Je souhaite imprimer automatiquement deux exemplaires de celui-ci mais modifier entre les deux impressions le contenu de cette note de bas de page.

Pendant que j'écrivais ce post j'ai testé un nouveau bout de code :

Code :

1
2
3
4
5
Private Sub Impression_Click()
ActiveDocument.PrintOut
ActiveDocument.Footnotes(1).Range.Text = "nouvelle valeure"
ActiveDocument.PrintOut
End Sub

et a priori ça marche, cela permet bien de modifier ma note de bas de page...

je test et je vous dis si ça marche

merci en tout ca pour la piste !

PS : c'est mon premier programme en VBA, le pied ! (bha vi, fô bien se contenter de peu de chose en c'bas monde... )

[Manudibango]

cool cool cool

ça marche nickel,

je met en résolu...

merci l'équipe