Discussion :

[estampille]

rebonjour a tous!
bon voila j'ai pas lacher prise et j'ai un petit soucis lors de la creation de mon doc word a partir de excel.
bon le debut com dab:

Code :

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

1
2
3
4
5
    'creation de l'objet word
        Dim MonWord As Object
        Set MonWord = CreateObject("Word.Application")
    'ajout dans l'objet
        MonWord.Documents.Add

puis j'insere une image:

Code :

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

        MonWord.Selection.InlineShapes.AddPicture Filename:="C:\Documents and Settings\TDU\Mes documents\sapiens.PNG", LinkToFile:=False, SaveWithDocument:=True

la ok ca marche..
mais si je veux la positionner?
genre j'ai juste tester de l'aligner a droite de la meme facon que pour le texte.. marche po
et j'ai tester ca que j'ai recup en enregistrant une macro dans word:

Code :

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

1
2
3
4
5
        MonWord.Selection.InlineShapes.AddPicture Filename:="C:\Documents and Settings\TDU\Mes documents\sapiens.PNG", LinkToFile:=False, SaveWithDocument:=True
    'on l'insert dans une texte box
       MonWord.Selection.CreateTextbox
       MonWord.Selection.ShapeRange.IncrementLeft -9#
       MonWord.Selection.ShapeRange.IncrementTop 18#

mais ca compil pas..
bref si vous savez comment faire .. merci
pendant qu'on est la, pour mettre une entete / pied de page.. pit etre ca peut aussi m'aider pas mal ca...

merci les gens!

[Balises "Code" ajoutées par AlainTech]
[Pensez-y vous-même à l'avenir. Merci.]

[estampille]

bon autant pour moi le fait d'algner a droite ca marche....
donc la ok..
mais pour l'entete si quelqu'un sais ..?

merci

[SilkyRoad]

bonsoir

tu peux tester

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
Sub enteteEtPiedDePageWord()
'necessite d'activer la reference microsoft Word xx.x Object Library
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim Fichier As String
 
Fichier = "C:\Documents and Settings\michel\Doc2.doc" 'adapter le chemin
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True
Set wordDoc = wordApp.Documents.Open(Fichier)
 
With wordDoc.Sections(1)
.Headers(wdHeaderFooterPrimary).Range.Text = "Le titre"
.Headers(wdHeaderFooterPrimary).Range.Paragraphs.Alignment = wdAlignParagraphCenter
.Footers(wdHeaderFooterPrimary).pageNumbers.Add
End With
End Sub

bonne soiree
michel