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

Base_ile

XLDnaute Nouveau
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 :)
 

Base_ile

XLDnaute Nouveau
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

XLDnaute Accro
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é.
 

Discussions similaires


Haut Bas