erreur de fermeture

[CoOki_]

j'ai une macro pour fermer excel mais j'ai un souci car celle si affiche un message d'erreur window que dois je modifier pour que excell se ferme sans afficher d'erreur???,

Sub save_and_close()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="G:\archive\" & _
Format(Date, "dd mmm") & " " & Replace(Format(Time, "hh:mm"), ":", "h") & ".xls", FileFormat:=xlWorkbookNormal
DoEvents 'donne le temps au système d'enregistrer le fichier
For Each LaFeuille In ActiveWorkbook.Worksheets
If LCase(LaFeuille.Name) <> "feuil2" Then LaFeuille.Delete
DoEvents
Next
ActiveWorkbook.Close True 'cette ligne enregistre le fichier avant de le fermer
Application.DisplayAlerts = True
End Sub

vous trouverez le message d'erruer en piece jointe merci de votre aide !! 🙂

 

[jeanpierre]

Re : erreur de fermeture

Bonsoir CoOki,

Sous forme de blague,

T'as de bons yeux tu sais.....

A part la photo, l'image est petite, petite...

 

[Spitnolan08]

Re : erreur de fermeture

Bonsoir,

Quoi tu n'as pas mis tes besicles JeanPierre ? 😀
Je te rejoints et même en zoomant sur l'image, on n'en tire rien...

Une question : pourquoi mettre des Do events ? Ca ne sert à rien...
Ta macro fonctionne très bien sans.

Cordialement

 

[CoOki_]

Re : erreur de fermeture

j'ai du faire un erreur pour le noevent je chercherai ce soir dsl pour la taillle du fichier voila un où normalement vous n'aurez pas beosin de lunette
Amicalement CoOki.

 

[CoOki_]

Re : erreur de fermeture

Bonjour el forum es ce quelqu'un peutme dire si mon rpobleme est resolvable ou pas car les reponses ne fusent pas et sans le noevent çà fait pareil :/
voilou
gros bisous a tous ce qui me porteront leur precieuse aide.

 

[CoOki_]

Re : erreur de fermeture

bonjour le forum tjrs le meme probleme j'ai fait ausssi appel au forum des developpeur est bon toujours pas de solution helas alors voici le fichier excel qui bug . merci a toutes les persones qui se panche sur mon probleme et je souhaite un bon week end a tout le monde.

 

[jeanpierre]

Re : erreur de fermeture

Bonsoir CoOki, re le fil,

Déjà, pour te dire Merci, puisque tu indiques que tu as posté ailleurs, beaucoup post ailleurs et ne le dise pas.

Cette erreur, je la rencontre quelquefois depuis quelques temps sous 2003 surtout, avec ou sans macro....

Donc pour te dire que je ne sais quoi te dire, sinon que c'est un peu Ch....

Je n'ai pas encore de solution...

Je testerai ton fichier demain matin, car, là, je ne peux plus faire grand chose... Manque de mem...

 

[Spitnolan08]

Re : erreur de fermeture

Re,
Bonsoir JeanPierre,

Bonjour el forum es ce quelqu'un peutme dire si mon rpobleme est resolvable ou pas car les reponses ne fusent pas et sans le noevent çà fait pareil :/

Que veux tu que je te dise de plus : CA FONCTIONNE NICKEL CHEZ MOI!
Es tu sûr d'avoir un répertoire nommé G:\archive\ ????????

Cordialement

 

[jeanpierre]

Re : erreur de fermeture

Bonsoir Spit,

Chez moi, pas de souci, mais il est vrai que j'ai eu ce fichu truc sous 2003, avec ou sans macro et avec ou sans répertoire Machin:\truc\bidule....

Pour te dire que, sous situation normale, cela pouvait poser problème quelquefois...

Bonne nuit.

Jean-Pierre

 

[CoOki_]

Re : erreur de fermeture

^^ jeanpierre et spit voilà les news ^^

on m'a proposer de lancer la macro par l'editeur de macro est là dans ce cas çà fonctionne super bien pas de message d'erreur sauf que excell reste ouvert :/

pourquoi executer une macro via un image ferait planter la macro ??
ai je une autre solution pour l'executer sur ma feuille ? ?

XP familial office 2007

merci si j'ai une solution je viendrais vous l'apporter car çà servira à d'autre!! 🙂

Merci

Ps mon repertoire existe tu peux le renommer si tu veux ... il ecrit les info sur G:

 

[news]

Re : erreur de fermeture

re: puisque tu indiques que tu as posté ailleurs, beaucoup post ailleurs et ne le dise pas.

c'est compréhensible qu'on le met sur autre forum,
ce que je fait également, si mis un sujet sur un forum et après quelques jours plus que 140 fois que le sujet a été sélectionné et/ou regardé, mais sans réponses ou réponses sans solutions concrètes/utilisables,

mais le problème reste et quil reste des bug/des expressions ne fonctionnent pas,

news

 

[MJ13]

Re : erreur de fermeture

Bonjour à tous.

Il doit s'agir en effet d"un bug. CoOki, à tout hasard, as tu essayé de l'appelé sauve_et_ferme.

Autrement essaies de recopier le code sur un autre fichier car quelquefois le bug est lié au fichier.

De plus si tu fermes ton fichier, cela ne sert à rien de faire Application.DisplayAlerts = True.
J'aurai plûtot à la fin, écrit un code du genre
activeworkbook.save true (true est peut-être facultatif)
Application.quit

 

[CoOki_]

Re : erreur de fermeture

probleme resolu çà viens pas du nom du fichier mais des toris derniere ligne de la macro ben ouia.... allé comprendre çà peux servir pour d'autre excel 2007 voici la macro correcte

Sub save_and_close()
Application.DisplayAlerts = False
Application.EnableEvents = False
For Each LaFeuille In ActiveWorkbook.Worksheets
If LCase(LaFeuille.Name) <> "feuil2" Then LaFeuille.Delete
Next
ActiveWorkbook.SaveAs Filename:="G:\archive\" & _
Format(Date, "dd mmm") & " " & Replace(Format(Time, "hh:mm"), ":", "h") & ".xls", FileFormat:=xlWorkbookNormal
Application.Quit
End Sub

merci a tous et merci au orum des developpeur qui m'ont soufflé la reponse ^^ merci a vous tous aussi ici !!!

 

[MJ13]

Re : erreur de fermeture

Bonjour à tous.

Et merci Cooki, c'est sympa de nous donner la solution.