Piloter word depuis excel
Résolu/Fermé
A voir également:
- Piloter word depuis excel
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Espace insécable word - Guide
- Supprimer une page word - Guide
- Organigramme word - Guide
7 réponses
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
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
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
Salut,
je n'ai jamais eu à faire ce qui te pose problème mais voila ce que j'ai trouvé:
1/ L'exemple suivant montre comment rechercher toutes les occurrences du mot « salut » dans le document actif et les remplacer par « bonjour ».
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="salut", ReplaceWith:="bonjour", _
Replace:=wdReplaceAll
2/ L'exemple suivant montre comment localiser la première occurrence du mot « bleu » dans le document actif. Si ce mot est trouvé dans le document, myRange est redéfini et la mise en forme gras est appliquée au mot « bleu ».»
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="bleu", Forward:=True
If myRange.Find.Found = True Then myRange.Bold = True
j'espère que ça pourra t'aider...
bonne chance!
je n'ai jamais eu à faire ce qui te pose problème mais voila ce que j'ai trouvé:
1/ L'exemple suivant montre comment rechercher toutes les occurrences du mot « salut » dans le document actif et les remplacer par « bonjour ».
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="salut", ReplaceWith:="bonjour", _
Replace:=wdReplaceAll
2/ L'exemple suivant montre comment localiser la première occurrence du mot « bleu » dans le document actif. Si ce mot est trouvé dans le document, myRange est redéfini et la mise en forme gras est appliquée au mot « bleu ».»
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="bleu", Forward:=True
If myRange.Find.Found = True Then myRange.Bold = True
j'espère que ça pourra t'aider...
bonne chance!
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.
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,
voila des bouts de mon code j'espère que ça t'aidera
ouvre ton doc word
Dim appword As Word.Application
Set appword = New Word.Application
Application.DisplayAlerts = True
appword.ShowMe
appword.Visible = True
appword.Documents.Open FileName:="fichierAouvrir"
va en fin de fichier
appword.Selection.EndKey Unit:=wdStory
selectionne les 3 dernieres lignes
appword.Selection.MoveUp Unit:=wdLine, Count:=3, Extend:=wdExtend
With appword.Selection.Copy
End With
copie ds excel
Worksheets("NomPageExcel").Activate
range("a1").PasteSpecial
voila! bonne chance!
voila des bouts de mon code j'espère que ça t'aidera
ouvre ton doc word
Dim appword As Word.Application
Set appword = New Word.Application
Application.DisplayAlerts = True
appword.ShowMe
appword.Visible = True
appword.Documents.Open FileName:="fichierAouvrir"
va en fin de fichier
appword.Selection.EndKey Unit:=wdStory
selectionne les 3 dernieres lignes
appword.Selection.MoveUp Unit:=wdLine, Count:=3, Extend:=wdExtend
With appword.Selection.Copy
End With
copie ds excel
Worksheets("NomPageExcel").Activate
range("a1").PasteSpecial
voila! bonne chance!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
salut!
tu peux retrouver ce genre d'instruction à partir des macros de word. tu fais outils macro nouvelle macro et ça va t'enregistrer tout ce que tu fais après ça. alors si tu ouvres un entête et que tu copies qqch dedans tu verras le code qui s'affiche dans la macro en faisant macro modifier.
j'ai essayé ce que tu as demandé et je trouve ça. essaye le et si ça marche pas fais comme je t'ai dit. voila ma macro:
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.PasteAndFormat (wdPasteDefault)
bonne chance!
tu peux retrouver ce genre d'instruction à partir des macros de word. tu fais outils macro nouvelle macro et ça va t'enregistrer tout ce que tu fais après ça. alors si tu ouvres un entête et que tu copies qqch dedans tu verras le code qui s'affiche dans la macro en faisant macro modifier.
j'ai essayé ce que tu as demandé et je trouve ça. essaye le et si ça marche pas fais comme je t'ai dit. voila ma macro:
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.PasteAndFormat (wdPasteDefault)
bonne chance!
brunoooooo
Messages postés
11
Date d'inscription
lundi 12 mars 2007
Statut
Membre
Dernière intervention
29 juin 2007
29 juin 2007 à 15:57
29 juin 2007 à 15:57
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
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
5 janv. 2005 à 11:23
c'est une méthode que j'ai vu sur plusieurs codes que j'ai trouvés sur internet.
si tu connais une autre façon d'écrire ça est ce que tu peux m'aider parce que je trouve plus quoi faire...
merci