Libérer fichier Excel après publipostage
Bonjour
Je fais un publipostage avec Word et Excel comme source de données. J'utilise le code VBA de Olivier lebeau qui marche très bien sauf que je ne peux plus utiliser le fichier Excel. "Fichier données.xlsm est verrouillé pour modification"
Je n'ai pas trouvé de méthode pour "libérer" Excel ( a part se deconnecter )
voici le code utilisé
Code:
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
| Sub donneeAvecExcel()
'Déclaration des variables
Dim xlApp As Excel.Application
Dim xlWb As Excel.Workbook
Dim xlSh As Excel.Worksheet
Dim iR As Integer
Dim iC As Integer
Dim i As Integer, j As Integer
'Affectation des données aux variables
Set xlApp = New Excel.Application
Set xlWb = xlApp.Workbooks.Open("C:\Documents and Settings\Olivier\Mes documents\Mes sources de données\adresses.xlsx")
Set xlSh = xlWb.Worksheets(1)
'Récupération du nombre de lignes et de colonnes
iR = xlSh.UsedRange.Rows.Count
iC = xlSh.UsedRange.Columns.Count
'Boucle pour adresser les cellules contenant des données
'en excluant la première ligne qui contient les titres
For i = 2 To iR
For j = 1 To iC
Debug.Print xlSh.Cells(i, j)
Next j
Next i
xlWb.Close
xlApp.Quit
Set xlSh = Nothing
Set xlWb = Nothing
Set xlApp = Nothing
End Sub |
il y a bien un close et un quit à la fin mais ça ne fonctionne pas
Quelqu'un a t il une idee?
Merci par avance
