Discussion :

[bartimeus35]

Bonjour,
J'ai le code suivant que j'exécute depuis ACCESS

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim wbExcel As Workbook
Set wbExcel = Workbooks.Open(fichier_1, ReadOnly:=True)
----------------------
 
'Ouverture du fichier de excel
fichier = "C:\Users\franc\Desktop\Classeur1.xlsx"
 
 
Set wbExcel = Workbooks.Open(fichier)
 
              .....mon traitement ....
 
wbExcel.Close (False)

Au premier lancement, il y a eu un plantage avant le close, donc il ne 's'est pas fait et depuis le fichier est bloqué, si je l'ouvre manuellement, il est forcément en lecture seule.
Comment faire pour le refermer.( a part redémarrer le PC)
Note : je ne vois même pas de fichier caché a cote du genre .~MonFichier.xlsm
J'espère que je suis clair dans mon explication,
Merci de votre aide précieuse.
@+

[Philippe Tulliez]

Bonjour,

Au premier lancement, il y a eu un plantage avant le close

J'imagine que ce n'est pas à la ligne 10 (ouverture du classeurà que l'application se plante. Sans avoir une vue des lignes après l'ouverture et avant la fermeture, il est difficile de comprendre la raison du problème

Note : je ne vois même pas de fichier caché a cote du genre .~MonFichier.xlsm

C'est normal que vous ne voyez pas le classeur, il faut rendre l'application visible.

Petit exemple placé dans un module Access et en supposant que la bibliothèque Excel soit bien référencée

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
Sub t()
 Dim oExcel As Excel.Application
 Dim oWkb As Workbook
 Dim PathName As String
 PathName = "C:\Users\phili\Dropbox\MagicOffice - Test\Data\1903 - TimeSheet Rachel.xlsx"
 Set oExcel = New Excel.Application ' GetObject(, "Excel.Application")
 oExcel.Visible = True ' Rend visible l'application
 Set oWkb = oExcel.Workbooks.Open(PathName)
 If MsgBox("Voulez-vous quitter Excel", vbYesNo + vbDefaultButton2) = vbYes Then
    On Error Resume Next ' Au cas où l'utilisateur a fermer le classeur
    oWkb.Close SaveChanges:=True
    On Error GoTo 0
    oExcel.Quit
 End If
 Set oExcel = Nothing: Set oWkb = Nothing
End Sub

[bartimeus35]

Salut, j'ai du mal m’expliquer:
Non ca ne plante pas à la ligne 10 c'est pas ca le pb,
En gros, une première fois, j'ai fait un code pourri qui n'a pas fait le close,
et donc maintenant si un user veut ouvrir le fichier depuis un explorateur ,
on lui dit que le fichier est déjà ouvert dans excel, comment débloquer la situation .

Même si je ferme Access ( car j'ai ouvert le fichier depuis access) , le fichier excel est considéré comme étant toujours ouvert sous excel .

Merci et désolé d'être confus
A part redémarrer le PC, mais si c'est un fichier sur un serveur , je suis fichu

[Philippe Tulliez]

Bonjour,
Avez-vous lu ma réponse ?
En VBA, si l'on ouvre une application autre que celle avec laquelle on travaille (ouvrir Word depuis Excel, Excel depuis Access, etc.) et que l'application tierce se plante, le classeur ou le document que l'on aura ouvert le sera toujours malgré le fait que l'on ne le voit pas;
D'où ma suggestion de rendre l'application visible. Voir mon exemple qui ouvre un classeur excel depuis Access

[bartimeus35]

ok merci je n'vais pas compris ton message, je vais donc ouvrir Excel pour être ure de pouvoir le fermer ensuite si il y a un PB, par contre pou mon fichier bloqué, je suis coincé ?
Comment faire pour le libérer ?

[Philippe Tulliez]

Bonjour,

je vais donc ouvrir Excel pour être ure de pouvoir le fermer ensuite

C'est ce que vous faites déjà il me semble dans le code que vous avez publié (ligne 10 - Set wbExcel = Workbooks.Open(fichier))
Votre problème se situe entre cette ligne et la ligne où vous fermez le fichier
Vous ouvrez le classeur et ensuite vous avez un bogue avant de fermer celui-ci . Vous ne passez donc pas par la fermeture et le classeur reste donc ouvert.
En rendant visible l'application, vous pourrez donc le fermer manuellement
Pour le reste, il faut chercher la cause du plantage.

par contre pou mon fichier bloqué, je suis coincé ?
Comment faire pour le libérer ?

Je ne vois pas d'autres solutions simple que de redémarrer le PC et pour vos prochains tests, rendez l'application visible.

Le code que j'ai publié fonctionne sur Access avec l'ouverture d'excel (je teste toujours les codes que je publie)

[bartimeus35]

OK, parfait, J'ai redémarré le PV et avec Excel ouvert, c'est parfait .

Mille mercis

[bartimeus35]

Hello,
Dans ton code

Code :

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

1
2
3
4
5
6
7
Dim oExcel As Excel.Application
 Dim oWkb As Workbook
 Dim PathName As String
 PathName = "C:\Users\phili\Dropbox\MagicOffice - Test\Data\1903 - TimeSheet Rachel.xlsx"
 Set oExcel = New Excel.Application ' GetObject(, "Excel.Application")
 oExcel.Visible = True ' Rend visible l'application
 Set oWkb = oExcel.Workbooks.Open(PathName)

Je voudrais pouvoir minimiser l'application excel pour ne pas gêner l'utilisateur, comment faire, je ne trouve pas .
Mille mercis,

[Philippe Tulliez]

Bonjour,

Je voudrais pouvoir minimiser l'application excel pour ne pas gêner l'utilisateur, comment faire, je ne trouve pas .

En réduisant la fenêtre de l'application Excel par exemple

Code :

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

oExcel.WindowState = xlMinimized

ligne à placer, juste après la ligne d'ouverture du classeur

[bartimeus35]

Simple et efficace !