Erreur lors d'un transfert d'un msflexgrid vers word
serplus
Messages postés2Date d'inscriptionmercredi 20 avril 2005StatutMembreDernière intervention 7 février 2011
-
3 févr. 2011 à 17:07
serplus
Messages postés2Date d'inscriptionmercredi 20 avril 2005StatutMembreDernière intervention 7 février 2011
-
7 févr. 2011 à 20:08
Bonjour,
C'est mon premier post
Je travaille avec VB6 SP6 sous XP Pro SP3. J'ai une application ou je tire des données d'une base Acces pour le mettre dans un MSFlexGrid. Le but final est d'imprimer ce dernier. J'utilise le transfert dans Word 2003 car j'ajoute d'autres éléments grâce aux signets. Seulement cela marche qu'une fois pas deux, le document Word est bien lancé la deuxième fois mais j'ai : "Erreur 462 Le serveur distant n'existe pas ou n'est pas disponible" et le programme s'arrête sur la ligne surlignée en bleu (code suit). J'ai déjà fait 1)MSWrd632.wpc
2) vérifié qu'il ne restait pas un fichier ouvert (~§XXX.doc)
3) Si WinWord.exe n'était plus en processus (Process explorer).
Le fait de quitter le programme et tout redémarre. J'ai visité tous les sites traitant de l'erreur (du moins je crois). Je tourne en rond depuis pas mal de temps, un œil éclairé, une idée, ou tout simplement une correction du code serait le bien venu.
Merci
Private Sub cmdLpt_Click()
Dim MyWord As Word.Application
Dim MyDoc As Word.Document
Dim MyRange As Word.Range
Set Fg = MSFlexGrid8
Set MyWord = New Word.Application
MyWord.Visible = True
Set MyDoc = MyWord.Documents.Open(Activites) 'fichier Activités.doc
ReDim Arr(Fg.Rows - 1, Fg.Cols - 1)
sTemp = ""
I = 0
For Row = 0 To Fg.Rows - 1
N = 0
For Col = 0 To Fg.Cols - 1
Arr(I, N) = Fg.TextMatrix(Row, Col)
N = N + 1
Next
I = I + 1
Next
For I = LBound(Arr, 1) To UBound(Arr, 1)
For N = LBound(Arr, 2) To UBound(Arr, 2)
sTemp = sTemp & Arr(I, N)
If N = UBound(Arr, 2) Then
sTemp = sTemp & vbCrLf
Else
sTemp = sTemp & vbTab
End If
Next
Next
Set MyRange = ActiveDocument.Bookmarks("Tab").Range
MyRange.Text = sTemp
MyRange.ConvertToTable vbTab, Format:=wdTableFormatColorful2
MyDoc.Bookmarks("Activité").Range.Text = fraStats.Caption
DoEvents
Set MyRange = Nothing
Set MyDoc = Nothing
Set MyWord = Nothing
cmdLpt.Enabled = False
End Sub
A voir également:
Erreur lors d'un transfert d'un msflexgrid vers word