bonjours
je suis en trains de developper une application qui compare 2 word
au debut je trouve pas des problemes la comparaison entre le 2 word s'effet
avec succées. mais je pensée aprées que en cas de selectionner chaque fois
un fichier word pour le comparer avec un autre pourquoi je choisie pas un
fichier word et je le donne une arborescence dont la qu'elle il va comparer
notre word avec tous les fichier wrod trouvées dans cette arboresence
mais dans cette cas j'ai un petit probleme c'est que au niveau de boucle qui
parcourire tous les fichiers word juste la comparaison avec le premier word
se fait avec succeés mais pour le suivant le word il peut pas l'ouvrire . je sais
pas ou le probleme. peut etre au niveau de processuce par ce que je trouve
au gestion de tache qu'il ya plusieur processuce winword en cours d'execution
ce pour ça je pense qu'il ce probleme .
ok ce ca le corp de mon application et mercie dans tous cas pour votre
attention:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'rechercher des fichier dans une arboresence d'un rep
ListerfichierRep(y)
Dim file As Integer
'CountFiles c'est le nombre des files trouveés
For file = 0 To CountFiles - 1
'lstFiles contient tous les emplacements des fichier word trouveé
x2 = lstFiles.Items(file).ToString
mydoc1 = myword1.Documents.Open((x1), False, False)
mydoc1.Activate()
myword1.Visible = False
mydoc2 = myword2.Documents.Open((x2), False, False)
mydoc2.Activate()
myword2.Visible = False
' Comparaison des 2 fichier word
mydoc1.Close()
mydoc2.Close()
myword1.Quit()
myword2.Quit()
MsgBox("la comparaison avec le " & lstFiles.Items(file) & " est
terminée")
Next
End Sub
![]()
![]()
Partager