Consolidation d'un document word VB.net 2010

Version imprimable

Bonjour,

Je travaille avec Microsoft Studio 2010. J'essaye de créer un programme qui me permettra de sélectionner des fichiers words existants parmi une liste via une Checked List Box, pour en créer un.

Le code ci dessous me permet de scanner et d'afficher les documents words que j'y ai déposé, de les sélectionner et de créer un document word avec.
Le problème c'est que le document word créé ne contient que l'emplacement des fichiers sélectionnés et non leur contenu.

J'ai également essayé la fonction My.Computer.FileSystem.WriteAllText pour copier le contenu du fichier vers le document créé, mais lorsqu'à lieu plusieurs copie, la dernière écrase la précédente.

Je suis un peu désespéré, vos pistes me seraient d'une grande utilité.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim No As Integer Dim i, j, k As String i = "Mémoire Technique" j = TextBox_Commune.Text k = TextBox_NomOperation.Text If CheckedListBox1.CheckedItems.Count <> 0 Then 'S'il y a des éléments cochés une boucle balaye les éléments cochés '(collection CheckedItems) et affiche le numéro de l'élément DANS LA LISTE toutes lign No = FreeFile() Dim x As Integer Dim s As Integer s = CheckedListBox1.CheckedItems.Count For x = 0 To CheckedListBox1.CheckedItems.Count - 1 s = (x + 1).ToString File.AppendAllText("C:\Users\Antoine\Documents\Mémoire technique\" & i & " " & j & " " & k & ".doc", CheckedListBox1.CheckedItems(x)) Next x End If FileClose(No) System.Diagnostics.Process.Start("C:\Users\Antoine\Documents\Mémoire technique\" & i & " " & j & " " & k & ".doc") End Sub

30/08/2012, 22h32
Ashireon
Bon je ne sais pas si c'est la solution n'etant pas un pro , je debute comme toi.

de ce que j'ai lu de la fonction File.ApendAllText( chemin du fichier , chaine de caractère a ajouter en fin de fichier)

sauf que

Code:

CheckedListBox1.CheckedItems(x)

dans ton code est considerer comme un objet

donc fait voir pour tester
Code:

