Discussion :

[thitoux]

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,

[argyronet]

Bonjour,

Peut-on voir le code de ton appel ?

Argy

[thitoux]

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 :

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

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 :

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

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,

[SfJ5Rpw8]

essai de rajouter

Code :

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

1
2
 
Application.Cursor =xlDefault

en fin de code..

[argyronet]

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 :

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

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