Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Shop Recherche
1921 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème de macro et d'importation d'un fichier Word

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Problème de macro et d'importation d'un fichier Word

n°2256829
Buzz_75
Posté le 28-04-2015 à 23:47:01  profilanswer
 

Bonjour  :jap:  
 
Je précise d'abord que je suis sur mac (pour les chemins d'accès au fichier, etc.)
 
Mon but est de créer un Userform qui aurait pour but de demander à l'utilisateur si les mots d'une colonne A, importés d'un fichier Word, sont des mots clés, et si tel est le cas, copier ce mot dans la colonne C. Si le mot est de nouveau présent dans la colonne A, il faut alors prendre en compte le fait que l'utilisateur a déjà pris une décision, donc ne pas lui demander si le mot est un mot clé.
 
J'ai un problème au niveau de ma macro pour importer les mots du fichier word sur la colonne A, j'obtiens le message d'erreur "La méthode "Open" de l'objet "Documents" a échoué." Quand je clique sud déboguage, il surligne en jaune cette ligne : .Documents.Open Filename:="/Users/Projet/VBA/Etapesuivre.docx"
 
Sub lireDocument()
 
Dim i, NbreMots As Long
Dim WdApp As Word.Application
Set WdApp = New Word.Application
 
With WdApp
.Documents.Open Filename:="/Users/Projet/VBA/Etapesuivre.docx"
With .Selection
.EndKey Unit:=wdStory
.TypeParagraph
End With
.ActiveDocument.Save
' On trouve le nombre de mots
NbreMots = .ActiveDocument.Words.Count
' On écrit les mots dans la colonne A
For i = 1 To NbreMots
Cells(i, 1) = .ActiveDocument.Words(i)
Next i
.Documents.Close
.Application.Quit
End With
Set WdApp = Nothing
End Sub
 
Pour ce qui est de la suite et de la recherche de mots clé (on doit demander à l'utilisateur pour chaque mot s'ils sont courant ou pas, et ne pas reposer la question pour des mots déjà classés précédemment) , je suis parti dans la direction suivante, mais je me suis perdu et n'arrive pas vraiment à cerner le problème et à aboutir à quelque chose de concret.
 
Sub Courant()
Dim i As Integer
Dim j As Integer
 
i = 1
j = 1
 
Do While (Cells(i, 1) <> "//" )
If MsgBox("Est-ce un mot courant ?", vbYesNo) = vbYes Then Cells(i, 1).Value = Cells(j, 4)
End If
If Cells(i, 1).Value = Cells(j, 4) Then j = j + 1
End If
i = i + 1
Loop
 
End Sub
 
 
Merci beaucoup de votre aide !

mood
Publicité
Posté le 28-04-2015 à 23:47:01  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème de macro et d'importation d'un fichier Word

 

Sujets relatifs
Charger fichier txt dans tableauLire une variable contenu dans un fichier durant une boucle ?
retrouver un mot dans un FichierProblème script enregistrement / tranfert
Decouper un fichierImportation de données ciblées d'un site web
Problème de non-compilationproblème d'en tête avec wordpress
Aide Fichier.bat info Regroupage info fichier texteProblème de sortie d'une boucle while en PYTHON
Plus de sujets relatifs à : Problème de macro et d'importation d'un fichier Word


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR