Parcours d'un dossier avec récupération du nom de chaque fichier

Question

Bonjour,

Voici un probl&#232;me que je n'arrive pas &#224; r&#233;soudre. Je suis dans Excel et je r&#233;cup&#232;re des informations sur des fichiers Word.

Le code fonctionne jusqu'&#224; l'ouverture du document. 

Sur la ligne contenant le "Open", plus rien ne se passe. Les ressources ne sont pas utilis&#233;es &#224; 100% et apr&#232;s quelques minutes Excel affiche un message m'informant qu'il attend une r&#233;ponse d'un objet OLE.....

Voici le code utilis&#233; :

  Set wrdApp = CreateObject("Word.Application")
  
  wrdApp.AutomationSecurity = msoAutomationSecurityForceDisable // je d&#233;sactive l'ex&#233;cution des macros
  
  'wrdApp.Visible = True // je ne l'affiche pas
      
    Set fs = CreateObject("Scripting.FileSystemObject")
    'r&#233;pertoire dans lequel travailler
    Set f = fs.GetFolder("c:	emp\MacroTest")
    Set fc = f.Files
    'parcours des fichiers
    For Each f1 In fc


          'CETTE LIGNE FONCTIONNE (je l'avais utilis&#233;e pour des tests)
          'Set wrdDoc = wrdApp.Documents.Open("C:\Temp\MacroTest\acc001ad.doc")        
 
         'PAR CONTRE CELLE-CI PLANTE (j'ai v&#233;rifi&#233; la variable f1. Elle contient exactement le m&#234;me chemin que sur la ligne qui fonctionne ci-dessus).

          Set wrdDoc = wrdApp.Documents.Open(f1)        ' <<--- c'est l&#224; que &#231;a plante

          'ET DEPUIS ICI TOUT ROULE
       
           ' word operations
           With wrdDoc
          .........etc....etc.

Si quelqu'un peut m'aider, &#231;a serait tr&#232;s tr&#232;s sympa. Merci pour vos lumi&#232;res et excellente journ&#233;e.
Fabrice
[mailto:develop73@hotmail.com develop73@hotmail.com]

cs_Jack · Answer

Salut
Je ne vois pas trop pourquoi &#231;a bloquerait ...
Dimensionne bien tes variables, des fois que &#231;a aide :

    Dim fs As Object
    Dim f As Folder
    Dim fc As Files
    Dim f1 As File
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    'r&#233;pertoire dans lequel travailler
    Set f = fs.GetFolder("C:")
    Set fc = f.Files
    'parcours des fichiers
    For Each f1 In fc
        Debug.Print f1
    Next

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

Ah oui, pendant que j'y pense :
Dans ta boucle, tu utilises 
   Set wrdDoc = ...
Est-ce que, avant le Next, tu penses &#224; vider cet objet avec
   Set wrdDoc = Nothing
Sinon, quand tu arrives au deuxi&#232;me fichier, l'objet est d&#233;j&#224; assign&#233; et il refusera le Set

Quelle est ton erreur, au fait ?

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

develop73 · Answer

Je n'ai pas d'erreur. Le programme se "bloque". Plus rien ne se passe. Apr&#232;s plusieurs minutes, un message apparait qui me dit qu'excel attend la r&#233;ponse d'une application OLE (Word probablement)


Salut


Fabrice

Parcours d'un dossier avec récupération du nom de chaque fichier

3 réponses

Discussions similaires