Absence de commentaire
Bonjour
j'ai trouver une macro qui devrait extraire les commentaires d'un fichier excel vers un ficher Word mais rien ne s'affiche sur le fichier Word
pourriez vous me dire ou cela bloque
Sub CopyCommentsToWord()
'Update 20140325
Dim xComment As Comment
Dim wApp As Object
On Error Resume Next
Set wApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Err.Clear
Set wApp = CreateObject("Word.Application")
End If
wApp.Visible = True
wApp.Documents.Add DocumentType:=0
For Each xComment In Application.ActiveSheet.Comments
wApp.Selection.TypeText xComment.Parent.Address & vbTab & xComment.Text
wApp.Selection.TypeParagraph
Next
Set wApp = Nothing
End Sub
merci de votre aide
Bonjour Djemol
Ca ne bloque nul part....
sauf si tu n'as ajouté aucun commentaire dans la feuille active de ton classeur
A+
bonjour
Merci d'avoir répondu mais j'ai trouver la solution