Discussion :

[FGarenne]

Bonjour,

J'ai réalisé un programme de gestion de données sous VBA excel 5 que j'ai fait évolué en excel 2010.

Lors de la fermeture du classeur par le biais du VBA :

Code :

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

1
2
3
4
5
   Sheets("Présentation1").Activate
   Range("A1").Activate
   ActiveWorkbook.Save
   ActiveWorkbook.Close
   Application.Quit

Le message suivant apparaît : Le focus ne peut pas être déplacé sur le contrôle car celui-ci est invisible, non activé, ou d'un type n'acceptant pas le focus.
L'utilisateur doit alors cliquer sur OK.
L'apparition de ce message est aléatoire
J'aimerais supprimer ce message mais je n'ai pas la moindre piste. Merci de m'apporter vos lumières.

[Kimy_Ire]

Bonjour

Les .Activate ne servent à rien pour la fermeture d'un classeur.
Essaye plutôt quelque chose du genre :

Code :

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

1
2
Workbooks("Mon_classeur").Close SaveChanges:=True
Application.Quit

Si ceci ne fonctionne pas, tu peux passer par la désactivation des messages d'erreur/informatifs.

Code :

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

1
2
3
4
5
Application.DisplayAlerts = False
Workbooks("Mon_classeur").Close SaveChanges:=True
'N'oublie surtout pas de les réactiver ;)
Application.DisplayAlerts = True
Application.Quit

Voila ! N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[FGarenne]

Bonjour,

Cela fonctionne. Merci

Mais j'aimerais comprendre car la solution permet juste de ne pas afficher un message mais ne résout par le problème ....
Et j'aimerais comprendre.

[patricktoulon]

tu veux comprendre ?
et bien c'est tout simple

Code :

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

Range("A1").Activate

ceci n'est pas nécessaire pour ce que tu demande a la macro déjà dans un 1 er temps

ensuite un range activate je ne sais pas si ca se fait c'est plutôt un select !!!!

en tout cas depuis 2007 je n'ai jamais vu ca
et c'est sans doute la raison de ton message

on active pas une cellule on la SELECT!!!!

Au plaisir

[FGarenne]

Merci pour cette réponse mais ce que je ne comprends pas c'est le pourquoi de ce message :

"Le focus ne peut pas être déplacé sur le contrôle car celui-ci est invisible, non activé, ou d'un type n'acceptant pas le focus."

Il apparaît même sans l'utilisation des. Activate qui était juste un essai de ma part pour résoudre ce problème.

Code :

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

1
2
3
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.Quit

Ce message apparaît après la 1ère ligne mais pas systématiquement.

[Kimy_Ire]

As-tu essayé d'enlever le ActiveWorkbook et de mettre Workbooks("Mon_classeur") à la place ?