Exporter mflexgrid dans document word

0/5 (9 avis)

Snippet vu 3 810 fois - Téléchargée 30 fois

Contenu du snippet

il faut referance le word application dans votre projet

Source / Exemple :


Private Sub Image2_Click()
'Importer.DataGrid1.Print
'DataGrid1.t
'Early object binding
Dim oWord As Word.Application

Dim oDoc As Word.Document
Dim oRange As Word.Range
'Uncomment below for late object binding
'Dim oWord As Object
'Dim oDoc As Object
'Dim oRange As Object
Dim row As Integer
Dim col As Integer
Dim i As Integer
Dim n As Integer
Dim sTemp As String
Dim arr() As String
  
ReDim arr(MSFlexGrid1.Rows - 1, MSFlexGrid1.Cols - 1)
  
'Créer une instance de word
Set oWord = CreateObject("Word.Application")

'rendre le document word visible
oWord.Visible = True

'Ouivrir un nouveau document
Set oDoc = oWord.Documents.Add

For row = 0 To MSFlexGrid1.Rows - 1
    n = 0
    For col = 0 To MSFlexGrid1.Cols - 1
        arr(i, n) = MSFlexGrid1.TextMatrix(row, col)
        n = n + 1
    Next
    i = i + 1
Next

'ENregistrer sur un tableau
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

'Avoir l'emplacelent sur le document
Set oRange = oDoc.Bookmarks("\EndOfDoc").Range

oRange.Text = sTemp

'Convertire le format et le texte
oRange.ConvertToTable vbTab, Format:=wdTableFormatColorful2

Set oRange = Nothing

End Sub

A voir également

Ajouter un commentaire Commentaires
320C Messages postés 94 Date d'inscription dimanche 24 avril 2011 Statut Membre Dernière intervention 15 janvier 2014
9 janv. 2013 à 11:22
Merci RENFIELD
Salut à Tous.
Merci pour la solution (je n'ai testé que celle de garoui pour le moment).
J'ai un petit problème et j'espère avoir votre aide : en fait j'ai les cellules de la première ligne fusionnées par triplets dans mon MSFlexGrid (C'est à dire que chaque trois cellules forment une seule). Qu'est ce que je dois ajouter au code pour avoir le même résultat en Word ?
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
10 janv. 2012 à 07:24
menu Projet > Reference > Microsoft Word
320C Messages postés 94 Date d'inscription dimanche 24 avril 2011 Statut Membre Dernière intervention 15 janvier 2014
9 janv. 2012 à 23:51
Salut à tous!
SVP, aidez moi, ... j'utilise VB 6.0 édition professionnel, mais pour essayer de declarer le variable word???; cela ne marche pas

Càd exemple:
dim oWord as Word.application

Ceci ne mais donne pas l'oportunite de regenere Word dans la liste de proprété qui sorte et ci je vais faire la mailin à copier, le programme affiche une erreur sur cette déclaration.
Merci à tous pour votre contrbibution...
cres12 Messages postés 5 Date d'inscription lundi 24 octobre 2005 Statut Membre Dernière intervention 20 juillet 2012
28 oct. 2011 à 11:06
Excellent pour le code, cependant j'aimerais ajouter 2 tableaux dans le fichhier word comment faire?
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.