TRANSFÉRER LE CONTENU D'UNE ZONE RTF VERS MS WORD
NHenry
Messages postés
15112
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
13 avril 2024
-
29 mai 2006 à 14:18
almahi23 Messages postés 18 Date d'inscription vendredi 8 juillet 2005 Statut Membre Dernière intervention 15 avril 2010 - 6 nov. 2006 à 12:58
almahi23 Messages postés 18 Date d'inscription vendredi 8 juillet 2005 Statut Membre Dernière intervention 15 avril 2010 - 6 nov. 2006 à 12:58
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/37832-transferer-le-contenu-d-une-zone-rtf-vers-ms-word
https://codes-sources.commentcamarche.net/source/37832-transferer-le-contenu-d-une-zone-rtf-vers-ms-word
6 nov. 2006 à 12:58
moi, je travail pour l'impression sans utiliser ni word ni excel mais avec datareport
j'ai passer des mois à trouver la solution jusqu'à ce que j'ai trouver la solution ici dans vbfrance.
la voici:
le truc c'est dans la ligne ALMAHI JAMAL et dans BONJOUR
Option Explicit
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim CMD As New ADODB.Command
Private Sub Form_Load()
Command1.Caption = "Show Report"
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\Temp.mdb;"
With CMD
.ActiveConnection = CN
.CommandType = adCmdText
.CommandText = "Select Nom, PrixV from Produit"
.Execute
End With
With RS
.ActiveConnection = CN
.CursorLocation = adUseClient
.Open CMD
End With
End Sub
Private Sub Command1_Click()
DataReport1.Hide
Set DataReport1.DataSource = RS
DataReport1.DataMember = ""
DataReport1.Sections("Section2").Controls.Item("Label1").Caption = "ALMAHI JAMAL"
DataReport1.Sections("Section2").Controls.Item("Label2").Caption = "BONJOUR"
DataReport1.Refresh
DataReport1.Show
End Sub
Private Sub Command2_Click()
End
End Sub
31 mai 2006 à 10:00
N'étant pas aussi assidu de ce qui se passe sur le site VBFrance serait il possible de poster une indication sur ce post afin d'indiquer lorsque tu aura poster ta source ?
Merci d'avance !
Olivier
31 mai 2006 à 09:56
31 mai 2006 à 09:12
Peux-tu m'envoyer un petit exemple afin que j'améliore mon code ?
oguillet@wesper.com
Merci
Olivier
30 mai 2006 à 17:04
oui, bien sur, on peux crée un fichier Word/excel....
on sais piloter Word/Excel depuis VB...
outre la rapidité, ma technique a l'avantage de ne pas nécessiter Word sur le poste ^^
30 mai 2006 à 16:34
Je faisais à peu près la même chose, les seules différences résident dans le fait que je passe tout un tableau de donnée en paramètre à une macro sous Word qui me remplace les balises dans un fichier déjà mis en page !
Si je te posais la question c'est que malgré ce système j'ai encore des plantages : si j'ai déjà Word d'ouvert, etc.
Je voulais savoir si il existait un moyen de 'créer' dynamiquement un fichier Word ou Excel à partir de rien ?
Cordialement,
Olivier
30 mai 2006 à 16:30
je fais ma mise en page sous Word, ou Excel, en utilisant des balises sur le contenu dynamique
ensuite, je copie cela
je récupère le presse-papier 'HTML Format'
et je stocke le flux obtenu (dans les resources)
ensuite, quan j'en ai besoin, j'extrai mes resources, je remplace balises par mes données dynamiques, je renseigne quelques données auxquelles Word est sensible (offset, taille des données), et je réinjecte le tout, dans le presse papier 'HTML Format', comme fait dans le code ci-desssus.
ca fait beaucoup d'étapes, j'en conviens, mais le résultat en vaux la peine...
il est de bon gout d'exporter en même temps dans le presse-papier, une version Texte brut de la chose...
30 mai 2006 à 16:16
Renfield, comment fais-tu pour Exporter vers Word ou vers Excel des données qui sont dans un tableau (le tableau devant être exporter aussi), sachant qu'il peut y avoir aussi des graphes, images, etc. ????
Par avance merci !
Olivier
29 mai 2006 à 16:20
impossible, en effet de faire :
lRTF = RegisterClipboardFormat("Rich Text Format")
29 mai 2006 à 16:14
29 mai 2006 à 15:36
29 mai 2006 à 15:33
29 mai 2006 à 14:18