XL 2010 Ecrire d'Excel vers Word

stonech

XLDnaute Nouveau
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
 

stonech

XLDnaute Nouveau
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.
 

Discussions similaires

Statistiques des forums

Discussions
313 313
Messages
2 097 044
Membres
106 816
dernier inscrit
Garry972