Bonjour,

J'ai initié une macro qui permet de copier/coller des données depuis word vers excel. (Inspirer par un tuto developpez !)
Cependant je la trouve assez longue. Je voulais savoir si vous aviez une idée pour le rendre plus efficace et rapide.
Tout ça pour 3 Word différents donc trois fois le code suivant.
Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub Import()
 
'Accélération macro
 
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
    'Microsoft Word xx.x Object Library
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Tableau As Word.Table
Dim i As Integer, j As Integer
 
'Création instance Word
Set WordApp = New Word.Application
'Masque Word pendant l'opération
WordApp.Visible = True
 
 
 
'Ouvre le document Word et copie les données MDM
 
If Dir("lien") = "" Then GoTo A
Fich = Dir("lien")
Set WordDoc = WordApp.Documents.Open("lien & Fich)
 
 
WordDoc.Range(WordDoc.Bookmarks("sig1").Range.Start, _
WordDoc.Bookmarks("sig2").Range.End).Copy
Sheets("Faits marquants S").Select
Range("I3").Select
 ActiveSheet.Paste
 Sheets("Indicateurs").Range("I6").Value = "MDM" & Date
 
'Ferme le document Word
WordDoc.Close False
 
A:
 
 
 ' Accélération macro
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True 'rafrfraichissement ecran
    Application.Calculation = xlCalculationAutomatic
End Sub