0/5 (9 avis)
Snippet vu 3 810 fois - Téléchargée 30 fois
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
9 janv. 2013 à 11:22
30 déc. 2012 à 17:04
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 ?
10 janv. 2012 à 07:24
9 janv. 2012 à 23:51
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...
28 oct. 2011 à 11:06
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.