Activer un classeur malgré un Then End

[Faberiz]

Amis d'excel, Bonjour,

Je vous fait grace du code précédent, voilà le problème :

je souhaite retourner sur le classeur initial (Fichier_1) peut importe la réponse en fait à l'issu de l'imputbox, par contre l'inputbox peut lancer l'impression si j'ai la réponse >=1.
mais où inclure Workbooks(MonFichier_1).Activate ?
entre Then et End --> impossible

çà doit être tout simple, mais le petit joueur que je suis n'y arrive pas .

rep = InputBox("Voulez-vous imprimer le fichier FBDD tout de suite ?", 1)
If Not (IsNumeric(rep)) Or rep = "" Or rep < 1 Then End
ActiveWindow.SelectedSheets.PrintOut Copies:=rep

Workbooks(MonFichier_1).Activate ' retourner sur le planning

merci

A+

FAberiz

 

[Compte Supprimé 979]

Re : Activer un classeur malgré un Then End

Salut Faberiz,

Le "End" dans un développement, n'est pas du tout conseillé.

Dans ton code tu peux faire

rep = InputBox("Voulez-vous imprimer le fichier FBDD tout de suite ?", 1)
If Not (IsNumeric(rep)) Or rep = "" Or rep < 1 Then
  ActiveWindow.SelectedSheets.PrintOut Copies:=rep
Else
  Workbooks(MonFichier_1).Activate ' retourner sur le planning
End If

A+

 

[Faberiz]

Re : Activer un classeur malgré un Then End

Bonjour BrunoM45,

d'abord merci,

je veux en fait Workbooks(MonFichier_1).Activate dans les 2 cas et pour autant çà bug

ché pas pourquoi ?

à savoir MonFichier_1 est le 1er à s'ouvrir et lance MonFichier_2 pendant le démarrage où je veux proposer une "impression" puis si "Oui" ou "non" à la réponse je veux activer la fenetre de MonFichier_1 pour terminer l'ouverture.


A+

Fabrice