Bonjour à tous !!!
Petite mise au point : J'ai découvert le VBA il y a peu, et il est possible que je passe à côté de grosses erreurs conceptuelles... Merci d'avance de m'éclairer...
Voila mon PB : En gros, j'ai un modèle de document sous word, et je voudrait créer une macro qui enregistre des renseignements pris de ce documents dans un classeur excel de résumé (Par exemple : Nom de fichier, emplacment, auteur, titre, sujet, version, etc... Bref, de quoi faire une base de donnée pour retrouver tous ses documents quand on est bordélique...)
Débutant en VBA, j'ai mis au point la macro sous excel en VBA, pour me faire la main.
Ensuite, je l'ai copiée sous word, en créant l'application Excel, et l'objet WorkBook.
Et le code qui marche très bien sous Excel ne fonctionne pas sous Word...

Voici le code simplifié en question :

Public Sub InscriptionDB()

DimMyFileName As String
Dim Selection As Range
Dim NLigne As Integer

MyFileName = "c:\MyXls.xls" 'Nom du fichier Excel qui stocke tout. Il contient une feuille appellée "Documents"
Dim MonExcel As Object 'Référence à l'application Excel qui va être instanciée
Dim MonWorkBook As Object'Référence au classeurqui va être ouvert

Set MonExcel = CreateObject("Excel.Application") 'On lance l'application
Set MonWorkBook = MonExcel.Workbooks.Open(MyFileName, , False) 'On ouvre le classeur depuis l'application
MonExcel.Application.Visible = False'On laisse l'application invisible

' DEBUT partie de code fonctionnant sous VBA Excel, mais générant une erreur sous VBA Word
'Selectionne l 'ensemble de la colonne jusque la première case vide
Set Selection = MonWorkBook.Sheets("Documents").Range("A2",MonWorkBook.Sheets("Documents").Range("A2").End(xlDown))

'Recherche si le document est déja enregistré...
For Each Cellule In Selection.Cells
    If Cellule.Value = ActiveDocument.CustomDocumentProperty("Numéro de document DB") Then
        MsgBox "Erreur : Document déja enregistré ligne : " & Cellule.Item() & " !!!"
    End If
Next
'FIN partie de code fonctionnant sous VBA Excel

MonExcel.Workbooks.Close
MonExcel.Quit
End Sub

En fait, ç'est la selection qui ne fonctionne pas... Il y a un message d'erreur très explicite :
Erreur d'execution '1004'
Erreur définie par l'application ou l'objet

Lorsque j'écrit la partie de code sous Excel en remplaçant  MonExcel.MonWorkBook par ThisWorkBook, cela fonctionne très bien
Je suis passé à coté de quoi ???? Peut on lancer ce type de code depuis une macro word, ou est-ce interdit ???
D'avence, merci !!!

Bon, ce truc m'a fait prendre conscience des grosses différences entre VBA word et VBA Excel, et je viens de m'apercevoir que toutes les constantes de VBA Excel (ex : xldown, xlup) sont inconnues sous VBA word...
D'ou le meme message d'erreur pour
Set Selection = MonWorkBook.Sheets("Documents").Range("A2",MonWorkBook.Sheets("Documents").Range("A2").End(xlDown))

Est ce que quelqu'un connais un moyen de faire un include, ou est ce que je dois taper à chaque fois la valeur exacte des constantes ????
D'avance merci....

Salut, j'arrive pas te suivre tu veux faire ça dans excel ou dans word! En tout cas si j'ai bien compris tu veux faire des manip excel avec vba word?

Set Selection = MonWorkBook.Sheets("Documents").Range("A2",MonWorkBook.Sheets("Documents").Range("A2").End(xlDown))

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

Merci pour les réponses, je vais essayer...

...Et oui, je veux à partir d'une macro sous word, ouvrir un classeur excel et mettre à jours des cellules de ce classeur, à partir de variables prises dans le document word....
Le pépin, c'est que pour faire des manips sur ce classeur, j'utilise des objets et des constantes spécifiques à excel, et donc inconnus sous word.  Je vais essayer la manip de MPi...