Discussion :

[arnest]

Bonjour,

Y-a-t-il un moyen de récupérer tous les commentaires insérés dans les feuilles excel d'un fichier dans power point ou word?

Bien cordialement.

[JPierreM]

Bonsoir,

Recherche les commentaires sur la feuille active et les affiche sur une nouvelle feuille
A mettre dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
 
Sub chercheCommentaires()
 
Dim laPlage As Range, cellule As Range
Dim laFeuille As Worksheet, laListe As Worksheet
Dim i As Integer
Set laFeuille = ActiveSheet
 
On Error Resume Next
Set laPlage = laFeuille.Cells.SpecialCells(xlCellTypeComments)
On Error GoTo 0
 
    If laPlage Is Nothing Then
        MsgBox "aucun commentaire sur la feuille"
        Exit Sub
    End If
 
Set laListe = Worksheets.Add
 
laListe.Range("A1:C1").Value = Array("Addresse", "Valeur", "Commentaire")
 
i = 1
    For Each cellule In laPlage
        With laListe
            i = i + 1
            .Cells(i, 1).Value = cellule.Address
            .Cells(i, 2).Value = cellule.Value
            .Cells(i, 3).Value = cellule.Comment.Text
        End With
    Next cellule
 
End Sub

Pour le reste je ne connais pas PowerPoint

JP