remplir certains champs d'un doc word à partir d'un userform sous excel

Le
bob1877 Hors ligne
Bonjour,
Je cherche à incorporer à des emplacements précis dans mon fichier word, les données sélectionnées depuis mon userform dans excell.

Je voudrai ensuite par un bouton imprimer, que le document rempli sois enregistré sous un nouveau nom de fichier (tenant compte de l'identité et de la date) et imprimer via le module "saveaspdf d'excel).

Quelqu'un pourrait m'aider ?
D'avance merci
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #22974881
Bonjour,

Question de te donner une idée comment insérer une plage
de cellules d'Excel dans un fichier Word...

Tu dois ajouter à ton projetVBA, la bibliothèque
"Microsoft Word xx.0 Objects library"
Fenêtre de l'éditeur de code / outils / références /
et tu coches celle indiquée

Pour te situer dans ton fichier Word, tu peux ajouter des "signets"
où des données doivent être ajoutées.

Ce qui suit, ne se veut qu'un exemple!
'-------------------------------------
Sub test()
Dim Rg As Range
Dim Wd As Word.Application
Dim Dc As Document, C As Column
Dim T As Table, P As Row
Dim A As Integer, B As Integer
Dim Bb As Border

'Définir la plage à copier
With Worksheets("Sheets1")
Set Rg = .Range("A1:D5")
End With

Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add

Set T = Dc.Tables.Add(Range:Ü.Range, _
NumRows:=Rg.Rows.Count, _
NumColumns:=Rg.Columns.Count)

For A = 1 To Rg.Rows.Count
For B = 1 To Rg.Columns.Count
T.Cell(A, B).Range = Rg(A, B)
Next
Next

' si tu as besoin de bordures...
With T
For Each C In .Range.Columns
C.Borders(wdBorderHorizontal).Visible = True
Next
For Each P In .Range.Rows
P.Borders(wdBorderVertical).Visible = True
Next
For A = -4 To -1
.Range.Borders(A) = True
Next
End With

End Sub
'-------------------------------------


MichD
--------------------------------------------
"bob1877" a écrit dans le message de groupe de discussion :

Bonjour,
Je cherche à incorporer à des emplacements précis dans mon fichier word, les
données sélectionnées depuis mon userform dans excell.

Je voudrai ensuite par un bouton imprimer, que le document rempli sois
enregistré sous un nouveau nom de fichier (tenant compte de l'identité et de la
date) et imprimer via le module "saveaspdf d'excel).

Quelqu'un pourrait m'aider ?
D'avance merci
bob1877 Hors ligne
Le #23018261
michdenis a écrit le 31/12/2010 à 15h07 :
Bonjour,

Question de te donner une idée comment insérer une plage
de cellules d'Excel dans un fichier Word...

Tu dois ajouter à ton projetVBA, la bibliothèque
"Microsoft Word xx.0 Objects library"
Fenêtre de l'éditeur de code / outils / références /
et tu coches celle indiquée

Pour te situer dans ton fichier Word, tu peux ajouter des "signets"
où des données doivent être ajoutées.

Ce qui suit, ne se veut qu'un exemple!
'-------------------------------------
Sub test()
Dim Rg As Range
Dim Wd As Word.Application
Dim Dc As Document, C As Column
Dim T As Table, P As Row
Dim A As Integer, B As Integer
Dim Bb As Border

'Définir la plage à copier
With Worksheets("Sheets1")
Set Rg = .Range("A1:D5")
End With

Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Add

Set T = Dc.Tables.Add(Range:Ü.Range, _
NumRows:=Rg.Rows.Count, _
NumColumns:=Rg.Columns.Count)

For A = 1 To Rg.Rows.Count
For B = 1 To Rg.Columns.Count
T.Cell(A, B).Range = Rg(A, B)
Next
Next

' si tu as besoin de bordures...
With T
For Each C In .Range.Columns
C.Borders(wdBorderHorizontal).Visible = True
Next
For Each P In .Range.Rows
P.Borders(wdBorderVertical).Visible = True
Next
For A = -4 To -1
.Range.Borders(A) = True
Next
End With

End Sub
'-------------------------------------


MichD
--------------------------------------------
"bob1877" a écrit dans le message de groupe de discussion :


Bonjour,
Je cherche à incorporer à des emplacements précis dans mon
fichier word, les
données sélectionnées depuis mon userform dans excell.

Je voudrai ensuite par un bouton imprimer, que le document rempli sois
enregistré sous un nouveau nom de fichier (tenant compte de
l'identité et de la
date) et imprimer via le module "saveaspdf d'excel).

Quelqu'un pourrait m'aider ?
D'avance merci


Salut Mich,
Je n'ai pas pu répondre avant mais j'ai trouvé la solution à mon problème.
Je te remercie quand meme.
Mon projet avance bien et j'aurai d'autres questions, donc à bientot.
bye
Publicité
Poster une réponse
Anonyme