XL 2010 Ecrire d'Excel vers Word

[stonech]

Bonjour à tous et merci d'avance pour votre aide,

Comme je le dis dans le titre, j essai d'écrire d'excel vers word. J'ai 3 infos dans mon fichier Excel (nom, prenom, adress) que je veux écrire sous word en les placant dans un texte type.

Mais la 1ere déclaration de variable ne passe même pas. Ca me met une erreur "Type défini par l'utilisateur non défini" des la ligne Dim AppWord As Word.Application. ci dessous mon code.

Pour l'insatant y a des varable i par ce que je voudrai aprés faire une boucle.. Et l'étape d'aprés c'est de sauvegarder ce fichier sous un autre nom (sous format word et pdf). si vous savez comment faire je suis preneur aussi.

======================
Option Explicit

Sub Bouton1_Cliquer()

'""""""""""""""""""""""""" Déclaration des variables""""""""""""""""""""""""""""""""""
Dim AppWord As Word.Application ////ca bug déja a ce niveau
Dim DocWord As Word.Document

Dim i As Integer
Dim nomPers, prenomPers, adressePers


i = 1

'----------------------------creation session Word-----------------------------------
Set AppWord = New Word.Application


Application.DisplayAlerts = True
AppWord.ShowMe

'pour que word reste masqué pendant l'opération
'AppWord.Visible = True

'Appel le document Word
Set DocWord = AppWord.Documents.Open("chemin\Info template.docm", _
ReadOnly:=False)


nomPers = Cells(i + 3, 1)
prenomPers = Cells(i + 3, 2)
adressePers = Cells(i + 3, 3)


'Mise à jour du nom
With DocWord.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "#NOM#"
.Replacement.Text = nomPers
.Execute Replace:=wdReplaceAll
End With

'Mise à jour du prenom
With DocWord.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "#PRENOM#"
.Replacement.Text = prenomPers
.Execute Replace:=wdReplaceAll
End With

'Mise à jour du adresse
With DocWord.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "#ADRESSE#"
.Replacement.Text = adressePers
.Execute Replace:=wdReplaceAll
End With


'Rend le document Word Visible
AppWord.Visible = True

End Sub

 

[WTF]

Bonjour,
Pourquoi n'utilise tu pas tout simplement l'option publipostage de word ?

 

[stonech]

Je ne connais pas pour dire vrai, et je préfère le faire par Excel.

 

[WTF]

C'est le principe justement.
Un fichier excel avec une base de données et un fichier word avec des champs reparamétrés qui se mettent à jour en fonction de la base excel....

 

[stonech]

Apparemment je dois activer la librairie word dans Excel. Ca peut venir de la l'erreur? et comment on fait ca?
Ce qui me rend le plus fou, c'est que j ai un autre fichier ou j'ai la meme déclaration de variable et ca fonctionne.

 

[stonech]

C'est bon j ai trouvé. Dans le menu outils > reférences> microsoft word library.