Discussion :

[decoalaa]

Bonjour,
Comme l'indique le titre, je veux ouvrir et fermer un fichier Excel en sauvegardant les modifications.

Au lancement du fichier mon Excel exécute une macro a l'ouverture et doit ferme après avoir sauvegarder les modifications dus a la Macro.

J'ai trouvé ce code après une recherche sur le forum mais ca marche pas car j'ai une feuilles Excel spécial, donc si vous avez un autre code a me proposer je vous serais reconnaissant:

Code :

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

1
2
3
4
5
6
7
Dim Wb As Workbook
 
For Each Wb In Application.Workbooks
    Wb.Saved = True
Next Wb
 
Application.Quit

J'ai la version Excel 2003.

Merci pour vos réponses

[imaril]

Bonour,
alors pour fermer ton workbook en le sauvgardant utilise la fonction suivant :
Workbooks(nom_fichier).Close SaveChanges:=True

Code :

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

1
2
3
4
5
6
7
Dim Wb As Workbook
 
For Each Wb In Application.Workbooks
    Wb.Close SaveChanges:=True
Next Wb
 
Application.Quit

je pense que ca devrais marcher

[decoalaa]

Bonjour,
Merci pour ton aide mais il y a un petit problème, c'est que ton code ne ferme que le classeur, par contre l'application Excel reste ouverte et puis le deuxième problème, c'est qu'elle se ferme avant d'exécuter la macro automatique d'ouverture (AUTO_OPEN) donc du coup y a pas de modification a sauvegarder.

[imaril]

je n'ai pas tres bien compris ce que tu voulais dire par ceci :

Bonjour,
Merci pour ton aide mais il y a un petit problème, c'est que ton code ne ferme que le classeur, par contre l'application Excel reste ouverte et puis le deuxième problème, c'est qu'elle se ferme avant d'exécuter la macro automatique d'ouverture (AUTO_OPEN) donc du coup y a pas de modification a sauvegarder.

Si j'ai bien compri tu a une macro qui s'execute quand tu lance ton fichier. Il suffi de placer ce code en fin de cette macro.


pour l'histoire de la fermeture d'excel tu peux rajouter un application.terminate a la fin comme tu avais fais au début.

[decoalaa]

Pour la sauvegarde ca marche bien mais par contre j'ai toujours le même probleme car il y a que le classeur qui se ferme mais pas l'application (meme en rajoutant le application.quit)

[Godzestla]

Salut,

tu peux mettre ceci dans un module de ton classeur concerné :

Code :

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

1
2
3
4
5
 
sub sauver()
thisworkbook.save
application.quit
end sub

Attention, cela ferme excel et donc aussi les autres éventuels classeurs ouverts, sauf si il y a des données non sauvées alors il te demandera de confirmer.

Ok ?

[decoalaa]

Merci pour ton aide, mais en fait ca fait toujours la même chose, ça ferme que les classeurs par contre l'application reste toujours ouverte.
Peut être je l'ai pas mis la ou il faut. Je l'ai mis dans thiswoorbook, est ce que c'est bien la ou il faut le mettre?

[Godzestla]

Merci pour ton aide, mais en fait ca fait toujours la même chose, ça ferme que les classeurs par contre l'application reste toujours ouverte.
Peut être je l'ai pas mis la ou il faut. Je l'ai mis dans thiswoorbook, est ce que c'est bien la ou il faut le mettre?

Regarde ce que j'ai écrit plus haut.

tu peux mettre ceci dans un module de ton classeur concerné

NB : J'ai aussi E-03 (excel 2003) et ce code fonctionne parfaitement chez moi.

[decoalaa]

C'est bizarre, ça marche pas sur le mien.
Peut être c'est parce que j'utilise mon fichier excel dans une autre application, donc peut être quand je fait application.Quit , il sait pas de quel application je lui parle .

[Godzestla]

C'est bizarre, ça marche pas sur le mien.
Peut être c'est parce que j'utilise mon fichier excel dans une autre application, donc peut être quand je fait application.Quit , il sait pas de quel application je lui parle .

Voilà le genre d'info qu'il aurait fallu dévoiler plus tot.

Tu peux expliquer ?

car si tu mets le code que j'ai dit où j'ai dit dans ton classeurs excel et que tu ouvre par 'excel et que tu l'exécutes, résultats garantis.

[decoalaa]

en fait je travail dans un serveur d'entreprise et mon fichier Excel me permet de récupérer des donnes de ce serveur grâce a une macro.La macro exécute une application qui va dans la base de données et récupérer ce qu'on cherche.

[Godzestla]

en fait je travail dans un serveur d'entreprise

Bwa. Il doit faire chaud et noir la dedans.

Sans déconner, je ne vois pas ce que cela change.

As-tu essayé d'ouvir le fichier via la voie normale d'excel puis exécuté le code pour ce qui se passe. ?

[decoalaa]

Franchement j'ai tout essayé mais y a rien qui marche, je sais pas pourquoi.
Merci quand même pour ton aide

[Godzestla]

J'aimerais que tu essaie ce que j'ai proposé dans ma première réponse, dans un autre classeur par exemple, en respectant bien que la place du code est dans un module et que tu vois si cela fonctionne. cela devrait.

Ensuite, tu ouvres via excel le fameux fichier, tu mets le meme code au même endroit et puis tu testes.

j'attends ton résultat.

[decoalaa]

Je comprend pas trop ce que tu veux dire par cela :en respectant bien que la place du code est dans un module, je vois pas ce que c'est les modules dont tu parle, je suis pas tres fort en Excel

[Godzestla]

Salut,

quand je parle de module, ce n'est pas dans excel mais dans VBA, le sujet qui nous concerne.

Si tu ouvres VBA (<Alt<+<F11> depuis la fen^tre excel, tu vois normallement la décomposition de ton projet dans la partie gauche de ton écran.

Regarde l'exemple dans la miniature jointe.

Le code doit être dans un Module sous le groupe module.
Dans mon exemple il y a 2 modules.

[decoalaa]

C'est bon j'ai trouvé une solution pour mon probleme.
Merci a tous ceux qui m'ont répondu.