1 2 dim str01 as string = Convert.ToString( checkedListbox1.checkedItem(x)) File.AppendAllText("C:\Users\Antoine\Documents\Mémoire technique\" & i & " " & j & " " & k & ".doc", str01)
30/08/2012, 22h41
Ashireon

j'ai mal lu ta question ...
en fait tu veux ouvrir plusieurs word copier leur contenu et coller dans un nouveau que tu viens de creer ?
30/08/2012, 23h06
antoine.deshayes

Merci d'avoir pris du temps pour étudier mon problème.
Oui c'est exactement ce que je veux faire. Le problème que j'ai rencontré lorsque j'ai essayé de copier coller le contenu des documents words sélectionnés dans un nouveau document créé c'est que le fichier coller "n" venait écraser le "n-1". J'ai donc essayé de trouver quelque chose qui me permette de coller à la fin du document, sans en écraser le contenu (chose normalement possible avec la fonction appendalltext) mais sans succès.
30/08/2012, 23h14
antoine.deshayes

Je viens d'essayer ton code, mais cela me fait la même chose qu'auparavant. Le document créé contient uniquement l'emplacement des fichiers, et non leur contenu.

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim No As Integer Dim i, j, k As String i = "Mémoire Technique" j = TextBox_Commune.Text k = TextBox_NomOperation.Text If CheckedListBox1.CheckedItems.Count <> 0 Then 'S'il y a des éléments cochés une boucle balaye les éléments cochés '(collection CheckedItems) et affiche le numéro de l'élément DANS LA LISTE toutes lign No = FreeFile() Dim x As Integer Dim s As Integer s = CheckedListBox1.CheckedItems.Count For x = 0 To CheckedListBox1.CheckedItems.Count - 1 s = (x + 1).ToString File.AppendAllText("C:\Users\Antoine\Documents\Mémoire technique\" & i & " " & j & " " & k & ".doc", CheckedListBox1.CheckedItems(x)) Next x End If FileClose(No) System.Diagnostics.Process.Start("C:\Users\Antoine\Documents\Mémoire technique\" & i & " " & j & " " & k & ".doc") End Sub
J'essai de piger ce que tu as fait

tu declares des variables
tu transfert des valeurs de texte dans ces dites variables
tu verififies que tu as kkchoses de sélectionné dans le checkbox
tu comptes le nombres d’élément sélectionnés
tu declares 2 variables une pour ta boucle et l'autre pour moi est un mystere

car s est d'abord déclarer s as integer ( donc une valeur numérique entière)

plus tard tu y charges un calcul transformer en string ???

mais en aucun cas dans ta procedure tu ouvres un fichier pour y copier quelques chose
File.AppendAllText c'est pour coller du texte en fin de fichier ..
ok
mais faut avoir le texte copier au prealable , la effectivement tu copies la liste des items checke dans la boite c'est tout

il faut ouvrir / copier dans une variable / fermer le fichier / coller le contenu dans le nouveau fichier

je vais regarder ca demain il se fait tard

30/08/2012, 23h38
antoine.deshayes

Les deux variables X et S sont pour la boucle. En soit ce ne sont pas elles qui posent problème.
Le problème est en effet que je copie-colle uniquement les items sélectionnés et non pas leur contenu.

Je ne t'oublie pas , je cherche la commande qui copie le contenue dans le clipboard. Ta question m'interesse beaucoup car je vais certainement faire une gestion des documents dans le projet en cours.

j'en suis la

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Imports System.IO
 
 
 
Public Class Form1
 
 Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
        Dim WordApp As Microsoft.Office.Interop.Word.Application
        Dim WordDoc As Microsoft.Office.Interop.Word.Document
        ' Dim WordSection As Microsoft.Office.Interop.Word.Section
        Dim WordRange As Microsoft.Office.Interop.Word.Range
        Clipboard.Clear()
 
 
        Dim str01 As String
        Dim str02 As String
        Dim nfichier As String
        For X As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
            str01 = Convert.ToString(CheckedListBox1.CheckedItems(X))
            str02 = TextBox1.Text
            nfichier = "C:\Users\Eric\Documents\" & str01 & ".docx"
            WordApp = CType(CreateObject("Word.Application"), Microsoft.Office.Interop.Word.Application)
            WordApp.Visible = True
            WordDoc = WordApp.Documents.Open(nfichier)
            ' copie dans le press papier tout le document ouvert
 
 
            Clipboard.SetText(WordDoc)
            WordApp.Quit()
            Dim xfichier As String = "C:\Users\Eric\Documents\" & TextBox1.Text & ".doc"
            File.AppendAllText(xfichier, Clipboard.GetText)
            Clipboard.Clear()
 
 
        Next
 
 
 
 
 
    End Sub
End Class

31/08/2012, 18h11
antoine.deshayes

J'essaye de mon côté de trouver quelque chose je te tiens au courant si j'ai quelque chose.
31/08/2012, 22h53
antoine.deshayes

Comment fais tu pour ajouter la référence Microsoft.Office.Interop.Word ? Je n'arrive pas à ajouter la Bibliothèque d'objets Microsoft Word...
01/09/2012, 15h31
Ashireon

Quand tu ouvres ton projet :
tu vas dans l'explorateur de solution
tu cliques droit
tu va dans ajouter reference
dans l'onglet .Net ou .com

j'ai ajouter les references suivantes :
office.tools / office.interop.word / office.tools.word

Il me semble que pour se faire il te faut bien sur le pack office d'installer.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
  Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
        Dim WordApp As Microsoft.Office.Interop.Word.Application
        Dim WordApp2 As Microsoft.Office.Interop.Word.Application
        Dim WordDoc As Microsoft.Office.Interop.Word.Document
        Dim WordDoc1 As Microsoft.Office.Interop.Word.Document
 
 
        Dim xfichier As String = "C:\Users\Eric\Documents\" & TextBox1.Text & ".docx"
 
        Clipboard.Clear()
 
        Dim fs As Object
        Dim blnFExiste As Boolean
        fs = CreateObject("Scripting.FileSystemObject")
        If Not (fs.FileExists(xfichier)) Then
            blnFExiste = False
            WordApp2 = CType(CreateObject("Word.Application"), Microsoft.Office.Interop.Word.Application)
            WordApp2.Visible = True
 
            Dim odoc As New Microsoft.Office.Interop.Word.Document
 
            odoc.SaveAs2(xfichier)
            odoc.Close()
            WordApp2.Quit()
 
 
        Else
            blnFExiste = True
        End If
 
 
        Dim str01 As String
        Dim str02 As String
        Dim nfichier As String
        For X As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
            str01 = Convert.ToString(CheckedListBox1.CheckedItems(X))
            str02 = TextBox1.Text
            nfichier = "C:\Users\Eric\Documents\" & str01 & ".docx"
            WordApp = CType(CreateObject("Word.Application"), Microsoft.Office.Interop.Word.Application)
            WordApp.Visible = True
            WordDoc = WordApp.Documents.Open(nfichier)
 
            WordDoc.Activate()
            WordDoc.Select()
            WordApp.Selection.Copy()
 
            WordDoc1 = WordApp.Documents.Open(CType(xfichier, Object))
            WordDoc1.Activate()
            WordApp.Selection.Paste()
 
            WordDoc1.Save()
            WordApp.Quit()
 
            Clipboard.Clear()
 
 
        Next
 
    End Sub

Bon pour le moment j'arrive bien un creer un nouveau fichier word , le seul probleme c'est que ce dernier se verrouille tout seul et je n'arrive pas ajouter le texte demandé
Cependant si le fichier est déjà existant ça fonctionne. LE copier coller des X autres fichiers se font correctement.
Si kkun a une idée pourquoi le fichier est verouille par un utilisateur ?

De mon côté j'ai pas le problème de verrouillage du document, je l'ai eu au départ puis j'ai légèrement remanié ton code (plus de problème de verrouillage) j'arrive à ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim WordApp As Microsoft.Office.Interop.Word.Application
        Dim WordApp2 As Microsoft.Office.Interop.Word.Application
        Dim WordDoc As Microsoft.Office.Interop.Word.Document
        Dim WordDoc1 As Microsoft.Office.Interop.Word.Document
 
 
        Dim xfichier As String = "C:\Users\Antoine\Documents\Mémoire technique\" & TextBox_Commune.Text & ".doc"
 
        Clipboard.Clear()
 
        Dim fs As Object
        Dim blnFExiste As Boolean
        fs = CreateObject("Scripting.FileSystemObject")
        If Not (fs.FileExists(xfichier)) Then
            blnFExiste = False
            WordApp2 = CType(CreateObject("Word.Application"), Microsoft.Office.Interop.Word.Application)
            WordApp2.Visible = True
 
            Dim odoc As New Microsoft.Office.Interop.Word.Document
 
            odoc.SaveAs(xfichier)
            odoc.Close()
            WordApp2.Quit()
 
 
        Else
            blnFExiste = True
        End If
 
 
        Dim str01 As String
        Dim str02 As String
        Dim nfichier As String
        For X As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
            str01 = Convert.ToString(CheckedListBox1.CheckedItems(X))
            str02 = TextBox_Commune.Text
            nfichier = str01
            WordApp = CType(CreateObject("Word.Application"), Microsoft.Office.Interop.Word.Application)
            WordApp.Visible = True
            WordDoc = WordApp.Documents.Open(nfichier)
 
            WordDoc.Activate()
            WordDoc.Select()
            WordApp.Selection.Copy()
            WordDoc.Close()
 
            WordDoc1 = WordApp.Documents.Open(CType(xfichier, Object))
            WordDoc1.Activate()
            WordApp.Selection.Paste()
 
            WordDoc1.Save()
            WordDoc1.Close()
            WordApp.Quit()
 
            Clipboard.Clear()
 
 
        Next
 
        System.Diagnostics.Process.Start("C:\Users\Antoine\Documents\Mémoire technique\" & TextBox_Commune.Text & ".doc")
    End Sub

Le seul problème c'est la suppression du contenu du presse papier qui bug, mis à part ça le document est bien créé et enregistré.
L'erreur affichée est sur le dernier Clipboard.Clear().

Plus de problème avec le presse-papier avec le code ci-dessous. J'ai déplacé la fonction Clipboard.Clear(). Essaye ça et dis moi si ça fonctionne chez toi.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim WordApp As Microsoft.Office.Interop.Word.Application
        Dim WordApp2 As Microsoft.Office.Interop.Word.Application
        Dim WordDoc As Microsoft.Office.Interop.Word.Document
        Dim WordDoc1 As Microsoft.Office.Interop.Word.Document
 
 
        Dim xfichier As String = "C:\Users\Antoine\Documents\Mémoire technique\" & TextBox_Commune.Text & ".doc"
 
        Clipboard.Clear()
 
        Dim fs As Object
        Dim blnFExiste As Boolean
        fs = CreateObject("Scripting.FileSystemObject")
        If Not (fs.FileExists(xfichier)) Then
            blnFExiste = False
            WordApp2 = CType(CreateObject("Word.Application"), Microsoft.Office.Interop.Word.Application)
            WordApp2.Visible = True
 
            Dim odoc As New Microsoft.Office.Interop.Word.Document
 
            odoc.SaveAs(xfichier)
            odoc.Close()
            WordApp2.Quit()
 
 
        Else
            blnFExiste = True
        End If
 
 
        Dim str01 As String
        Dim str02 As String
        Dim nfichier As String
        For X As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
            str01 = Convert.ToString(CheckedListBox1.CheckedItems(X))
            str02 = TextBox_Commune.Text
            nfichier = str01
            WordApp = CType(CreateObject("Word.Application"), Microsoft.Office.Interop.Word.Application)
            WordApp.Visible = True
            WordDoc = WordApp.Documents.Open(nfichier)
 
            WordDoc.Activate()
            WordDoc.Select()
            WordApp.Selection.Copy()
            WordDoc.Close()
 
            WordDoc1 = WordApp.Documents.Open(CType(xfichier, Object))
            WordDoc1.Activate()
            WordApp.Selection.Paste()
            Clipboard.Clear()
 
            WordDoc1.Save()
 
            WordDoc1.Close()
            WordApp.Quit()
 
 
 
 
        Next
 
        System.Diagnostics.Process.Start("C:\Users\Antoine\Documents\Mémoire technique\" & TextBox_Commune.Text & ".doc")
    End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
        Dim WordApp As Microsoft.Office.Interop.Word.Application
 
        Dim WordDoc As Microsoft.Office.Interop.Word.Document
 
 
        Dim xfichier As String = "C:\Users\Eric\Documents\" & TextBox1.Text & ".rtf"
 
        Clipboard.Clear()
 
 
        Dim str01 As String
        Dim str02 As String
        Dim nfichier As String
        For X As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
            str01 = Convert.ToString(CheckedListBox1.CheckedItems(X))
            str02 = TextBox1.Text
            nfichier = "C:\Users\Eric\Documents\" & str01 & ".docx"
            WordApp = CType(CreateObject("Word.Application"), Microsoft.Office.Interop.Word.Application)
            WordApp.Visible = True
            WordDoc = WordApp.Documents.Open(nfichier)
            Dim wds As Microsoft.Office.Interop.Word.Range
            wds = WordDoc.Range()
 
            WordDoc.Activate()
            WordDoc.Select()
            Clipboard.SetText(wds.Text)
            WordApp.Selection.Copy()
            WordDoc.Close()
            WordApp.Quit()
 
            IO.File.AppendAllText(xfichier, Clipboard.GetText)
 
 
            Clipboard.Clear()
 
 
 
        Next
 
    End Sub

Ce code fonctionne en ajout de texte en format RTF , mais ca ne fonctionne pas en.docX ???

03/09/2012, 15h29
antoine.deshayes

Le code donné précédemment fonctionne avec des fichiers .doc. J'ai fait un essai avec des fichiers contenant des polices différentes, des images, pied de page et cela fonctionne.
03/09/2012, 16h21
Ashireon

alors c'est le format docX qui doit etre particulier
Si ca resout ton probleme tu peux mettre en Resolu
03/09/2012, 16h29
antoine.deshayes

Je n'ai pas essayé avec les fichiers .docx.
En tout cas un grand merci pour ton aide, sans tes lumières je n'y serai pas arrivé ;) .
03/09/2012, 16h42
Ashireon

Et bien on m'aide beaucoup sur ce forum donc si je peux faire la pareil c'est naturel.
De plus j'ai bien cherché et j'ai appris pleins de choses. C'est le but.

++