[VB6] Document Word

Version imprimable

Voir 40 message(s) de cette discussion en une page

[VB6] Document Word

Bonjour, lorsque j'exécute le code ci-dessous, la première fois tout fonctionne correctement, mais lorsque je relance cette fonction une deuxième de suite alors il me pose un problème

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
Private Sub Command2_Click()
    Dim MyWord As Word.Application
    Dim doc As Word.Document
    Set MyWord = New Word.Application
    With MyWord
        .Documents.Open(CHEMIN2)
        Selection.WholeStory
        Selection.Delete Unit:=wdCharacter, Count:=1
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        Selection.Font.Size = 20
        Selection.Font.Bold = wdToggle
        Selection.TypeText Label1 ' écrit le titre
        Selection.TypeParagraph ' a la ligne
        Selection.TypeParagraph
        '''''''''''''''''''''''''''''''''''
        ' récupérer le nombre de colonnes '
        '''''''''''''''''''''''''''''''''''
        Dim VARC, VARL As Integer
        VARC = Form5.MSFlexGrid1.Cols
        VARL = Form5.MSFlexGrid1.Rows
 
        Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
        ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=VARL, NumColumns:=VARC, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitContent
        With Selection.Tables(1)
            If .Style <> "Grille du tableau" Then
                .Style = "Grille du tableau"
            End If
            .ApplyStyleHeadingRows = True
            .ApplyStyleLastRow = True
            .ApplyStyleFirstColumn = True
            .ApplyStyleLastColumn = True
        End With
        For i = 0 To VARL - 1
            For j = 0 To VARC - 1
                Selection.TypeText Text:=Form5.MSFlexGrid1.TextMatrix(i, j)
                Selection.MoveRight Unit:=wdCell
            Next j
        Next i
        'doc.SaveAs App.Path & "\stat.doc" ' enregistre sous un autre nom
        .Visible = True ' rend l'application visible
    End With
    Set MyWord = Nothing
    Set doc = Nothing
End Sub

Voici l'erreur

Citation:

Erreur 462 : Le serveur distant n'existe pas ou est indisponible

Pourriez-vous m'aider ?

13/11/2005, 15h13
avigeilpro

J'ai eu le meme souci et je l'ai réglé en ne fermant l'application word que a la fin de mon programme, lorsque celui-ci se ferme (unload de la feuille principale)
je te conseil :
- enlève les deux dernières lignes (set ...)
- ajoute MyWord.Quit dans le Unlod de ta feuille principale.
- Enfin joue sur la propriété Visble de l'application word pour faire croire ou non a l'utilisateur que word est décharger.
J'espère t'avoir aidé. :wink:
13/11/2005, 15h50
khany

Il y a plus simple !

Tu n'es pas obligé de fermer word mais tu dois toujours faire référence à ton objet cela signifie que chacune de tes lignes (ou un "With", ce qui est mieux) doit toujours contenir ton instance Word.

Je me suis heurtée à ce même problème à mes débuts. Si vous désirez un exemple allez voir dans la page sources VB ici : http://vb.developpez.com/sources/?page=word#wordprj

vous verrez que j'adresse toujours mon objet Word :wink:
14/11/2005, 09h29
eagleleader

Khany : lorsque tu dis que je dois toujours adresser mon objet Word, dans mon code, qu'est-ce que je dois corriger alors ? Car pour moi il reste adressé vu que je fais un With. non ?
14/11/2005, 10h06
khany

Tu as raison, tu fais comme moi.
Bizarre, je n'ai jamais plus eu ce problème en faisant le With MyWord :roll:

Cela pourrait-il être lié à la façon dont tu fermes le document ?
14/11/2005, 10h11
eagleleader

Le problème c'est que je ne peux pas mettre myword.quit dans le unload car il s'agit de statistiques envoyées dans un fichier word et si l'utilisateur clic plusieurs fois sur le bouton pour visualiser les statistiques dans le fichier, il ne quittera pas la forme donc je pense que je ne peux pas mettre le quit dans le unload si ?
14/11/2005, 10h21
eagleleader

J'ai essayé de mettre le MyWord.Quit mais j'ai toujours la même erreur. J'ai tenté de faire une déclaration pour toute la feuille donc la déclaration en début mais il me met une erreur sur le document.

Je ne vois pas comment faire.
17/11/2005, 17h25
eagleleader

Quelqu'un aurait-il une idée ?
17/11/2005, 17h29
Megaxel

Juste une question: ta variable CHEMIN2, elle contient quoi? C'est une variable globale?
17/11/2005, 17h54
ouskel'n'or
Je sais, je suis dans VBA mais je n'ai jamais eu de pb en faisant ça
Code:

1 2 3 Set MonAppli = Application MonAppli.Visible = True MonAppli.Quit SaveChanges:=wdDoNotSaveChanges
Si tu as sauvegardé ton fichier + tôt, tu devrais pouvoir faire ça.

A tout hasard
17/11/2005, 20h53
khany

As-tu progressé ?

désolée, je suis en formation donc moins présente :wink:
18/11/2005, 19h11
eagleleader

Non je n'ai pas progressé du tout j'ai déjà cherché à fermer l'application mais cela ne fonctionne pas.
CHEMIN2 est une variable globale qui détermine un accès d'un fichier word en locurrence. J'ai remarqué que l'application WORD créait un fichier temporaire ce qui rend le document en lecture seule. Mais seulement lors d'un deuxième appui sur le bouton qui provoque l'exécution du code. Avez-vous une idée ?

As-tu essayé
Code:

