Discussion :

[meryamaa]

Bonjour,

J’espère que vous allez bien, j'ai un problème et j’espère que vous pouvez m'aider.

bon j'ai crée un bouton qui lance un document WORD 2007 existe déjà sur mon disque dur.

Mais le problème c'est que: je veux insérer la valeur d'un textbox dans ce document.

par exemple dans le document WORD, j'ai le texte suivant:

bonjour Monsieur NOM Prénom

.

donc je veux quand je clique sur un bouton: dans le document WORD je trouve la valeur de mon textbox NOM, et la valeur de mon textbox Prénom.

donc je veux voir ça dans mon document WORD:

bonjour Monsieur "valeur de textbox NOM" "Valeur de textbox Prénom"

.

pouvez vous m'aider SVP.

MERCI D'avance

[safine]

Bonjour,

Nous avons presque le même problème.
En fait, j'ai besoin de connaitre comment peut on transférer des données à partir d'une form vers un fichier à imprimer.

J'ai cherché beaucoup (word, excel) mais en vain.


J'ai besoin d'aide.

Merci d'avance.

[vincc]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Imports Word = Microsoft.Office.Interop.Word

        Dim oWord As Word.Application
        Dim oDoc As Word.Document
        Dim oTable As Word.Table
        Dim oPara1 As Word.Paragraph, oPara2 As Word.Paragraph

        'Start Word and open the document template.
        oWord = CreateObject("Word.Application")
        oWord.Visible = True
        oDoc = oWord.Documents.Add

        'Insert a paragraph at the beginning of the document.
        oPara1 = oDoc.Content.Paragraphs.Add
        oPara1.Range.Text = textbox.text

Quelque chose du genre, utilisez le document word que vous avez ouvert au lieu de "oDoc"

http://support.microsoft.com/kb/316383/fr

pour utiliser word excel et cie à l'aide d'un langage, on parle d'automation
donc chercher de l'aide avec les sujet "automation word vb.net" par exemple et vous trouverez de nombreux exemples

[meryamaa]

Bonjour safine


Pour ouvrir le document word voila un code qui marche bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  Dim proc As New Diagnostics.Process
           proc.StartInfo.UseShellExecute = True
           ' Définition du fichier à ouvrir
           proc.StartInfo.FileName = "C:\Users\Mery\Documents\wordtest.docx"
           proc.Start()

mais pour le transfert de données j'arrive toujours pas, si vous trouveriez des solutions veuillez me donnée la solutions SVP, et Merci d'avance

[meryamaa]

MERCI TOUS pour vos réponses je vais essayer vos codes et vous informer, merci beaucoup

[safine]

Bonjour,

Merci meryamaa, Merci vincc.
J'ai reussi à le faire, mais comment je peux faire la mise en page( préciser la police, sa taille,position, l'orientation du texte (de droite à gauche par exemple)?

[Savak]

http://msdn.microsoft.com/fr-fr/libr...7k14a4.aspx#Y0

Bonjour, bonjour!

Tu trouveras ton bonheur dans l'aide MSDN. Le lien ci-dessus correspond à ton besoin de mettre en page un document Word, mais il y a plein d'autres exemples de codes pour différentes astuces d'interaction avec Office.

[Jean-Marie Grave]

Bonjour meryamma.

Pour faire ce que vous voulez, il est nécessaire d'étudier à fond le modèle Objet de VBA pour Word, et de débuger une ligne à la fois. Par exemple, il est fort possible que les erreurs provoquées par Font.Size et Font.Name disparaîtront si vous les remplacez par FontSize et FontName.

Bon courage.

[Savak]

Bonjours Safine,

Il y a quelque chose que je n'arrive pas à saisir.

Est-ce que tu pourrais jeter un coup d'oeil à ce lien s'il te plaît?

http://msdn.microsoft.com/fr-fr/library/w1702h4a

Quand ce sera fait applique la méthode "Création de tableaux dans des personnalisations au niveau du document" ou bien l'autre : "Création de tableaux dans des compléments au niveau de l'application". Tu verras qu'ils abordent la personnalisation du styles des tableaux.

Il y en a forcément une qui fonctionnera

[safine]

Salut Savac,

Je vous remercie pour votre aide.
J'ai essayé plusieurs codes mais en vain.
Est ce qu'il y a quelqu'un qui a fait ceci auparavent?
C'est urgent SVP et Merci d'avance