remplir certains champs d'un doc word à partir d'un userform sous excel
2 réponses
bob1877
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).
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
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
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 : zbednfkWgdy-QYDQ4p2dnAA@giganews.com...
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).
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
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
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
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