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
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
delphineR
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,
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
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
isabelle
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 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
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
Daniel.C
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" a écrit dans le message de news:
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
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" a écrit dans le message de news:
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