Discussion :

[Tbnvnt]

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 :

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

[mercatog]

Tu appelles 2 fois getopenfilename

Pour le test, il fallait (ligne 12)

Code :

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

If Fichiersource = False Then

[Tbnvnt]

Merci ça corrige bien le bug!
C'était trop gros pour que je le vois tout seul..

Bonne journée!