copier propriété du classeur

Bonjour,

tu peux faire une impression écran :

Alt + Impr écran (bouton en haut à droite)
Puis dans Word : "Coller"

"lulu" a écrit :

Je voudrais me faire des notes avec word mais j'aurais besoin de copier le
tableau propriétés du classeur de excel dans word comment puis-je faire cela

bonjour lulu,

Sub LesPropriétés()
On Error Resume Next
For i = 1 To 30
Cells(i, 1) = ActiveWorkbook.BuiltinDocumentProperties(i).Name
Cells(i, 2) = ActiveWorkbook.BuiltinDocumentProperties(i)
Next
End Sub

isabelle

lulu a écrit :

Je voudrais me faire des notes avec word mais j'aurais besoin de copier le
tableau propriétés du classeur de excel dans word comment puis-je faire cela

Bonjour.

Sub test()
Dim p As Object, Doc As Object, WordObj As Object
Dim WordObj As Object
Sheets.Add
Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True
Set Doc = WordObj.documents.Add
WordObj.Selection.ParagraphFormat.TabStops.Add _
Position:ÎntimetersToPoints(5.5), _
Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces
On Error Resume Next
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(1, 1) = p.Name
Cells(1, 2) = p.Value
WordObj.Selection.TypeText p.Name
WordObj.Selection.TypeText Text:=vbTab
If IsDate(Cells(1, 2)) Then
WordObj.Selection.TypeText CStr(p.Value)
Else
WordObj.Selection.TypeText p.Value
End If
WordObj.Selection.TypeParagraph
Err.Clear
Next p
Application.DisplayAlerts = False
ActiveSheet.Delete
On Error GoTo 0
Application.DisplayAlerts = True
End Sub

Cordialement.
Daniel
"lulu" <lulu@discussions.microsoft.com> a écrit dans le message de news:
3DEB4043-ACA6-46FE-8CF2-082C0DE8E854@microsoft.com...

Je voudrais me faire des notes avec word mais j'aurais besoin de copier le
tableau propriétés du classeur de excel dans word comment puis-je faire
cela