Bonjour je suis actuellement bloqué sur le problème suivant :
Je cherche a faire une macro qui va supprimer tous les tableaux de tous les documents word d'un répertoire .
J'ai trouver comment parcourir les fichiers d'un répertoire ,je bloque surtout sur la partie consistant a supprimer tous les tableaux d'un document du répertoire.
Si quelqu'un pouvait me donner quelque pistes.
. La partie qui supprime les tableaux de fonctionne pas et me sort une erreur de dépassement de capacité.
Pourtant si j'isole ce code en l'adaptant pour un document word ouvert cela marche tres bien
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 del = ActiveDocument.Tables.Count For i = del To 1 Step -1 ActiveDocument.Tables(i).Select ActiveDocument.Tables(i).Delete Next
J'ai fais le code suivant pour l'instant
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
48
49
50
51
52 Sub importLignesDocumentWord() Dim Fichier As String, Direction As String Dim wordApp As Word.Application Dim wordDoc As Word.Document Dim i As Byte Dim j As Integer Dim num As Integer Dim x As Integer Dim y As Integer x = 1 y = 1 j = 1 '--------------------------------------------------------------------------------------- Application.ScreenUpdating = False Direction = ThisWorkbook.Path Fichier = Dir(Direction & "\*.doc") Do While Fichier <> "" 'boucle sur tous les fichiers .doc du repertoire Set wordApp = CreateObject("Word.Application") wordApp.Visible = False Set wordDoc = wordApp.Documents.Open(Direction & "\" & Fichier) 'ouverture documents word j = j + 1 del = ActiveDocument.Tables.Count For i = del To 1 Step -1 wordDoc.Tables(i).Select wordDoc.Tables(i).Delete Next wordDoc.Close False 'fermeture documents word wordApp.Quit Set wordDoc = Nothing Set wordApp = Nothing Fichier = Dir Loop End Sub
Merci d'avance
Partager