Bonjours
j'utilise xls 2000 sous xp pro.
a votre avis est il possible de rédiger une macro qui aille chercher des
infos dans un fichier word pour les glisser dans une feuille xls ?
merci
Jacks
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
Bonjour,
Je m'interesse très peu à WORD mais c'est tout à fait possible,ca j'en suis sur. Il faut juste creér une instance de WORD en VBA Excel puis connaitre les commandes word de VBA pour te permettre d'accéder à ton document et aux éléments qu'ils t'intéressent d'importer et ensuite triturer le tout pour parfois le rendre comptabible avec la présentation que tu veux en faire en Excel.
A+
Bonjours j'utilise xls 2000 sous xp pro. a votre avis est il possible de rédiger une macro qui aille chercher des infos dans un fichier word pour les glisser dans une feuille xls ? merci Jacks
Bonjour,
Je m'interesse très peu à WORD mais c'est tout à fait possible,ca j'en
suis sur.
Il faut juste creér une instance de WORD en VBA Excel puis connaitre les
commandes word de VBA pour te permettre d'accéder à ton document et aux
éléments qu'ils t'intéressent d'importer et ensuite triturer le tout
pour parfois le rendre comptabible avec la présentation que tu veux en
faire en Excel.
A+
Bonjours
j'utilise xls 2000 sous xp pro.
a votre avis est il possible de rédiger une macro qui aille chercher des
infos dans un fichier word pour les glisser dans une feuille xls ?
merci
Jacks
Je m'interesse très peu à WORD mais c'est tout à fait possible,ca j'en suis sur. Il faut juste creér une instance de WORD en VBA Excel puis connaitre les commandes word de VBA pour te permettre d'accéder à ton document et aux éléments qu'ils t'intéressent d'importer et ensuite triturer le tout pour parfois le rendre comptabible avec la présentation que tu veux en faire en Excel.
A+
Bonjours j'utilise xls 2000 sous xp pro. a votre avis est il possible de rédiger une macro qui aille chercher des infos dans un fichier word pour les glisser dans une feuille xls ? merci Jacks
JB
Bonjour,
Sub ole3() Dim oApp As Word.Application, doc As Word.Document On Error Resume Next nf = ThisWorkbook.Path & "malettre.doc" Set oApp = CreateObject("Word.Application") oApp.Visible = True oApp.Documents.Open (nf) If Err <> 0 Then MsgBox "Le fichier malettre.doc doit être dans " & ThisWorkbook.Path Exit Sub End If On Error GoTo 0 ' Annule la gestion d'erreur oApp.Selection.WholeStory oApp.Selection.Copy Sheets.Add ActiveSheet.Paste oApp.Quit End Sub
Cordialement JB
Bonjour,
Sub ole3()
Dim oApp As Word.Application, doc As Word.Document
On Error Resume Next
nf = ThisWorkbook.Path & "malettre.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
oApp.Documents.Open (nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
oApp.Selection.WholeStory
oApp.Selection.Copy
Sheets.Add
ActiveSheet.Paste
oApp.Quit
End Sub
Sub ole3() Dim oApp As Word.Application, doc As Word.Document On Error Resume Next nf = ThisWorkbook.Path & "malettre.doc" Set oApp = CreateObject("Word.Application") oApp.Visible = True oApp.Documents.Open (nf) If Err <> 0 Then MsgBox "Le fichier malettre.doc doit être dans " & ThisWorkbook.Path Exit Sub End If On Error GoTo 0 ' Annule la gestion d'erreur oApp.Selection.WholeStory oApp.Selection.Copy Sheets.Add ActiveSheet.Paste oApp.Quit End Sub
