A partir de xls via vba j'imprime un document. No Problem.=20
On me demande d'inclure des caract=E8res sp=E9ciaux que l'on=20
trouve sous Word Insertion/ Caracteres Sp=E9ciaux dans la=20
police WingDings. Et la le bas blesse. Je ne vois pas=20
comment aller inclure ce satn=E9 de caractere dans mon=20
document c
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Nicolas B.
Salut,
(Quand tu postes, évite de cliquer 5 fois sur Envoyer, le message n'apparait en général pas tout de suite.)
Un petit exemple (j'ai supposé que tu insères le caractère dans une cellule) : Sub Caractere() With Range("A1") .Value = "Case à cocher : " & Chr(254) '254 représente le code ASCII du caractère .Characters(17, 1).Font.Name = "Wingdings" 'Characters(17,1) pour appliquer la police au dernier caractère End With End Sub
A+ -- Nicolas B.
Bjr a toutes et tous,
A partir de xls via vba j'imprime un document. No Problem. On me demande d'inclure des caractères spéciaux que l'on trouve sous Word Insertion/ Caracteres Spéciaux dans la police WingDings. Et la le bas blesse. Je ne vois pas comment aller inclure ce satné de caractere dans mon document c
Salut,
(Quand tu postes, évite de cliquer 5 fois sur Envoyer, le message n'apparait
en général pas tout de suite.)
Un petit exemple (j'ai supposé que tu insères le caractère dans une cellule)
:
Sub Caractere()
With Range("A1")
.Value = "Case à cocher : " & Chr(254)
'254 représente le code ASCII du caractère
.Characters(17, 1).Font.Name = "Wingdings"
'Characters(17,1) pour appliquer la police au dernier caractère
End With
End Sub
A+
--
Nicolas B.
Bjr a toutes et tous,
A partir de xls via vba j'imprime un document. No Problem.
On me demande d'inclure des caractères spéciaux que l'on
trouve sous Word Insertion/ Caracteres Spéciaux dans la
police WingDings. Et la le bas blesse. Je ne vois pas
comment aller inclure ce satné de caractere dans mon
document c
(Quand tu postes, évite de cliquer 5 fois sur Envoyer, le message n'apparait en général pas tout de suite.)
Un petit exemple (j'ai supposé que tu insères le caractère dans une cellule) : Sub Caractere() With Range("A1") .Value = "Case à cocher : " & Chr(254) '254 représente le code ASCII du caractère .Characters(17, 1).Font.Name = "Wingdings" 'Characters(17,1) pour appliquer la police au dernier caractère End With End Sub
A+ -- Nicolas B.
Bjr a toutes et tous,
A partir de xls via vba j'imprime un document. No Problem. On me demande d'inclure des caractères spéciaux que l'on trouve sous Word Insertion/ Caracteres Spéciaux dans la police WingDings. Et la le bas blesse. Je ne vois pas comment aller inclure ce satné de caractere dans mon document c
Merci et excuse pour le clic 5 fois !!! je m'en uis pas rendu compte. Ta soluice me convient à part que le document que j'imprime ce n'est pas un doc xls mais un doc word.
-----Message d'origine----- Salut,
(Quand tu postes, évite de cliquer 5 fois sur Envoyer, le message n'apparait
en général pas tout de suite.)
Un petit exemple (j'ai supposé que tu insères le caractère dans une cellule)
: Sub Caractere() With Range("A1") .Value = "Case à cocher : " & Chr(254) '254 représente le code ASCII du caractère .Characters(17, 1).Font.Name = "Wingdings" 'Characters(17,1) pour appliquer la police au dernier caractère
End With End Sub
A+ -- Nicolas B.
Bjr a toutes et tous,
A partir de xls via vba j'imprime un document. No Problem.
On me demande d'inclure des caractères spéciaux que l'on trouve sous Word Insertion/ Caracteres Spéciaux dans la police WingDings. Et la le bas blesse. Je ne vois pas comment aller inclure ce satné de caractere dans mon document c
.
Merci et excuse pour le clic 5 fois !!! je m'en uis pas
rendu compte. Ta soluice me convient à part que le
document que j'imprime ce n'est pas un doc xls mais un doc
word.
-----Message d'origine-----
Salut,
(Quand tu postes, évite de cliquer 5 fois sur Envoyer, le
message n'apparait
en général pas tout de suite.)
Un petit exemple (j'ai supposé que tu insères le
caractère dans une cellule)
:
Sub Caractere()
With Range("A1")
.Value = "Case à cocher : " & Chr(254)
'254 représente le code ASCII du caractère
.Characters(17, 1).Font.Name = "Wingdings"
'Characters(17,1) pour appliquer la police au dernier
caractère
End With
End Sub
A+
--
Nicolas B.
Bjr a toutes et tous,
A partir de xls via vba j'imprime un document. No
Problem.
On me demande d'inclure des caractères spéciaux que l'on
trouve sous Word Insertion/ Caracteres Spéciaux dans la
police WingDings. Et la le bas blesse. Je ne vois pas
comment aller inclure ce satné de caractere dans mon
document c
Merci et excuse pour le clic 5 fois !!! je m'en uis pas rendu compte. Ta soluice me convient à part que le document que j'imprime ce n'est pas un doc xls mais un doc word.
-----Message d'origine----- Salut,
(Quand tu postes, évite de cliquer 5 fois sur Envoyer, le message n'apparait
en général pas tout de suite.)
Un petit exemple (j'ai supposé que tu insères le caractère dans une cellule)
: Sub Caractere() With Range("A1") .Value = "Case à cocher : " & Chr(254) '254 représente le code ASCII du caractère .Characters(17, 1).Font.Name = "Wingdings" 'Characters(17,1) pour appliquer la police au dernier caractère
End With End Sub
A+ -- Nicolas B.
Bjr a toutes et tous,
A partir de xls via vba j'imprime un document. No Problem.
On me demande d'inclure des caractères spéciaux que l'on trouve sous Word Insertion/ Caracteres Spéciaux dans la police WingDings. Et la le bas blesse. Je ne vois pas comment aller inclure ce satné de caractere dans mon document c
