Discussion :

[leblesois]

Bonjour tout le monde,

comme indiqué dans l'intitulé de mon message j'ai un problème avec "ThisWorkbook.activate" qui ne fonctionne pas si le fichier dans lequel se trouve mon code n'est pas ouvert en premier par rapport à d'autres fichiers Excel. Curieusement, le Thisworkbook.activate, m'active un des autres fichiers, et non pas THISWORKBOOK ! Une histoire de fou ! Je m'arrache le peu de cheveux qui me reste à trouver la solution...

Voici le code de mon fichier exemple :

dans "Thisworkbook" :

Code :

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

1
2
3
Static Sub Workbook_Open()
    Frm_Accueil_.Show
End Sub

dans le formulaire FRM_Accueil (j'ai 2 bouton, un pour aller sur la feuille "XXX" et l'autre pour fermer ce fichier Excel) :
voici le code de ce formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Bt_Go_Click()
    Unload Me
    Application.Visible = True
    ThisWorkbook.Activate
    Sheets("XXX").Select        'la j'obtiens un message d'erreur car c'est un autre fichier qui est activé !!!
    Range("H6").Select
End Sub
 
Private Sub CommandButton1_Click()
    'quitter
    Application.Visible = True
    ThisWorkbook.Close
End Sub
 
Private Sub UserForm_Initialize()
    Application.Visible = False
End Sub

Merci d'avance pour votre aide !

[Menhir]

Code :

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

    ThisWorkbook.Close

Ca, ce n'est vraiment pas une bonne idée.
Ca s'appelle "scier la branche sur laquelle on est assis".

[leblesois]

Ca, ce n'est vraiment pas une bonne idée.
Ca s'appelle "scier la branche sur laquelle on est assis".

Merci pour votre réponse, mais mon problème n'est pas au moment ou je quitte mon fichier en cliquant sur le bouton, mais lorsque je clique sur l'autre pour refaire "apparaitre" le fichier Excel et en allant sur la feuille "XXX".

En plus, je ne comprends pas votre remarque. Quel code mettez-vous dans un formulaire pour fermer le fichier qui est en cours d'utilisation ?

MErci pour votre aide

[Philippe Tulliez]

Bonjour,

En plus, je ne comprends pas votre remarque. Quel code mettez-vous dans un formulaire pour fermer le fichier qui est en cours d'utilisation ?

ThisWorkbook est l"objet Workbook dans lequel se trouve le code VBA alors que le classeur actif est l'objet ActiveWorkbook

[Menhir]

Quel code mettez-vous dans un formulaire pour fermer le fichier qui est en cours d'utilisation ?

Aucune chance que je mette une telle chose un jour dans un code.
Je ne vais un Close sur un fichier uniquement si c'est LA MEME macro qui a ouvert le fichier.

[leblesois]

Aucune chance que je mette une telle chose un jour dans un code.
Je ne vais un Close sur un fichier uniquement si c'est LA MEME macro qui a ouvert le fichier.

Merci, mais cela ne répond pas à mon problème...

Vous, comment faites-vous pour fermer un fichier par un formulaire de ce fichier ?

Et pourquoi le thisworkbook.activate ou même le workbooks(thisworkbook.name).activate ne fonctionnent pas ?

Merci d'avance pour votre réponse.

[Menhir]

Vous, comment faites-vous pour fermer un fichier par un formulaire de ce fichier ?

Je le dis pour la troisième fois : je ne fais jamais ça.
Utiliser une macro pour fermer un fichier dans lequel se trouve cette même macro, c'est contre nature.
C'est comme dans cette vieille blague "accroche-toi au pinceau, j'enlève l'échelle" : le fichier c'est l'échelle et macro c'est à la fois le peintre et celui qui retire l'échelle.

Et pourquoi le thisworkbook.activate ou même le workbooks(thisworkbook.name).activate ne fonctionne pas ?

Essaye de remplacer ça :

Code :

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

1
2
3
    ThisWorkbook.Activate
    Sheets("XXX").Select
    Range("H6").Select

Par ça :

Code :

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

    ThisWorkbook.Sheets("XXX").Range("H6").Activate

[mjpmjp]

bonjour,

je pense a quelque chose comme workbooks(monbook).activate,

le focus étant sur un autre book

@+JP

[clementmarcotte]

Vous, comment faites-vous pour fermer un fichier par un formulaire de ce fichier ?


Merci d'avance pour votre réponse.

Dès que le fichier est fermé, aucune macro de ce fichier ne peut fonctionner. C'est comme chercher un fuite de gaz en allumant un briquet, même si des fois ça marche.