doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
qui me semble un peu bizarre.
Bonjour à tous,
Je souhaite par le biais d'une macro excel copier des plage de cellules
dans
un document word à des endroits définis par des signets.
Le problème est que le 2ème "collage" se place debvant le 1er .... Je ne
comprends pas pourquoi.
Merci de votre aide
Lulu
Ci-dessous la macro :
Sub OLE_Vers_Word()
'
' OLE_Vers_Word Macro
Dim oApp As Word.Application, doc As Word.Document
Dim nf, nom_doc, nom As String
nom = "essai"
nf = ThisWorkbook.Path & "CP.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'Copiage de la page 1
Sheets("1ere page").Visible = True
Sheets("1ere page").Activate
Range("A1:E36").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
'Copiage tableau de garantie 1
Sheets("Tableaux des garanties").Visible = True
Sheets("Tableaux des garanties").Activate
Range("b6:f42").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="TabGar1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
Set oApp = Nothing
MsgBox "Faut voir"
End Sub
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
qui me semble un peu bizarre.
Bonjour à tous,
Je souhaite par le biais d'une macro excel copier des plage de cellules
dans
un document word à des endroits définis par des signets.
Le problème est que le 2ème "collage" se place debvant le 1er .... Je ne
comprends pas pourquoi.
Merci de votre aide
Lulu
Ci-dessous la macro :
Sub OLE_Vers_Word()
'
' OLE_Vers_Word Macro
Dim oApp As Word.Application, doc As Word.Document
Dim nf, nom_doc, nom As String
nom = "essai"
nf = ThisWorkbook.Path & "CP.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'Copiage de la page 1
Sheets("1ere page").Visible = True
Sheets("1ere page").Activate
Range("A1:E36").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
'Copiage tableau de garantie 1
Sheets("Tableaux des garanties").Visible = True
Sheets("Tableaux des garanties").Activate
Range("b6:f42").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="TabGar1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
Set oApp = Nothing
MsgBox "Faut voir"
End Sub
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
qui me semble un peu bizarre.
Bonjour à tous,
Je souhaite par le biais d'une macro excel copier des plage de cellules
dans
un document word à des endroits définis par des signets.
Le problème est que le 2ème "collage" se place debvant le 1er .... Je ne
comprends pas pourquoi.
Merci de votre aide
Lulu
Ci-dessous la macro :
Sub OLE_Vers_Word()
'
' OLE_Vers_Word Macro
Dim oApp As Word.Application, doc As Word.Document
Dim nf, nom_doc, nom As String
nom = "essai"
nf = ThisWorkbook.Path & "CP.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'Copiage de la page 1
Sheets("1ere page").Visible = True
Sheets("1ere page").Activate
Range("A1:E36").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
'Copiage tableau de garantie 1
Sheets("Tableaux des garanties").Visible = True
Sheets("Tableaux des garanties").Activate
Range("b6:f42").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="TabGar1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
Set oApp = Nothing
MsgBox "Faut voir"
End Sub
Bonjour Lulu
As-tu essayé la syntaxe suivante :
doc.GoTo What:=wdGoToBookmark, Name:="Page1"
au lieu de :doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
qui me semble un peu bizarre.
Cordialement
Pascal
"Lulu la nantaise" a écrit dans le message
de
news:Bonjour à tous,
Je souhaite par le biais d'une macro excel copier des plage de cellules
dans
un document word à des endroits définis par des signets.
Le problème est que le 2ème "collage" se place debvant le 1er .... Je ne
comprends pas pourquoi.
Merci de votre aide
Lulu
Ci-dessous la macro :
Sub OLE_Vers_Word()
'
' OLE_Vers_Word Macro
Dim oApp As Word.Application, doc As Word.Document
Dim nf, nom_doc, nom As String
nom = "essai"
nf = ThisWorkbook.Path & "CP.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'Copiage de la page 1
Sheets("1ere page").Visible = True
Sheets("1ere page").Activate
Range("A1:E36").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
'Copiage tableau de garantie 1
Sheets("Tableaux des garanties").Visible = True
Sheets("Tableaux des garanties").Activate
Range("b6:f42").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="TabGar1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
Set oApp = Nothing
MsgBox "Faut voir"
End Sub
Bonjour Lulu
As-tu essayé la syntaxe suivante :
doc.GoTo What:=wdGoToBookmark, Name:="Page1"
au lieu de :
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
qui me semble un peu bizarre.
Cordialement
Pascal
"Lulu la nantaise" <je_suis_curieux@laposte.net> a écrit dans le message
de
news: ucBOJR73FHA.3880@TK2MSFTNGP12.phx.gbl...
Bonjour à tous,
Je souhaite par le biais d'une macro excel copier des plage de cellules
dans
un document word à des endroits définis par des signets.
Le problème est que le 2ème "collage" se place debvant le 1er .... Je ne
comprends pas pourquoi.
Merci de votre aide
Lulu
Ci-dessous la macro :
Sub OLE_Vers_Word()
'
' OLE_Vers_Word Macro
Dim oApp As Word.Application, doc As Word.Document
Dim nf, nom_doc, nom As String
nom = "essai"
nf = ThisWorkbook.Path & "CP.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'Copiage de la page 1
Sheets("1ere page").Visible = True
Sheets("1ere page").Activate
Range("A1:E36").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
'Copiage tableau de garantie 1
Sheets("Tableaux des garanties").Visible = True
Sheets("Tableaux des garanties").Activate
Range("b6:f42").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="TabGar1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
Set oApp = Nothing
MsgBox "Faut voir"
End Sub
Bonjour Lulu
As-tu essayé la syntaxe suivante :
doc.GoTo What:=wdGoToBookmark, Name:="Page1"
au lieu de :doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
qui me semble un peu bizarre.
Cordialement
Pascal
"Lulu la nantaise" a écrit dans le message
de
news:Bonjour à tous,
Je souhaite par le biais d'une macro excel copier des plage de cellules
dans
un document word à des endroits définis par des signets.
Le problème est que le 2ème "collage" se place debvant le 1er .... Je ne
comprends pas pourquoi.
Merci de votre aide
Lulu
Ci-dessous la macro :
Sub OLE_Vers_Word()
'
' OLE_Vers_Word Macro
Dim oApp As Word.Application, doc As Word.Document
Dim nf, nom_doc, nom As String
nom = "essai"
nf = ThisWorkbook.Path & "CP.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'Copiage de la page 1
Sheets("1ere page").Visible = True
Sheets("1ere page").Activate
Range("A1:E36").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
'Copiage tableau de garantie 1
Sheets("Tableaux des garanties").Visible = True
Sheets("Tableaux des garanties").Activate
Range("b6:f42").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="TabGar1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
Set oApp = Nothing
MsgBox "Faut voir"
End Sub
Bonjour Lulu
As-tu essayé la syntaxe suivante :
doc.GoTo What:=wdGoToBookmark, Name:="Page1"
au lieu de :doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
qui me semble un peu bizarre.
Cordialement
Pascal
"Lulu la nantaise" a écrit dans le message
de
news:Bonjour à tous,
Je souhaite par le biais d'une macro excel copier des plage de cellules
dans
un document word à des endroits définis par des signets.
Le problème est que le 2ème "collage" se place debvant le 1er .... Je ne
comprends pas pourquoi.
Merci de votre aide
Lulu
Ci-dessous la macro :
Sub OLE_Vers_Word()
'
' OLE_Vers_Word Macro
Dim oApp As Word.Application, doc As Word.Document
Dim nf, nom_doc, nom As String
nom = "essai"
nf = ThisWorkbook.Path & "CP.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'Copiage de la page 1
Sheets("1ere page").Visible = True
Sheets("1ere page").Activate
Range("A1:E36").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
'Copiage tableau de garantie 1
Sheets("Tableaux des garanties").Visible = True
Sheets("Tableaux des garanties").Activate
Range("b6:f42").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="TabGar1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
Set oApp = Nothing
MsgBox "Faut voir"
End Sub
Bonjour Lulu
As-tu essayé la syntaxe suivante :
doc.GoTo What:=wdGoToBookmark, Name:="Page1"
au lieu de :
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
qui me semble un peu bizarre.
Cordialement
Pascal
"Lulu la nantaise" <je_suis_curieux@laposte.net> a écrit dans le message
de
news: ucBOJR73FHA.3880@TK2MSFTNGP12.phx.gbl...
Bonjour à tous,
Je souhaite par le biais d'une macro excel copier des plage de cellules
dans
un document word à des endroits définis par des signets.
Le problème est que le 2ème "collage" se place debvant le 1er .... Je ne
comprends pas pourquoi.
Merci de votre aide
Lulu
Ci-dessous la macro :
Sub OLE_Vers_Word()
'
' OLE_Vers_Word Macro
Dim oApp As Word.Application, doc As Word.Document
Dim nf, nom_doc, nom As String
nom = "essai"
nf = ThisWorkbook.Path & "CP.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'Copiage de la page 1
Sheets("1ere page").Visible = True
Sheets("1ere page").Activate
Range("A1:E36").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
'Copiage tableau de garantie 1
Sheets("Tableaux des garanties").Visible = True
Sheets("Tableaux des garanties").Activate
Range("b6:f42").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="TabGar1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
Set oApp = Nothing
MsgBox "Faut voir"
End Sub
Bonjour Lulu
As-tu essayé la syntaxe suivante :
doc.GoTo What:=wdGoToBookmark, Name:="Page1"
au lieu de :doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
qui me semble un peu bizarre.
Cordialement
Pascal
"Lulu la nantaise" a écrit dans le message
de
news:Bonjour à tous,
Je souhaite par le biais d'une macro excel copier des plage de cellules
dans
un document word à des endroits définis par des signets.
Le problème est que le 2ème "collage" se place debvant le 1er .... Je ne
comprends pas pourquoi.
Merci de votre aide
Lulu
Ci-dessous la macro :
Sub OLE_Vers_Word()
'
' OLE_Vers_Word Macro
Dim oApp As Word.Application, doc As Word.Document
Dim nf, nom_doc, nom As String
nom = "essai"
nf = ThisWorkbook.Path & "CP.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'Copiage de la page 1
Sheets("1ere page").Visible = True
Sheets("1ere page").Activate
Range("A1:E36").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
'Copiage tableau de garantie 1
Sheets("Tableaux des garanties").Visible = True
Sheets("Tableaux des garanties").Activate
Range("b6:f42").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="TabGar1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
Set oApp = Nothing
MsgBox "Faut voir"
End Sub
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
Ca ne marche pas, ca fait exactement la même chose.
La syntaxe vient de l'enregistreur de macro de Word.
Merci quand même
Lulu
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:Bonjour Lulu
As-tu essayé la syntaxe suivante :
doc.GoTo What:=wdGoToBookmark, Name:="Page1"
au lieu de :doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
qui me semble un peu bizarre.
Cordialement
Pascal
"Lulu la nantaise" a écrit dans le message
denews:Bonjour à tous,
Je souhaite par le biais d'une macro excel copier des plage de cellules
dans
un document word à des endroits définis par des signets.
Le problème est que le 2ème "collage" se place debvant le 1er .... Je
ne
comprends pas pourquoi.
Merci de votre aide
Lulu
Ci-dessous la macro :
Sub OLE_Vers_Word()
'
' OLE_Vers_Word Macro
Dim oApp As Word.Application, doc As Word.Document
Dim nf, nom_doc, nom As String
nom = "essai"
nf = ThisWorkbook.Path & "CP.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'Copiage de la page 1
Sheets("1ere page").Visible = True
Sheets("1ere page").Activate
Range("A1:E36").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
'Copiage tableau de garantie 1
Sheets("Tableaux des garanties").Visible = True
Sheets("Tableaux des garanties").Activate
Range("b6:f42").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="TabGar1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
Set oApp = Nothing
MsgBox "Faut voir"
End Sub
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
Ca ne marche pas, ca fait exactement la même chose.
La syntaxe vient de l'enregistreur de macro de Word.
Merci quand même
Lulu
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:OyzoAE83FHA.2524@TK2MSFTNGP10.phx.gbl...
Bonjour Lulu
As-tu essayé la syntaxe suivante :
doc.GoTo What:=wdGoToBookmark, Name:="Page1"
au lieu de :
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
qui me semble un peu bizarre.
Cordialement
Pascal
"Lulu la nantaise" <je_suis_curieux@laposte.net> a écrit dans le message
de
news: ucBOJR73FHA.3880@TK2MSFTNGP12.phx.gbl...
Bonjour à tous,
Je souhaite par le biais d'une macro excel copier des plage de cellules
dans
un document word à des endroits définis par des signets.
Le problème est que le 2ème "collage" se place debvant le 1er .... Je
ne
comprends pas pourquoi.
Merci de votre aide
Lulu
Ci-dessous la macro :
Sub OLE_Vers_Word()
'
' OLE_Vers_Word Macro
Dim oApp As Word.Application, doc As Word.Document
Dim nf, nom_doc, nom As String
nom = "essai"
nf = ThisWorkbook.Path & "CP.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'Copiage de la page 1
Sheets("1ere page").Visible = True
Sheets("1ere page").Activate
Range("A1:E36").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
'Copiage tableau de garantie 1
Sheets("Tableaux des garanties").Visible = True
Sheets("Tableaux des garanties").Activate
Range("b6:f42").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="TabGar1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
Set oApp = Nothing
MsgBox "Faut voir"
End Sub
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
Ca ne marche pas, ca fait exactement la même chose.
La syntaxe vient de l'enregistreur de macro de Word.
Merci quand même
Lulu
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:Bonjour Lulu
As-tu essayé la syntaxe suivante :
doc.GoTo What:=wdGoToBookmark, Name:="Page1"
au lieu de :doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
qui me semble un peu bizarre.
Cordialement
Pascal
"Lulu la nantaise" a écrit dans le message
denews:Bonjour à tous,
Je souhaite par le biais d'une macro excel copier des plage de cellules
dans
un document word à des endroits définis par des signets.
Le problème est que le 2ème "collage" se place debvant le 1er .... Je
ne
comprends pas pourquoi.
Merci de votre aide
Lulu
Ci-dessous la macro :
Sub OLE_Vers_Word()
'
' OLE_Vers_Word Macro
Dim oApp As Word.Application, doc As Word.Document
Dim nf, nom_doc, nom As String
nom = "essai"
nf = ThisWorkbook.Path & "CP.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'Copiage de la page 1
Sheets("1ere page").Visible = True
Sheets("1ere page").Activate
Range("A1:E36").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
'Copiage tableau de garantie 1
Sheets("Tableaux des garanties").Visible = True
Sheets("Tableaux des garanties").Activate
Range("b6:f42").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="TabGar1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
Set oApp = Nothing
MsgBox "Faut voir"
End Sub
Re
Dans ces conditions essaie donc de modifier la lignedoc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
Par ceci :
Selection.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject, _
Placement:=wdInLine, DisplayAsIcon:úlse
Cordialement
Pascal
"Lulu la nantaise" a écrit dans le message
de
news:Ca ne marche pas, ca fait exactement la même chose.
La syntaxe vient de l'enregistreur de macro de Word.
Merci quand même
Lulu
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:Bonjour Lulu
As-tu essayé la syntaxe suivante :
doc.GoTo What:=wdGoToBookmark, Name:="Page1"
au lieu de :doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
qui me semble un peu bizarre.
Cordialement
Pascal
"Lulu la nantaise" a écrit dans le
message
denews:Bonjour à tous,
Je souhaite par le biais d'une macro excel copier des plage de
cellules
dans
un document word à des endroits définis par des signets.
Le problème est que le 2ème "collage" se place debvant le 1er .... Je
ne
comprends pas pourquoi.
Merci de votre aide
Lulu
Ci-dessous la macro :
Sub OLE_Vers_Word()
'
' OLE_Vers_Word Macro
Dim oApp As Word.Application, doc As Word.Document
Dim nf, nom_doc, nom As String
nom = "essai"
nf = ThisWorkbook.Path & "CP.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'Copiage de la page 1
Sheets("1ere page").Visible = True
Sheets("1ere page").Activate
Range("A1:E36").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
'Copiage tableau de garantie 1
Sheets("Tableaux des garanties").Visible = True
Sheets("Tableaux des garanties").Activate
Range("b6:f42").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark,
Name:="TabGar1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
Set oApp = Nothing
MsgBox "Faut voir"
End Sub
Re
Dans ces conditions essaie donc de modifier la ligne
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
Par ceci :
Selection.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject, _
Placement:=wdInLine, DisplayAsIcon:úlse
Cordialement
Pascal
"Lulu la nantaise" <je_suis_curieux@laposte.net> a écrit dans le message
de
news: eyNHRR83FHA.3256@TK2MSFTNGP10.phx.gbl...
Ca ne marche pas, ca fait exactement la même chose.
La syntaxe vient de l'enregistreur de macro de Word.
Merci quand même
Lulu
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:OyzoAE83FHA.2524@TK2MSFTNGP10.phx.gbl...
Bonjour Lulu
As-tu essayé la syntaxe suivante :
doc.GoTo What:=wdGoToBookmark, Name:="Page1"
au lieu de :
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
qui me semble un peu bizarre.
Cordialement
Pascal
"Lulu la nantaise" <je_suis_curieux@laposte.net> a écrit dans le
message
de
news: ucBOJR73FHA.3880@TK2MSFTNGP12.phx.gbl...
Bonjour à tous,
Je souhaite par le biais d'une macro excel copier des plage de
cellules
dans
un document word à des endroits définis par des signets.
Le problème est que le 2ème "collage" se place debvant le 1er .... Je
ne
comprends pas pourquoi.
Merci de votre aide
Lulu
Ci-dessous la macro :
Sub OLE_Vers_Word()
'
' OLE_Vers_Word Macro
Dim oApp As Word.Application, doc As Word.Document
Dim nf, nom_doc, nom As String
nom = "essai"
nf = ThisWorkbook.Path & "CP.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'Copiage de la page 1
Sheets("1ere page").Visible = True
Sheets("1ere page").Activate
Range("A1:E36").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
'Copiage tableau de garantie 1
Sheets("Tableaux des garanties").Visible = True
Sheets("Tableaux des garanties").Activate
Range("b6:f42").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark,
Name:="TabGar1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
Set oApp = Nothing
MsgBox "Faut voir"
End Sub
Re
Dans ces conditions essaie donc de modifier la lignedoc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
Par ceci :
Selection.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject, _
Placement:=wdInLine, DisplayAsIcon:úlse
Cordialement
Pascal
"Lulu la nantaise" a écrit dans le message
de
news:Ca ne marche pas, ca fait exactement la même chose.
La syntaxe vient de l'enregistreur de macro de Word.
Merci quand même
Lulu
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:Bonjour Lulu
As-tu essayé la syntaxe suivante :
doc.GoTo What:=wdGoToBookmark, Name:="Page1"
au lieu de :doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
qui me semble un peu bizarre.
Cordialement
Pascal
"Lulu la nantaise" a écrit dans le
message
denews:Bonjour à tous,
Je souhaite par le biais d'une macro excel copier des plage de
cellules
dans
un document word à des endroits définis par des signets.
Le problème est que le 2ème "collage" se place debvant le 1er .... Je
ne
comprends pas pourquoi.
Merci de votre aide
Lulu
Ci-dessous la macro :
Sub OLE_Vers_Word()
'
' OLE_Vers_Word Macro
Dim oApp As Word.Application, doc As Word.Document
Dim nf, nom_doc, nom As String
nom = "essai"
nf = ThisWorkbook.Path & "CP.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'Copiage de la page 1
Sheets("1ere page").Visible = True
Sheets("1ere page").Activate
Range("A1:E36").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark, Name:="Page1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
'Copiage tableau de garantie 1
Sheets("Tableaux des garanties").Visible = True
Sheets("Tableaux des garanties").Activate
Range("b6:f42").Select
Selection.Copy
doc.Application.Selection.GoTo What:=wdGoToBookmark,
Name:="TabGar1"
doc.Range.PasteSpecial Link:úlse, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:úlse
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
Set oApp = Nothing
MsgBox "Faut voir"
End Sub