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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VB/VBA/VBS]Trouver une référence dans plusieurs centaines de word

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VB/VBA/VBS]Trouver une référence dans plusieurs centaines de word

n°2147188
tutu831
Posté le 26-06-2012 à 16:17:46  profilanswer
 

Salut tout le monde,
après plusieurs recherche, je n'ai pas réussi à aboutir et je n'ai pas les capacitées pour écrire mon code et j'ai déséspérement besoin d'aide.
 
Mon problème :
Je dispose dans un répertoire d'environ 500-600 documents word.
D'un autre coté,  je dispose de 80 références à 4 chiffres mis dans un tableau excel (ex : FME N°2025). Ces références sont mentionnées dans les documents word (certaines références peuvent se retrouver dans 300 documents différents).
Mon travail consiste vérifier que ces références sont bien dans les documents (je connais donc la liste des documents qui sont associés à la référence). Je n'ai pas le temps ni l'envie d'ouvrir chaque fichier, de chercher la référence et de passer ensuite à un autre document word (surtout si il faut le faire 300 fois pour une seule référence).
 
Je voudrais donc avoir une macro qui puisse ouvrir les documents word, chercher la référence dedans et me renvoyer l'info si la référence y est ou pas puis fermer le document et passer au suivant.
 
J'ai trouver un bout de code sur un site mais il ne marche pas dans ma situation et je dois bien avouer que je suis vraiment débutant en vba :
 
'fonction recherchant du texte dans un fichier
Function Recherche(Fichier As String, texte As String, result As Integer)
 
MsgBox Fichier
Open Fichier For Input As #1
Do Until EOF(1)
'Line Input #1, ligne
'If InStr(ligne, texte) <> 0 Then
result = 1
Exit Do
End If
Loop
Close #1
 
End Function
 
 
 
Function Recherche(Fichier As String, texte As String) As Integer
 
'Déclaration de l'objet Word
Dim WrdApp As Object
 
'Initialisation
Recherche = 0
 
'Création de l'instance Word
Set WrdApp = CreateObject("Word.Application" )
 
'S'assurer que l'appli Word est invisible
WrdApp.Visible = False
 
'Ouvrir le fichier
WrdApp.documents.Open Fichier
 
'Faire la recherche
With WrdApp.documents(Fichier).content.Find
.Text = texte
.Execute
If .Found = True Then Recherche = 1
End With
 
'Fermer le document sans enregistrer
WrdApp.documents(Fichier).Close False
 
'Quitter l'application Word
WrdApp.Quit
Set WrdApp = Nothing
End Function
 
De plus je ne sais pas si je dois créer ma macro dans un fichier word vierge placé dans le répertoire puis ensuite lancer la macro ou faire autrement.
 
Merci d'avance a celui ou ceux qui voudraient bien regarder ça et m'apporter une solution.
 
Merci d'avance pour vos réponse.


Message édité par tutu831 le 26-06-2012 à 17:13:53
mood
Publicité
Posté le 26-06-2012 à 16:17:46  profilanswer
 

n°2153633
Laoo
Posté le 19-08-2012 à 19:44:52  profilanswer
 

Bonjour à toi
 
Pas bcp de réponses, dis donc! J'espère que tu as trouvé depuis?
 
Connais-tu le sites : codes-sources.com  
Autrefois, j'avais fait bcp de programmation en VB, et il me semble que j'y avais trouvé pas mal de choses...
 
 
 tu peux évidemment rentrer ton code dans la partie code d'un fichier word, et l'exécuter à partir de ce fichier, la partie importante est de spécifier le répertoire du fichier à vérifier dans le chemin si ton fichier base se trouve ds un autre.
 
Autant qu'il m'en souvienne. Et pour le reste ...
 


---------------
Olympus OM-D  EM-5 + 14-42

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

  [VB/VBA/VBS]Trouver une référence dans plusieurs centaines de word

 

Sujets relatifs
CMS UPSILON aideDe Word à HTML
Aide en htmlmarge auto entre plusieurs images
Besoin d'aide java[C] Aide pour petit exo 2
[C] Aide pour petit exoutilisation d'une SUM de plusieurs COUNT
Combox qui influence plusieurs autres frames 
Plus de sujets relatifs à : [VB/VBA/VBS]Trouver une référence dans plusieurs centaines de word


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