Discussion :

[tony020422]

Bonjour à tous amis forumistes,

Je souhaiterais que ma macro excel recopie (copie/colle) la valeur d'une cellule de mon fichier excel dans 1 emplacement précis et prédéfini d'une feuille ISO (qui est un fichier .doc protégé en écriture sauf à 2 endroits modifiables ou c'est la qu'il faudrait réinjecter les valeurs excel)

Je ne sais pas quel code VBA permettrait ceci , sachant que ma macro ouvre dores et déjà le fichier.doc..

Merci par avance pour votre aide, car je suis incompétent pour le coup.

Edit :

j'ai remarqué qu'en faisant (Ctrl+C) sur excel, puis directement (Ctrl+V) aprés avoir ouvert le .doc, la valeur désirée se colle à l'endroit voulue....
la 2eme valeur a copier/coller se fait également par Ctrl+C depuis Excel et Ctrl+V sur word aprés avoir fait "une tabulation" sur le .doc qui fait directement passer à l'autre zone modifiable du fichier...

peut etre est ce plus simple à programmer avec cette configuration la.........

..Antony..

[babybell]

Bonjour Tony
Voici un petit bout de code qui te prend une info dans Excel(ThisWorkbook.Worksheets("Nom Onglet").Range("I2").Copy) et qui te la recopie dans un doc Word(With ActiveDocument.Tables(2).Cell(1, 2))

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    With docword
    Set appword = Word.Application
    Application.DisplayAlerts = True
    appword.ShowMe
    appword.Visible = True
    Set docword = appword.Documents.Open("C:\Ton fichier.doc", ReadOnly:=False)
        End With
    With appword
ThisWorkbook.Worksheets("Nom Onglet").Range("I2").Copy
With ActiveDocument.Tables(2).Cell(1, 2)
.Range.Paste
.Select
End With

Tables et cell correspondent à des emplacement sur le doc word


Bonne journée

[tony020422]

j'ai une erreur a ce niveau la : (erreur 424 objet requis)

Code :

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

With ActiveDocument.Tables(2).Cell(1, 2)

il manquait également un End with, et j'avais aussi une erreur ici:

Code :

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

Set AppWord = word.Application

il fallait mettre ca:

Code :

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

Set AppWord = CreateObject("Word.Application")

maintenant la cellule se copie, le .doc s'ouvre mais il y a l'erreur 424....

on y est persque ;-)

sinon qu'est ce que ca représente "Tables(2).Cell(1, 2)" ?!

merci pour votre aide !!

[aalex_38]

Bonjour à tous,

A mon avis Babybell a donné un exemple de code à adapter.

Code :

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

Tables(2).

doit être un tableau (le deuxième) dans world, si tu n'en as pas l'erreur s'explique, à toi de coller là ou tu veux.

[tony020422]

euuh....vi mais comment savoir mon numéro de tableau?! car c'est un .doc avec 2 emplacements modifiables où coller les valeurs de 2 cellules excel...

ce .doc est une fiche ISO, pas un tableau.........comprends plu

[babybell]

salut le forum
Effectivement, comme le dit aalex_38 que je salut, c'est une partie de tableau déjà défini dans mon doc word. En ce qui concerne ton .iso, je ne sais que te répondre

[aalex_38]

bonjour casefayere, babybell, tony020422 le forum

2 emplacements modifiables où coller les valeurs de 2 cellules

A toi de trouver dans word comment se placer dans ces emplacements pour faire le collage, ensuite il ne restera plus qu'a traduire ton action en code.

Salut à toi également babybell

[tony020422]

je vous poste un apercu de mon fichier .doc

http://www.cijoint.fr/cjlink.php?fil...cij0G23I8E.jpg

voici la partie supérieure de la feuille, avec encerclées de rouge les zones à remplir avec les valeurs de cellules excel...
pour passer de la zone de gauche a celle de droite une tabulation suffit..

il faut donc copier la cellule C9 dans la zone de gayche et la cellule C11 dans celle de droite.....mais je ne sais pas comment préciser informatiquemetnt ces 2 zones du .doc !!

aalex_38 tu as bien compris mon pb!!

comment savoir la facon de savoir où se placer dans ces emplacements pour faire le collage ?! (c'est clair cette phrase ??!!)

[casefayere]

Bonjour,

il manquait également un End with

juste une petite remarque, il ne manque pas de end with mais il y a un with inutile, placé à l'endroit actuel

Code :

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

With appword