Probleme controle Word via Excel

Probleme controle Word via Excel - VB/VBA/VBS - Programmation

Marsh Posté le 27-08-2008 à 16:12:54    

Bonjour
 
je souhaiterai pouvoir controler un Objet dans deux fonctions differentes:
 
 

Code :
  1. Call Wd
  2. Call FillWord ( ?????)
  4. Function Wd() As Object
  5. Set Wd = New Word.Application
  6. Wd.Visible = True
  7. Wd.Documents.Open Filename:="S:\OPTION\TRS Template.doc" ' open template
  8. Wd.Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=10 'go to line10
  9. End Function


 
 
je souhaiterai que la fonction FillWord permette d ecrire une phrase dans l'objet cree par la fonction Wd
 
 
 
merci de votre aide
 

Reply

Marsh Posté le 27-08-2008 à 16:12:54   

Reply

Marsh Posté le 27-08-2008 à 17:00:25    

up

Reply

Marsh Posté le 28-08-2008 à 00:30:31    

1) Erreur sur la ligne 1. "Call wd" n'est pas bon en soit avec une fonction qui rend donc le fichier word
 
2) La fonction FillWord (et je suppose que ça a plutôt l'air de devoir être un "sub" ) est appelée par comment?
 
sinon un truc du style

Code :
  1. Dim word_obj as Word.Application
  2. Set word_obj = wd()
  3. Call FillWord(wd,"totototo" )
  5. Sub FillWord(wd as Word.Application, msg as string)
  6. wd.selection.range.insertbefore(msg)
  7. End Sub


 
Je ne suis pas expert en VBA word, donc je ne suis pas sur que insertbefore soit la meilleur méthode, mais ça doit marcher

Reply

Marsh Posté le 28-08-2008 à 09:22:27    

bon, je n ai pas ete assez clair:
 
ce que je veux faire exactement
 
-Appeler une fonction qui ouvre une session word et qui ouvre le fichier C:\fichier.doc
-Appeler une fonction qui modifie le contenu de fichier.doc
-Sauver le nouveau fichier cree sous le nom: C:\fichierNEW.doc
 
En gros, je n arrive pas a recuperer la session word ouverte lors de la premiere fonction. Je sais comment faire le reste.

Reply

Marsh Posté le 28-08-2008 à 16:00:13    

up

Reply

Marsh Posté le 28-08-2008 à 19:20:37    

up

Reply

Marsh Posté le 29-08-2008 à 00:52:08    

Le code que j'ai fourni ne t'aide en rien?
 
Sinon, je n'ai toujours pas compris ce que tu appelles "appeler une fonction" : qui (ou quoi) appelle la(es) fonction(s) en question

Message cité 1 fois
Reply

Marsh Posté le 29-08-2008 à 08:50:31    

dreameddeath a écrit :

Le code que j'ai fourni ne t'aide en rien?
 
Sinon, je n'ai toujours pas compris ce que tu appelles "appeler une fonction" : qui (ou quoi) appelle la(es) fonction(s) en question


 
Ben, avoir une procedure principale qui lance les fonctions en utilisant: Call Fonction1

Reply

Marsh Posté le 29-08-2008 à 13:57:02    

up

Reply

Marsh Posté le 30-08-2008 à 15:56:27    

up

Reply

Marsh Posté le 30-08-2008 à 15:56:27   

Reply

Marsh Posté le 31-08-2008 à 13:05:06    

up

Reply

Marsh Posté le 31-08-2008 à 14:28:49    

+1 avec dreameddeath
 
faudrait peut être utilise
 

Code :
  1. Public wd As Application


 
et mets tout tes codes pour y voir plus clair


Message édité par 86vomito33 le 31-08-2008 à 14:29:02
Reply

Marsh Posté le 01-09-2008 à 01:16:03    

Code :
  1. Sub ExportPayer()
  3. Call CopyExcel
  4. Call PasteExcel_Sheets_P_vs_R
  5. Call Doc_Payer
  6. Call PrintPDF(Wd)
  8. End Sub
  10. Sub CopyExcel()
  12. Sheets("TRS" ).Select
  13. Range("A1:B45" ).Select
  14. Selection.Copy
  15. End Sub
  17. Sub PasteExcel_Sheets_P_vs_R()
  19. Sheets("P vs R" ).Select
  20. Range("A1" ).Select
  21. Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  22. Sheets("P vs R" ).Select
  23. Range("A1:B45" ).Select
  24. Selection.Copy
  25. Sheets("TRS" ).Activate
  27. End Sub
  29. Sub Doc_Payer()
  31. Dim Wd As Object
  32. Set Wd = New Word.Application
  34. Wd.Visible = True
  35. Set DocWord = Wd.Documents.Open("C:\Documents and Settings\Administrateur\Mes documents\TRS\TRS_Template.doc", ReadOnly:=True)
  36. ' Fermeture de Word 'Wd.Application.Quit
  38. Wd.Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=10, Name:="" 'go to line10
  39. Wd.Selection.Paste
  41. 'Wd.ActiveDocument.SaveAs Filename:=Get_Path & "\" & "LCM TC TRS " & Sheets("TRS" ).Range("Bloomberg_ticker" ) & Duration & " [" & _
  42. SNP & " vs " & SNR & "]" & ".doc"
  44. Wd.ActiveDocument.SaveAs Filename:="C:\Documents and Settings\Administrateur\Mes documents\TRS" & "\" & "LCM TC TRS " & Sheets("TRS" ).Range("Bloomberg_ticker" ) & Duration & " [" & _
  45. SNP & " vs " & SNR & "]" & ".doc"
  47. End Sub
  50. Sub PrintIT(Wd As Object)
  52.     ActivePrinter = "Brother HL-2030 series"
  53.     Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
  54.         wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
  55.         ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
  56.         False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
  57.         PrintZoomPaperHeight:=0
  59. End Sub


 
 
En gros, je veux une fonction PrintIT pouvant utiliser l'application word crée précedemment
 
merci de votre aide


Message édité par Moundir le 01-09-2008 à 01:23:46
Reply

Marsh Posté le 01-09-2008 à 09:59:23    

quest ce que cela donne comme ca ?
 
modifie les textes en rouge
et a mon avis la ligne 27 n'est pas bonne
 

Code :
  1. Public wd As Application
  3. Sub ExportPayer()
  4. Call CopyPasteExcel_Sheets_P_vs_R
  5. Call Doc_Payer
  6. Call PrintPDF(wd)
  7. End Sub
  9. Sub CopyPasteExcel_Sheets_P_vs_R()
  10. Sheets("TRS" ).Range("A1:B45" ).Copy (Sheets("P vs R" ).Range("A1" ))
  11. Sheets("P vs R" ).Select
  12. Range("A1:B45" ).Select
  13. Selection.Copy
  14. Sheets("TRS" ).Activate
  15. End Sub
  17. Sub Doc_Payer()
  18. Dim wd As Object
  19. Set wd = CreateObject("Word.Application" )
  20. wd.Visible = True
  21. Set DocWord = wd.Documents.Open("C:\test\TRS_Template.doc", ReadOnly:=True)
  22. ' Fermeture de Word 'Wd.Application.Quit
  23. wd.Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=10, Name:="" 'go to line10
  24. wd.Selection.Paste
  25. 'Wd.ActiveDocument.SaveAs Filename:=Get_Path & "\" & "LCM TC TRS " & Sheets("TRS" ).Range("Bloomberg_ticker" ) & Duration & " [" & _
  26. SNP & " vs " & SNR & "]" & ".doc"
  27. wd.ActiveDocument.SaveAs Filename:="C:\test\TRS" & "\" & "LCM TC TRS " & Sheets("TRS" ).Range("Bloomberg_ticker" ) & Duration & " [" & snp & " vs " & snr & "]" & ".doc"
  28. End Sub
  30. Sub PrintPDF(wd As Object)
  31.     ActivePrinter = "Brother HL-2030 series"
  32.     Application.PrintOut Filename:="", Range:=wdPrintAllDocument, Item:= _
  33.         wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
  34.         ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
  35.         False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
  36.         PrintZoomPaperHeight:=0
  37. End Sub


Message édité par 86vomito33 le 01-09-2008 à 10:03:38
Reply

Marsh Posté le 01-09-2008 à 11:28:13    

Non, ça marche très bien.
 
Le seul truc que je veux, c'est d'utiliser Wd dans la fonction PrintPDF

Reply

Marsh Posté le 02-09-2008 à 16:48:22    

Simple alors  
 

Code :
  1. Sub PrintPDF(wd As Word.Application)
  2.     wd.ActivePrinter = "Brother HL-2030 series"
  3.     wd.PrintOut Filename:="", Range:=wdPrintAllDocument, Item:= _
  4.         wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
  5.         ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
  6.         False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
  7.         PrintZoomPaperHeight:=0
  8. End Sub


 
ça devrait largement suffire

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed