Piloter Marge ds Word avec Excel

[Gaby]

Bonsoir à tous chers Excellents, ooops Excelliens, pardon!

Je desire apres avoir cree un document dans Excel 2000, que ce document soit integre dans un document Word par macro.
Jusque la pas de probleme, mais pour que mon tableau prenne bien place dans mon .doc j'ai besoin de reduire les marges.
J'ai donc enregistre une macro Word pour voir comment ça se passait et l'ai inseree dans la macro Excel, mais j'obtiens une erreur de compilation : Sub ou Function non definie.
Le debogage surligne : MillimetersToPoints

Voici le code fautif:

'Ouvrir un nouveau document Word d'après Normal.dot
Set oWdDoc = oWdApp.Documents.Add
With oWdDoc.PageSetup
.LeftMargin = MillimetersToPoints(12.7)
.RightMargin = MillimetersToPoints(6.8)
.TopMargin = MillimetersToPoints(9.5)
.BottomMargin = MillimetersToPoints(9.5)
End With

'Rendre Word visible
oWdApp.Visible = True

Si quelqu'un peut me dire quelle methode employer je lui en serais reconnaissant car je tourne en rond.

Encore bravo pour ce site Excellent!

 

[michel]

bonsoir Gaby

tu peux essayer :


Sub MargesDansWord()
'activer la reference Microsoft Word xx.x Object Library
Dim Wrd As Word.Application
Set Wrd = CreateObject("Word.Application")
Dim AppWrd As Word.Document
Dim j As Byte

Set AppWrd = Wrd.Documents.Add
Wrd.Visible = True

With AppWrd.PageSetup
.LeftMargin = 12.7
.RightMargin = 6.8
.TopMargin = 9.5
.BottomMargin = 9.5
End With

End Sub


bonne soiree
MichelXld

 

[Gaby]

Merci Michel, ça marche au poil!

Mais comment se fait il qu'il faille supprimer les 'MillimitersToPoint' du code dans Excell alors que dans Word ça marche?
Enfin si tu n'as pas la reponse ce n'est pas grave car le principal est que cela fonctionne

En tout cas encore merci pour ta reponse rapide et surtout efficace.

Gaby.