Discussion :

[Patrick34]

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 :

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
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

[Souriane]

Bonjour,

Est-ce que ton fichier de fusion est encore ouvert? Si oui, tant qu'il est ouvert, il "monopolise" le fichier Excel alors tu obtiendras ce message. Même si Excel est fermé.

Souriane

[Arkham46]

Bonjuour,

Ajoutez xlApp.visible = true après la création de l'objet application le temps du debug pour voir s'il n'y aurait pas par exemple une fenêtre de dialogue qui bloque la fermeture.