Ecrire dans une cellule Excel à partir de macro Word

[paullux]

Bonjour,

Je débute en vba et je n'ai pas trouvé la réponse à mon problème dans les discussions existantes. Je pense que je me suis mélangée un peu les pinceaux, mais si quelqu'un a une idée je suis preneuse...

J'ai une macro dans word dans laquelle j'ai déclaré des variables.
Je souhaite écrire ces variables dans un document Excel que j'ouvre.
J'ai donc créé une sub dans "Naw Macro" dans ma macro Word :


Sub RemplirExcel(L As Line, C As Column, T As String)

On Error GoTo rien

'1-J'initialise mes variables

Dim xlApp As Object
Dim Place As Long

'2-J'ouvre mon fichier Excel
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Workbooks.Open ("C:\Mes Documents\Parametres.xls")

ActiveSheet.Feuil1.Cell(L, C).Select
ActiveSheet.Feuil1.Range.Text = T

End Sub

Je suppose deja que j'ai tout mélangé.

Mon but au final est d'appeler RemplirExcel (2,1,Projet) suite à une action (click d'un button).
Pour l'instant ca ne donne rien...

Je vous remercie et suis preneuse de toute idée à creuser...
Bonne journée.

Paullux

 

[Catrice]

Re : Ecrire dans une cellule Excel à partir de macro Word

Bonjour,

ci-dessous un exemple à tester :

Sub Test()
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Workbooks.Open ("C:\Parametres.xls")
xlApp.ActiveSheet.Cells(1, 1) = "titi"
xlApp.activeworkbook.Close True
xlApp.Quit
Set xlApp = Nothing
End Sub

 

[paullux]

Re : Ecrire dans une cellule Excel à partir de macro Word

Merci beaucoup!!!
C'est génial : ca marche!

Bonne soirée.
Paullux