code pour imprimer les commantaires

[janick]

Bonjour,

Je recherche les codes VBA pour imprimer les commantaires d'une feuilles.

merci

 

[panjas51]

Re : code pour imprimer les commantaires

Dim com As String
com = ActiveCell.Comment.Text


Tu recupères ainsi la valeur du commentaire.

 

[janick]

Re : code pour imprimer les commantaires

Bonjour,

J'ai copier cette commande mais cela ne fontionne pas j'ai surement fait une erreur
Sub impHS_11()
Dim com As String
Worksheets("BaseHS").Visible = True 'la démasquera

Sheets("BaseHS").Select
ActiveSheet.Unprotect
Application.Goto Reference:="Print_Area"
Selection.Clear
Range("A1").Select
Sheets("novembre").Select 'Je souhaiterais prendre en compte la feuille qui lance la macro
Application.Goto Reference:="Print_Area"
Selection.Copy
Sheets("BaseHS").Select
com = ActiveCell.Comment.Text
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False


'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintPreview
Worksheets("BaseHS").Visible = False 'masquera la feuille
Sheets("novembre").Select 'Revenir sur la feuille qui à lance la macro
Range("A252").Select
End Sub