macro avec VBA sur Word et Excel

Marsh Posté le 06-03-2009 à 16:42:27

je cherche à automatiser la mise à jour d' une documentation
pour ça, je voudrais me servir d'une macro, mais je manque de pratique
mon fichier d' origine est un document Word, il doit être travaillé sous Word pour différentes opérations (création d' un index, création de cotes alphanumériques, etc...), et ensuite transféré sur Excel ou ACCESS pour en faire une base de données
Sur Word, pas de problème mes macros fonctionnent bien , mais je ne sais pas comment faire pour transférer mes données sur Excel (automatiser avec une macro: ouverture d' un tableau Excel et copier-coller)
est-ce seulement possible?
je peux ouvrir avec une macro un nouveau document Word mais pas une feuille de calcul Excel
quelqu'un a-t-il une solution?
merci

Reply

Marsh Posté le 06-03-2009 à 16:42:27

Reply

Marsh Posté le 07-03-2009 à 11:12:07

Salut,un exemple basique pour tranférer une valeur d'un tableau Word vers Excel

Option Explicit

Sub Tst()
Dim oTable As Table
Dim xlApp As Object
Dim xlSheet As Object
Dim xlBook As Object
Dim a1 As String, a2 As String

Set oTable = ActiveDocument.Tables(1)

a1 = Len(Mid(oTable.Cell(1, 1), 7, 25))
a2 = Mid(oTable.Cell(1, 1), 7, a1)

Set xlApp = CreateObject("Excel.Application" )
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add

xlSheet.Cells(1, 1) = a2
xlApp.Visible = True

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub

Message édité par kiki29 le 07-03-2009 à 11:27:01

Reply

Marsh Posté le 11-06-2009 à 23:24:51

Bonjour,

je me demande si tu as trouvé une solution à ton problème, je suis dans la meme situation que toi

merci de me repondre

Message cité 1 fois

Reply

Marsh Posté le 15-06-2009 à 22:21:30

Bonjour jacob2010,

Le code proposé par kiki29 devrait fonctionner,
Pour le comprendre, le taper dans Word et l'exécuter en pas à pas (avec F8).
Si cela n'est pas suffisant, pose une question plus explicite...

jacob2010 a écrit :

Bonjour,

je me demande si tu as trouvé une solution à ton problème, je suis dans la meme situation que toi

merci de me repondre

Reply

Marsh Posté le 19-06-2009 à 15:26:14

Merci de m'avoir répondu,

le code de kiki29 ne fonctionne pas dans mon cas.
ma question est la suivante comment je pourrais attaquer les cellules Excel en VBA dans le type "Feuille de calcule Excel" dans Word

merci

Reply

macro avec VBA sur Word et Excel

Sujets relatifs:

Leave a Replay