1 2 3 4 5 6 7 8 9 10 .... doc.SaveAs App.Path & "\stat.doc" ' enregistre sous un autre nom .Visible = True ' rend l'application visible End With DoEvents Doc.close false Doevents MyWord .Quit Set MyWord = Nothing Set doc = Nothing
et de supprimer ta déclaration

Citation:

Dim MyWord As Word.Application

Quand tu enregistres ton document tu ne le fermes pas.
Une idée comme ça...
Quant aux doevents, c'est vraiment par acquis de conscience

Tu dis

A+

21/11/2005, 09h07
eagleleader

Slt Ouksel, si je fais ton code :

1) il me met une erreur sur Doc.close false => je dois le mettre en commentaire pour pouvoir continuer
2) lorsqu'il exécute le code il me ferme le Word enfin il me demande si je veux enregistrer ou non les modifications donc c'est comme si il fermait le Word.
3) Si je ne mets pas ma déclaration, il me dit que la variable n'existe pas car dans tous mes projets j'utilise OPTION EXPLICIT.

En tout cas c'est sympa de votre part à tous de m'aider.
21/11/2005, 09h41
ouskel'n'or

Hello,
Un week-end là-dessus, ton appli doit être en forme...
Essaie avec "Doc.close", sans le false
Remets la déclaration (je ne comprends pas, car set devrait suffire... mais là, j'avoue mon ignorance)
Et tu nous dis.

Il y a souvent des posts sur la fermeture de Word ou Excel en VB, doit bien ya avoir quelque chose dans la FAC

Bon courage

A+
21/11/2005, 12h34
eagleleader

si je mets le DOC.CLOSE il met à l'utilisateur la boite enregistrer les modifications : oui - non - annuler et de toute façon le programme reviens en erreur à la deuxième tentative.

Je me suis basé sur le doc de Khany dans la faq mais je ne comprends pas pourquoi cela ne fonctionne pas.

En fait c'est très simple ce que je veux faire : écrire une première ligne contenant des résultats généraux en une seule phrase et ensuite créer un tableau mais bon on dirait que Word après l'exécution, ne peut se réouvrir une seconde fois. Pourtant le fichier original n'est pas modifié au contraire puisque j'enregistre sous un autre nom. Vive l'informatique !!!
21/11/2005, 12h39
ouskel'n'or

Pour le message après Doc.close, tu peux l'éviter en faisant précéder cette commande de "Application.displayAlerts = false"

A+
21/11/2005, 12h45
eagleleader

Ce n'est pas la fermeture du document qui pose problème car au deuxième essai il m'indique une erreur sur

Code:

Selection.WholeStory

Je pense qu'il doit il y avoir un verrou sur le fichier Word car lorsque j'ouvre moi même le fichier je m'aperçois qu'il y a un fichier de sauvegarde enregistré. Arf WORD :evil:
21/11/2005, 14h36
ouskel'n'or
Je pense à une chose : quand tu enregistres ton doc, tu ne précises pas le format. Essaie ça

Code:

ActiveDocument.SaveAs FileName:= myDocname, FileFormat:=wdFormatDocument

Une petite remarque
Tu sélectionnes tout et ensuite pour effacer tu ajoutes "Unit:=wdCharacter, Count:=1" Ce n'est pas nécessaire
Code:

1 2 Selection.WholeStory Selection.Delete
marche aussi bien

J'ai trouvé : il faut que je fasse ceci :

Chaque fois que j'utilise Selection je dois mettre .Selection ainsi que tout objet : Donc pour tout objet du document j'ai du mettre le POINT devant ce qui donne :

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
    Dim MyWord As Word.Application
    Dim doc As Word.Document
    Set MyWord = New Word.Application
    With MyWord
        .Documents.Open (CHEMIN2)
        .Selection.WholeStory
        .Selection.Delete
        .Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        .Selection.Font.Size = 20
        .Selection.Font.Bold = wdToggle
        .Selection.TypeText Label1 ' écrit le titre
        .Selection.TypeParagraph ' a la ligne
        .Selection.TypeParagraph
        '''''''''''''''''''''''''''''''''''
        ' récupérer le nombre de colonnes '
        '''''''''''''''''''''''''''''''''''
        Dim VARC, VARL As Integer
        VARC = Form5.MSFlexGrid1.Cols
        VARL = Form5.MSFlexGrid1.Rows
 
        .Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft ' se mettre à gauche dans le document
        ''''''''''''''''''''
        ' créer un tableau '
        ''''''''''''''''''''
        .ActiveDocument.Tables.Add Range:=.Selection.Range, NumRows:=VARL, NumColumns:=VARC
        With .Selection.Tables(1)
            If .Style <> "Grille du tableau" Then
                .Style = "Grille du tableau"
            End If
            .ApplyStyleHeadingRows = True
            .ApplyStyleLastRow = True
            .ApplyStyleFirstColumn = True
            .ApplyStyleLastColumn = True
        End With
        '''''''''''''''''''''''''''''''''''''''''''''''
        ' remplir le tableau créé avec la MSFlexGrid1 '
        '''''''''''''''''''''''''''''''''''''''''''''''
        For i = 0 To VARL - 1
            For j = 0 To VARC - 1
                .Selection.TypeText Text:=Form5.MSFlexGrid1.TextMatrix(i, j)
                .Selection.MoveRight Unit:=wdCell
            Next j
        Next i
        doc.SaveAs App.Path & "\stat.doc" ' enregistre sous un autre nom
        .Visible = True ' rend l'application visible
    End With
    DoEvents
    Set doc = Nothing
    Set MyWord = Nothing

Merci à vous tous pour votre aide : en particulier à Ouksel et Khany

Voir 40 message(s) de cette discussion en une page