GetOpenFilename double ouverture
Bonjour,
Je reprends le code vba d'un ancien collègue. J'ai un fichier Excel dans lequel l'utilisateur lance une macro pour copier un onglet provenant d'un autre fichier Excel.
Pour cela l'utilisateur doit sélectionner le fichier source dans une boîte de dialogue gérée par GetOpenFilename.
Or quand il sélectionne le fichier, la boîte de dialogue se relance au même endroit sans prendre en compte le choix. L'utilisateur doit à nouveau sélectionner le fichier pour que ça fonctionne enfin.
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
22
23
24
25
26
27
|
Sub Extract_source()
Dim Fichiersource As Variant
Dim fichierdestination As String
fichierdestination = ActiveWorkbook.Name
ChDir "C:\"
Fichiersource = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*", 1, "Ouvrir le fichier source des CPC", , False)
If Application.GetOpenFilename = False Then
MsgBox "Aucun fichier sélectionné"
Sheets.Add After:=Workbooks(fichierdestination).Sheets("PROJECT")
Exit Sub
End If
Workbooks.Open Filename:=Fichiersource
Fichiersource = ActiveWorkbook.Name
Worksheets(1).Copy After:=Workbooks(fichierdestination).Sheets("PROJECT")
Workbooks(fichierdestination).Sheets(2).Select
Workbooks(fichierdestination).Sheets(2).Name = "EXTRACT"
Workbooks(Fichiersource).Close
End Sub |
C'est un bug pas très gênant, mais j'aimerais mieux que ce soit bien propre.
Merci de votre aide.
Tom
