Je bug sur une partie de mon code
Je veux copier le contenu de ma feuille active (Ws) et la copier dans Word après le signet1
avec le code ci-dessous je récupère après le signet1 la valeur "vrai"
Pouvez vous me dire comment je doit déclarer "LaDonneeAcoller" pour avoir toutes les lignes de ma feuille
Merci d'avanc
Roger
Dim Ws As Worksheet
Dim s As Byte 's comme Signet
Dim NoLigne As Long, NoCol As Byte, LaDonneeAcoller
For Each Ws In ActiveWorkbook.Sheets
MsgBox Ws.Name
'ActiveSheet.Select
LaDonneeAcoller = Ws.Cells.Copy
MsgBox LaDonneeAcoller
'Ws.Select
'Ws.Cells.Copy
'For s = 1 To 20
'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
'docWord.Bookmarks("Signet" & s).Select
'MsgBox docWord.Bookmarks("Signet" & s)
'docWord.Bookmarks("Signet" & s).Range.Font.Size = 20
'docWord.Bookmarks("Signet" & s).Range.Bold = True
'docWord.Bookmarks("Signet" & s).Range.Italic = True
'===============================================================
'En supposant que dans ton doc Word tu aies un signet nommé "Signet"
With appWrd
'.Selection.Goto What:=wdGoToBookmark, Name:="Signet1"
.Selection.Goto what:=wdGoToBookmark, Name:="signet1"
.Selection.InsertAfter LaDonneeAcoller
End With
'=========================
Je veux copier le contenu de ma feuille active (Ws) et la copier dans Word après le signet1
avec le code ci-dessous je récupère après le signet1 la valeur "vrai"
Pouvez vous me dire comment je doit déclarer "LaDonneeAcoller" pour avoir toutes les lignes de ma feuille
Merci d'avanc
Roger
Dim Ws As Worksheet
Dim s As Byte 's comme Signet
Dim NoLigne As Long, NoCol As Byte, LaDonneeAcoller
For Each Ws In ActiveWorkbook.Sheets
MsgBox Ws.Name
'ActiveSheet.Select
LaDonneeAcoller = Ws.Cells.Copy
MsgBox LaDonneeAcoller
'Ws.Select
'Ws.Cells.Copy
'For s = 1 To 20
'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
'docWord.Bookmarks("Signet" & s).Select
'MsgBox docWord.Bookmarks("Signet" & s)
'docWord.Bookmarks("Signet" & s).Range.Font.Size = 20
'docWord.Bookmarks("Signet" & s).Range.Bold = True
'docWord.Bookmarks("Signet" & s).Range.Italic = True
'===============================================================
'En supposant que dans ton doc Word tu aies un signet nommé "Signet"
With appWrd
'.Selection.Goto What:=wdGoToBookmark, Name:="Signet1"
.Selection.Goto what:=wdGoToBookmark, Name:="signet1"
.Selection.InsertAfter LaDonneeAcoller
End With
'=========================