harlem971
Messages postés7Date d'inscriptionmercredi 30 juillet 2008StatutMembreDernière intervention11 octobre 2008
-
10 oct. 2008 à 15:36
Kristof_Koder
Messages postés918Date d'inscriptionvendredi 3 août 2007StatutMembreDernière intervention27 octobre 2008
-
11 oct. 2008 à 22:03
Bonjour,
Je souhaite créer un fichier contenant des données numériques et textes contenues dans des feuilles Excel. Pour cela j'utilise l'instruction print de la façon suivante :
J'obtiens alors un fichier Word dont le filename est défini par #1 et contenant le texte voulu mais dans un format qui ne me convient pas (la police est Courier New et la taille 10).
Question : comment définir le format souhaité (par exemple Arial, taille 11, gras, italique, etc.) dans les instructions VBA ci-dessus.
cs_Orohena
Messages postés577Date d'inscriptionvendredi 26 septembre 2008StatutMembreDernière intervention20 novembre 20104 11 oct. 2008 à 06:53
Bonjour
Kristof_koder n'a pas tout à fait raison. Avec des instructions print, tu peux créer un fichier word, mais uniquement au format rtf (rich text format), comme dans l'exemple suivant.
Cordialement
Sub creeFichierRtf()
Dim enteteRtf As String
enteteRtf = "{\rtf1\ansi\ansicpg1252\deff0\deflang1036"
enteteRtf = enteteRtf & "{\fonttbl{\f0\fswiss\fcharset0 Arial;}"
enteteRtf = enteteRtf & "{\f1\froman\fprq2\fcharset0 Times New Roman;}"
enteteRtf = enteteRtf & "}\pard"
Open "test.rtf" For Output As #1
Print #1, enteteRtf
Print #1, "{\f1\fs20\b Bonjour}" ' "bonjour" en Times New Roman, 10 cpi, gras
Print #1, "\par" ' retour à la ligne
Print #1, "{\f0\fs24 Bonsoir}" ' "bonsoir" en Arial, 12 cpi
Print #1, "}"
Close #1
End Sub
harlem971
Messages postés7Date d'inscriptionmercredi 30 juillet 2008StatutMembreDernière intervention11 octobre 2008 11 oct. 2008 à 01:31
Bonjour,
moi je n'y connais rien,je suis tombé sur un utilisateur a mon travail qui souhaite effectuer cette manipulation.
une richtextbox qu'est ce que c'est?
Ma question est de savoir si il y a une intruction qui permet de choisir (par exemple Arial,
taille 11, gras, italique, etc.) dans les instructions VBA ci-dessus.
PS : si l'instruction n'est pas correct merci d'effectuer des modifications.
$$$$Harlem971$$$$
Vous n’avez pas trouvé la réponse que vous recherchez ?
Kristof_Koder
Messages postés918Date d'inscriptionvendredi 3 août 2007StatutMembreDernière intervention27 octobre 200810 11 oct. 2008 à 22:03
orohena < Un fichier au format rtf n'a jamais été un fichier Word !
Soyons précis !! Un fichier RTF est plus proche d'un fichier texte que d'un fichier Word ! Lapreuve en est que tu crées un fichier RTF comme on crées un fichier texte ... avec des Print #1 !!