XL 2013 Enregistrer et quitter une feuille d'un classeur sous excel 2013 et retourner sur le classeur

[Base_ile]

Bonjour

J'ai mis au point une macro pour l'entreprise , celle ci entre autre viens exporter une feuille de calculs au moyen du code suivant :

depuis un classeur ouvert

twbn = ThisWorkbook.nametwbn

.....


Sheets("mon onglet").Select
Sheets("mon onglet").Copy

ActiveWorkbook.SaveAs Filename:= chemin & "Donnée Utiles.xlsx" _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

ActiveWindow.Close

.....


le code fonctionne parfaitement sous Excel 2010 mais pose problème sous Excel 2013.

Sous 2013 le code ne retourne pas sur le classeur initial au niveau de l'affichage ou l'utilisateur doit faire de nouvelles entrées ...

on arrive à accéder au classeur en cliquant sur Excel dans la barre des tache

j'ai bien bien essayé de rajouter un Windows(twbn).Activate en fin de prog mais rien n'y fait ...


>Merci d'avance ... je sèche 🙂

 

[Jacky67]

Bonsoir,
Je n'ai pas xl2013 mais essaye avec:
ActiveWorkbook.Close
au lieu de
ActiveWindow.Close

 

[Base_ile]

Merci

j'essaie demain à la boite ... et je vous tiens au jus

 

[Base_ile]

la solution est la :

Application.ScreenUpdating = True
ActiveWindow.Close
Application.ScreenUpdating = False

Bizarre qd même cet excel 2013 🙂 j'ai as mal galéré pour trouver cette solution qui n' est pas terrible ... mais je retourne bien la ou je veux

 

[Jacky67]

la solution est la :

Application.ScreenUpdating = True
ActiveWindow.Close
Application.ScreenUpdating = False

Bizarre qd même cet excel 2013 🙂 j'ai as mal galéré pour trouver cette solution qui n' est pas terrible ... mais je retourne bien la ou je veux

Re.
Merci pour le retour et l'astuce.
J'en conclus que 'ActiveWorkbook.Close' n'a rien donné.