Discussion :

[noustre]

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

[The_badger_man]

merci d'utiliser les balises "code" pour y mettre le code.