[VBA-E] fermeture de fichier et curseur de souris

Bonjour,

J'utilise

ActiveWorkbook.close

pour fermer mon classeur Excel à la fin de ma macro.
Le probleme est que quand le claseur se ferme, le curseur de la souris reste sur le sablier qui tourne...
Quand j'ouvre un nouveau claseur, le curseur de la souris reste toujours sous la forme de sablier tournant et seul une fermeture complete et réouverture d'Excel permet de retrouver un pointeur normal.

Merci de votre aide

Cordialement,

Bonjour,

Peut-on voir le code de ton appel ?

Argy

En fait, je pars d'un fichier modele (workbook BW datawarehouse SAP) et je mets à jour un query. La macro est contenue dans ce workbook. La macro effectue un tri des lignes de données obtenues et elle enregistre le resultat dans un nouveau classeur qui est fermé avec création.

Code:

---

1 2 3 4 5 6 7

ChDir "F:\SupplyChain\stock du jour" ActiveWorkbook.SaveAs Filename:= _ nomfichier _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False   ActiveWorkbook.Close (False)

---

Une fois le nouveau classeur fermé, je reviens donc par defaut sur mon fichier modele et j'affiche une boite de dilogue pour demander si il faut fermer ce fichier modele.....

Code:

---

1 2 3 4 5 6 7 8 9

Sheets("Stock").Select   fermeture = MsgBox(Chr$(13) & " Traitement terminé. Le fichier est prêt à être zippé." & Chr$(13) & "Fermer le workbook ?" & Chr$(13) , vbYesNo, "traitement terminé") If fermeture = vbNo Then End End If   ActiveWorkbook.Close (False) End Sub

---

La macro parvient bien à fermer le fichier modele mais le curseur de souris reste sous forme de sablier qui tourne..... seule la fermeture complete d'excel permet de revnir à un curseur normal....

Voila,

Merci à tous de votre aide precieuse,

Cordialement,

essai de rajouter

Code:

---

1 2	Application.Cursor =xlDefault

---

en fin de code..

En théorie, lorsque tu ouvres un nouveau classeur fondé sur un XLT, le XLT n'est pas censé être ouvert...
De ce fait, je ne comprends pas pourquoi tu poses la question de savoir si l'utilisateur veut également fermer le modèle.
L'instance Excel doit à ce moment précis comporter qu'un seul classeur, nommé Classeur1 sans extension si c'est une 1ère instance et incrémenté de 1 si tu fais plusieurs opérations de création de classeurs à la suite...
Lorsque tu ouvres ce classeur, il se peut qu'un sablier apparaisse puis disparaisse selon l'emplacement du modèle (local ou réseau).
Du fait que tu ne sembles pas utiliser l'instruction qui change le pointeur, c'est qu'il y a quelque chose qui traine dans ton code.
La solution de BBil est un paliatif mais n'explique rien...
As-tu vérifié que tu n'as pas plusieurs instances d'Excel des les processus ?

D'autre part, il faut que tu apprennes à simplifier ton code:

Code:

---

1 2	ActiveWorkbook.SaveAs "F:\SupplyChain\stock du jour\" & strNomFichier ActiveWorkbook.Close False

---

Est-ce que ton code est complet là ? Non, il me semble...
Est-ce qu'Excel est lancé depuis une autre application ?

Argy