fgassmann
Messages postés13Date d'inscriptiondimanche 13 janvier 2008StatutMembreDernière intervention 9 juillet 2009
-
9 juil. 2009 à 10:32
cs_Joh76
Messages postés47Date d'inscriptiondimanche 16 mars 2008StatutMembreDernière intervention14 octobre 2009
-
9 juil. 2009 à 18:27
Bonjour à tous,
Je suis face à un problème de compatibilité entre vba 2003 et vba 2007. Le but de la macro est d'ouvrir un à un les fichiers word à partir d'excel afin d'y récupérer des informations.
Set WordApp = CreateObject("Word.Application")
a = .FoundFilesCount
For compteur = 1 To .FoundFilesCount
WordApp.Visible = True 'pour que word reste masqué pendant l'opération
Set WordDoc = Word.Application.Documents.Open(.FoundFiles.Count.Item(compteur))
b = ActiveDocument.Name
c = "Mission " & Left(b, 8)
........
La macro bloque sur "(.FoundFiles.Count.Item)"