Piloter word depuis excel

Salut mimi,
je crois que votre pblème vien du nom de fichier
do while not.eof(1) c'est quoi 1?
un nom de fichier ne peut pas être un numéro.
BONNE cHANCE
MERCI

salut,
sub essai()
dim dbs as database, rst as DAO.recordset
set dbs = currentdb
set rst=dbs.openrecordset("<nom de la table>")
do while not rst.eof
instructions
loop
end sub
Bonne chance.MERCI

bonjour,

c'est pas exactement ce que j'essayais de faire. Je voulais lire un fichier pas une base de données. Mais c'est bon j'ai réussi à faire ce que je voulais hier.
Merci beaucoup pour ton aide en tout cas.

Salut,
BRAVO :)
Bonne chance.
Merci

salut ça va toi m

Bonjour,

J'aimerais copier une cellule d'excel dans l'ENTETE d'un fichier Word comment faire ?
Je sais copier dans le corps du document Word :
doc_word.Selection.Paste
Mais je ne sais pas comment faire pour l'entête....

Merci
sab

tout le monde seche sur mon sujet,

je vous explique ...


on a une super application excel qui fait plein de chose, imprime, enregistre, fait des traitement de rappro, genere des mails ... et le pb se pose lorsqu'on utilise un copier en metafichier de excel pour l application word ( tout etant piloter par excel ) le pb c'est que l'image metafichier wondows simple est nikel mail lors de la generation de word, gestion de l autre application à partir d excel, l image est trop importante, il suffirait de la reduire au niveau taille et de virer les marges par defaut du nouveau document word qui sont trop importante,
Il est assez simple à partir de word, mais juska present impossible en pilotant excel et en gérant l'application word,

Le top se serait de reduire le coller qui atterit sur word à 80% et mettre des marge de 1 de partourt sur word,

deja pouvez vous me dire si on est tous a se prendre la tete sur un truc impossible ?

Je vous remercie de ton aide et suggestion,

cf echantillon de la macro qui copie la préconfirmation de traitement de deal sur une feuille excel, utilise l application word pour coller en metafichier ...mais la mise en page ca passe pas ( reduction taille image, et gestion des marge word =toujours à partir d excel

J espere que j ai ete assez precis, concret ...

Merci,

Bruno,



Sheets("confirm" ).Select

Range("a1:J93" ).Copy

'Sheets("collar" ).Select


Set WW = CreateObject("word.application" )
WW.Visible = True
WW.documents.Add
'''' mise en page word
'WW.Selection.Paste Special
'celle que j utilise maintenant

WW.Selection.PasteSpecial DataType:=wdPasteMetafilePicture


End Sub

Configuration: Windows XP sp2 Office Pro 2003
Internet Explorer 6.0