Fichier excel bloqué

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

Code:

---

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.
@+

Bonjour,

Citation:

---

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

Citation:

---

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:

---

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

---

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

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

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 ?

Bonjour,

Citation:

---

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.

Citation:

---

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)

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

Hello,
Dans ton code

Code:

---

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,

Bonjour,

Citation:

---

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:

---

oExcel.WindowState = xlMinimized

---

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

Simple et efficace !