Les annotations ajoutées aux cellules font partie intégrante des feuilles de calcul. Elles peuvent être rendues visibles en permanence et imprimées. Cette dernière opération s’obtient en demandant l’impression des commentaires depuis l’onglet Feuille de la fenêtre Mise en page. Malheureusement, lors des conversions vers d’autres formats de tableurs, les annotations sont souvent perdues. Il en va de même lorsque vous recopiez une plage de cellules vers un logiciel de présentation graphique ou une page HTML en construction. Il n’existe pas, dans Excel 97, de fonction pour exporter les commentaires vers Word 97. Cependant, vous pouvez palier cet oubli à l’aide de quelques lignes en VBA. Le programme construit un objet Word et lui transmet les commentaires récoltés dans les feuilles du classeur (voir listing ci-dessous). A la fin du traitement, une impression automatique du document Word pourra être déclenchée au moyen de l’instruction ObjetWord.PrintOut.Listing :
Public Sub TraceCommentaires()
Dim ObjetWord As Object
Dim ws As Worksheet
Dim texte As String
Dim nb As Integer
On Error Resume Next
Err.Number = 0
Set ObjetWord = GetObject(, “Word.Application.8”)
If Err.Number = 429 Then
Set ObjetWord = CreateObject(“Word.Application.8”)
Err.Number = 0
End If
ObjetWord.Visible = True
ObjetWord.Documents.Add
With ObjetWord.Selection
.TypeText Text:=”Commentaires du classeur ” + ActiveWorkbook.Name
.TypeParagraph
End With
For Each ws In Worksheets
For nb = 1 To ws.Comments.Count
Set mc = ws.Comments(nb).Parent
texte = ws.Comments(nb).Text
With ObjetWord.Selection
.TypeText Text:=”Feuille ” & ws.Name & ” Cellule ” + mc.Address(False, False, xlA1)
.TypeParagraph
.TypeText Text:=texte
.TypeParagraph
End With
Next nb
Next ws
‘ ObjetWord.PrintOut
Set ObjetWord = Nothing
aff = MsgBox(“Traitement terminé.”, vbOKOnly)
End Sub
🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.
