Problème avec Workbooks.Open
Salut à tous, j'ai un petit problème pour un projet pro.
Je souhaite qu'à l'ouverture de mon fichier, l'utilisateur désigne de lui même un autre classeur à utiliser. Tout marche bien jusqu'ici. Sauf qu'après fermeture du classeur (celui du début), puis réouverture, le document spécifié par l'utilisateur s'ouvre en même temps que mon fichier de départ. (C'est assez clair ? lol). En fait tout se passe bien mais quand j'ouvre ultérieurement mon fichier, il m'ouvre automatiquement le dernier fichier spécifié par l'utilisateur, ce que je ne veux pas.
Je comprends pas, et je sais pas comment y remédier.
Voici mon code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| ' Ouverture du fichier par l'utilisateur '''''''''''''''''''''''''''''
Dim strFichier As String
ChDrive ("C:")
strFichier = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If (strFichier <> "") Then
If (strFichier <> "Faux") Then
MsgBox strFichier
End If
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Affectation des feuilles et des fichiers ''''''''''''''''''''''''''''
Dim appXl As Excel.Application
Set appXl = CreateObject("Excel.Application")
Set wb = appXl.Workbooks.Open(strFichier)
appXl.Visible = False
Set twb = Workbooks("PROGRAMME USVALUE.xls")
Set w3b = wb.Worksheets("3b Stocks")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' |
