OVH Cloud OVH Cloud

publipostage avec excel

2 réponses
Avatar
JP
bonjour,

Lors d'un publipostage avec excel, est-il posible de transférer également un
éventuel commentaire de la cellule excel (signalé par triangle rouge)???

merci d'avance et bon week-end
Jean-Pierre

2 réponses

Avatar
Anacoluthe
Bonjour !

'JP' nous a écrit ...
Lors d'un publipostage avec excel, est-il posible de transférer également un
éventuel commentaire de la cellule excel (signalé par triangle rouge)???


Pas directement puisque les commentaires ne sont pas des données...

Copiez les commentaires dans une colonne supplémentaire de
données par exemple en colonne B1 commentaire de A1:
=Commentaire(A1)

Mais je crois qu'il faut définir la fonction Commentaire
(c'est une question à poser sur le MPFE :-) )) )

Quelque chose dans ce goût là :

Public Function Commentaire(C As Range) As String
If C.Cells(1, 1).Comment Is Nothing Then
Commentaire = ""
Else
Commentaire = C.Cells(1, 1).Comment.Text
' facultatif - supprime l'auteur au début du commentaire:
Commentaire = Mid(Commentaire, InStr(Commentaire, Chr(10)) + 1)
End If
End Function

Anacoluthe
« Les commentaires sont la partie la plus durable du plaisir. »
- Georges CHEVALIER

Avatar
JP
merci bien

"Anacoluthe" a écrit dans le message de
news:
Bonjour !

'JP' nous a écrit ...
Lors d'un publipostage avec excel, est-il posible de transférer
également un


éventuel commentaire de la cellule excel (signalé par triangle rouge)???


Pas directement puisque les commentaires ne sont pas des données...

Copiez les commentaires dans une colonne supplémentaire de
données par exemple en colonne B1 commentaire de A1:
=Commentaire(A1)

Mais je crois qu'il faut définir la fonction Commentaire
(c'est une question à poser sur le MPFE :-) )) )

Quelque chose dans ce goût là :

Public Function Commentaire(C As Range) As String
If C.Cells(1, 1).Comment Is Nothing Then
Commentaire = ""
Else
Commentaire = C.Cells(1, 1).Comment.Text
' facultatif - supprime l'auteur au début du commentaire:
Commentaire = Mid(Commentaire, InStr(Commentaire, Chr(10)) + 1)
End If
End Function

Anacoluthe
« Les commentaires sont la partie la plus durable du plaisir. »
- Georges CHEVALIER