voila ce que je voudrais faire à partir d'excel ( à l'aide d'une macro):
1- ouvrir un fichier Word.
2- insérer une zone de text (en définissant hauteur, largeur et
emplacement).
3- copier tableau dans excel puis faire un coller dans la zone de text de
word.
4- selectionner le tableau dans Word => faire "propriété du tableau" =>
onglet "Ligne" => cocher la case "spécifier la hauteur" et mettre 0 comme
valeur de la hauteur de ligne (c'est pour réduire la taille du tableau)
5- Remplir certains champs dans word qui sont dans l'entête et le pied de
page du documment word.
on peut faire autremment à partir de word (peut-être que c'est plus facile)
:
1- ouvrir le classeur excel
2- lancer la macro qui va créer le tableau
3- detecter que la macro Excel est fini sont execution
3- insérer une zone de text dans word
4- copier le tableau d'excel dans la zone de text de word
5- selectionner le tableau dans Word => faire "propriété du tableau" =>
onglet "Ligne" => cocher la case "spécifier la hauteur" et mettre 0 comme
valeur de la hauteur de ligne (c'est pour réduire la taille du tableau)
6- Remplir certains champs dans word qui sont dans l'entête et le pied de
page du documment word
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
Emcy
pour l'instant, j'arrive à créer une zone de text mais je n'arrive toujours pas à insérer mon tableau Excel par copier/coller j'ai aussi essayé de faire un saut de page mais ça ne marche pas
Sub Word()
Dim WordObj As Object Dim WordFile As Object Dim NewTextBox As Object Dim NewTable As Object
Call OuvrirIni
'On Error Resume Next Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True Set WordFile = WordObj.Documents.Open(NomenclatureWord) 'ouvre la nomenclature Word 'WordFile.InsertBreak Type:=wdPageBreak 'saut de page 'WordFile.MoveUp Unit:=wdLine, Count:=1 'selectionne la page précédente
Set NewTextBox WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:(.5, Top:r, Width:w5, Height:90)
Set NewTextBox = Nothing Set WordFile = Nothing Set WordObj = Nothing
End Sub
"Emcy" a écrit dans le message de news:
Bonjours,
voila ce que je voudrais faire à partir d'excel ( à l'aide d'une macro): 1- ouvrir un fichier Word. 2- insérer une zone de text (en définissant hauteur, largeur et emplacement). 3- copier tableau dans excel puis faire un coller dans la zone de text de word. 4- selectionner le tableau dans Word => faire "propriété du tableau" => onglet "Ligne" => cocher la case "spécifier la hauteur" et mettre 0 comme valeur de la hauteur de ligne (c'est pour réduire la taille du tableau) 5- Remplir certains champs dans word qui sont dans l'entête et le pied de page du documment word.
on peut faire autremment à partir de word (peut-être que c'est plus facile)
: 1- ouvrir le classeur excel 2- lancer la macro qui va créer le tableau 3- detecter que la macro Excel est fini sont execution 3- insérer une zone de text dans word 4- copier le tableau d'excel dans la zone de text de word 5- selectionner le tableau dans Word => faire "propriété du tableau" => onglet "Ligne" => cocher la case "spécifier la hauteur" et mettre 0 comme valeur de la hauteur de ligne (c'est pour réduire la taille du tableau) 6- Remplir certains champs dans word qui sont dans l'entête et le pied de page du documment word
pour l'instant, j'arrive à créer une zone de text mais je n'arrive toujours
pas à insérer mon tableau Excel par copier/coller
j'ai aussi essayé de faire un saut de page mais ça ne marche pas
Sub Word()
Dim WordObj As Object
Dim WordFile As Object
Dim NewTextBox As Object
Dim NewTable As Object
Call OuvrirIni
'On Error Resume Next
Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True
Set WordFile = WordObj.Documents.Open(NomenclatureWord) 'ouvre la
nomenclature Word
'WordFile.InsertBreak Type:=wdPageBreak 'saut de page
'WordFile.MoveUp Unit:=wdLine, Count:=1 'selectionne la page précédente
Set NewTextBox WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,
Left:(.5, Top:r, Width:w5, Height:90)
Set NewTextBox = Nothing
Set WordFile = Nothing
Set WordObj = Nothing
End Sub
"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de
news:ejGluyGTEHA.3968@TK2MSFTNGP09.phx.gbl...
Bonjours,
voila ce que je voudrais faire à partir d'excel ( à l'aide d'une macro):
1- ouvrir un fichier Word.
2- insérer une zone de text (en définissant hauteur, largeur et
emplacement).
3- copier tableau dans excel puis faire un coller dans la zone de text de
word.
4- selectionner le tableau dans Word => faire "propriété du tableau" =>
onglet "Ligne" => cocher la case "spécifier la hauteur" et mettre 0 comme
valeur de la hauteur de ligne (c'est pour réduire la taille du tableau)
5- Remplir certains champs dans word qui sont dans l'entête et le pied de
page du documment word.
on peut faire autremment à partir de word (peut-être que c'est plus
facile)
:
1- ouvrir le classeur excel
2- lancer la macro qui va créer le tableau
3- detecter que la macro Excel est fini sont execution
3- insérer une zone de text dans word
4- copier le tableau d'excel dans la zone de text de word
5- selectionner le tableau dans Word => faire "propriété du tableau" =>
onglet "Ligne" => cocher la case "spécifier la hauteur" et mettre 0 comme
valeur de la hauteur de ligne (c'est pour réduire la taille du tableau)
6- Remplir certains champs dans word qui sont dans l'entête et le pied de
page du documment word
pour l'instant, j'arrive à créer une zone de text mais je n'arrive toujours pas à insérer mon tableau Excel par copier/coller j'ai aussi essayé de faire un saut de page mais ça ne marche pas
Sub Word()
Dim WordObj As Object Dim WordFile As Object Dim NewTextBox As Object Dim NewTable As Object
Call OuvrirIni
'On Error Resume Next Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True Set WordFile = WordObj.Documents.Open(NomenclatureWord) 'ouvre la nomenclature Word 'WordFile.InsertBreak Type:=wdPageBreak 'saut de page 'WordFile.MoveUp Unit:=wdLine, Count:=1 'selectionne la page précédente
Set NewTextBox WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:(.5, Top:r, Width:w5, Height:90)
Set NewTextBox = Nothing Set WordFile = Nothing Set WordObj = Nothing
End Sub
"Emcy" a écrit dans le message de news:
Bonjours,
voila ce que je voudrais faire à partir d'excel ( à l'aide d'une macro): 1- ouvrir un fichier Word. 2- insérer une zone de text (en définissant hauteur, largeur et emplacement). 3- copier tableau dans excel puis faire un coller dans la zone de text de word. 4- selectionner le tableau dans Word => faire "propriété du tableau" => onglet "Ligne" => cocher la case "spécifier la hauteur" et mettre 0 comme valeur de la hauteur de ligne (c'est pour réduire la taille du tableau) 5- Remplir certains champs dans word qui sont dans l'entête et le pied de page du documment word.
on peut faire autremment à partir de word (peut-être que c'est plus facile)
: 1- ouvrir le classeur excel 2- lancer la macro qui va créer le tableau 3- detecter que la macro Excel est fini sont execution 3- insérer une zone de text dans word 4- copier le tableau d'excel dans la zone de text de word 5- selectionner le tableau dans Word => faire "propriété du tableau" => onglet "Ligne" => cocher la case "spécifier la hauteur" et mettre 0 comme valeur de la hauteur de ligne (c'est pour réduire la taille du tableau) 6- Remplir certains champs dans word qui sont dans l'entête et le pied de page du documment word
