Macro pour récupérer les commentaires vers Word
Bonjour à tous,
J'ai transformé Excel pour écrire des scénarios. Le texte développé se trouve dans le commentaire des cases. Je voudrais savoir s'il existe un code macro pour les récupérer tous, les uns après les autres, même sur différentes feuilles et les exporter en Word ou bien en texte brut. Ce qui me raccourcirait grandement la tâche.
Merci de votre aide.
Frank.
Bonjour,
Avec le code suivant, on récupère le contenu de la cellule, plus son commentaire sous la forme :
A1 : Bonjour
Commentaire : Essai
Récupération ainsi : Bonjour : Essai
Tout ceci dans un fichier texte qui sera créé s'il n'existe pas (s'il existe, les anciennes données seront effacées, il vaut mieux changer de nom...dans ce code, il s'appelle Fichier)
Le chemin à adapter...
Sub Export_Commentaires_versFichierTexte()
Dim Resultat As String, Fichier As String
Dim Sh As Worksheet
Dim Cel As Range
Fichier = "C:\Users\TonNom\Documents\Excel\Fichier.Txt" 'chemin et nom à adapter
Open Fichier For Output As #1
For Each Sh In Sheets
For Each Cel In Sh.Cells.SpecialCells(xlCellTypeComments)
Resultat = Resultat & Cel.Value & " : " & Cel.Comment.Text & vbNewLine
Next Cel
Next Sh
Resultat = Left(Resultat, Len(Resultat) - 1)
Print #1, Resultat
Resultat = ""
Close #1
End Subbonne jourrnée