fonction macro

[chrismydo]

bonjour

J'ai une macro dans excell qui ouvre word
copie les cellules desirees et dimensionne le texte
avec ce script :
Range('A1:G66').Copy
Set ww = CreateObject('word.application')
ww.Visible = True
Set wdDoc = ww.Documents.Add

wdDoc.PageSetup.TopMargin = 10
wdDoc.PageSetup.LeftMargin = 48
wdDoc.PageSetup.RightMargin = 42
wdDoc.PageSetup.BottomMargin = 10

ww.Selection.PasteSpecial Link:=False, DataType:=wdpastebitmap, Placement:=wdInLine

Je voudrais copier un texte 'abcd...' a l'endroit bottommargin. Comment faire ?

 

[marco57]

Bonsoir Chrismido et le Forum,
'BottomMargin' définit une valeur de marge basse.
Il est bien évident que tu ne peux pas mettre de texte.
Bien que je ne soit pas spécialiste du VBA pour Word, je pense que si tu veux définir un texte de pied de page, il faut chercher vers :
wdSeekCurrentPageHeader ou PageFooter.
Tu peux utiliser l'enregistreur de macro Word. L'aide VBA n'est pas installée sur ma bécanne et je ne pourrais t'en dire plus.
Je n'ai pas répondu à ta question mais espère t'avoir bien orienté

A+

Marco

 

[chris]

Bonjour

On peut écrire dans le pied de page.
Le plus simple est de la faire dans word avec l'enregistreur macro.
Ainsi tu auras la base du code à mettre dans ton Excel.

Dans word affichage, en-têtes pieds puis tu te places dans le pied de page et tu colles.