Discussion :

[labjon01]

Bonjour,

Je suis tout nouveau dans le monde de la programmation et j'essais depuis quelque temps de travailler dans excel à partir d'un formulaire Access. Le code semble bien fonctionner mais quand j'essaie d'ouvrir le fichier Excel où les modifications ont été faites, je ne peux l'ouvrir qu'en lecture seulement car on me dit qu'un autre utilisateur (qui est moi-même) est encore dedans. Je n'arrive pas à «enlever» cet utilisateur de mon fichier à l'intérieur de mon code...

Voici mon code (simplifié..):

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
 
Sub Test1_Jonathan2()
 
 
On Error GoTo Test1_Jonathan2_Err
 
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
 
 
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\labjon01\Bureau\SISAT\Validation SISAT\Validation_listes_CSSS_Chicoutimi.xls")
 
        Sheets("Validation1_Chicout").Select
        Columns("A:F").Select
        Columns("A:F").EntireColumn.AutoFit
        Range("A1:E1").Select
        With Selection.Interior
            .ColorIndex = 15
            .Pattern = xlSolid
        End With
 
    xlBook.Save
    xlBook.Close
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
 
 
Test1_Jonathan2_Exit:
    Exit Sub
 
Test1_Jonathan2_Err:
    MsgBox Error$
    Resume Test1_Jonathan2_Exit
 
End Sub

Voilà. J'ai essayé "Workbooks(1).RemoveUser 1" mais cela ne semble pas régler mon problème. Quand je veux ouvrir physiquement mon fichier excel, on me dit qu'il est en cours d'utilisation par un autre utilisateur.

Merci d'avance!

[User]

Salut,

Il te faut préfixer tes commandes Excel avec l'objet Worksheet, du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
...
 
with xlBook.Sheets("Validation1_Chicout")
 
.Columns("A:F").EntireColumn.AutoFit
 
.Range("A1:E1").ColorIndex = 15
.Range("A1:E1").Pattern = xlSolid
 
End With
 
...

A+

[labjon01]

Merci Beaucoup! C'était effectivement ce qui manquait. Tout fonctionne très bien maintenant.

[User]

Penses au tag "résolu" : ceci pour attirer l'attention de quelqu'un qui a un problème proche du tien