Discussion :

[manouk]

Bonjour,

J'aimerai faire évoluer mon programme pour éviter des erreurs possibles.En effet je voudrai une boîte de dialogue qui permettent à l'utilisateur d'ouvrir le fichier qu'il désire. Par exemple une fenêtre avec un onglet Parcourir pour qu'il choississe lui même le fichier à ouvrir.
Est ce que c'est possible?

[Le Pierre]

bonjour

je pense que c'est ceci que tu recherches :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Récupération()
    Application.ScreenUpdating = False
 
    Fichier_Analyse = ThisWorkbook.Name
 
    Call RechercheFichier(Chemin, Fichier_à_Analyser)
    Workbooks.Open Filename:= _
        Chemin & "\" & Fichier_à_Analyser, local:=True, UpdateLinks:=3
 
    Application.ScreenUpdating = True
End Sub
 
 
 
Sub RechercheFichier(Chemin, Fichier)
    If Chemin <> "" Then
        '--- Se place dans le répertoire de l'application ---
        Path = Chemin
        Lect = Left(Path, 1)
        ChDrive Lect
        If InStr(1, Path, "\", 1) <> 0 Then
            ChDir Path
        End If
    End If
 
    fileToOpen = Application _
        .GetOpenFilename("(*.xls),*.xls")
 
    x = 0
    Do
        x = InStr(x + 1, fileToOpen, "\")
        If x = 0 Then Exit Do
        Memox = x
    Loop Until x = 0
    Chemin = Left(fileToOpen, Memox)
    Fichier = Right(fileToOpen, Len(fileToOpen) - Memox)
 
    '--- Se place dans le répertoire de l'application ---
    Path = Chemin
    Lect = Left(Path, 1)
    ChDrive Lect
    If InStr(1, Path, "\", 1) <> 0 Then
        ChDir Path
    End If
End Sub

à plus

[manouk]

Lorsque je compile ton programme il me met une erreur au niveau de "local".
Et je n'arrive pas à comprendre comment ça fonctionne pour essayer de réparer l'erreur seule.

[fring]

Bonjour,

Ci-dessous un petit exemple de la méthode GetOpenFilename

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
Sub test()
Dim Fich As Variant, Wbk As Workbook
 
Fich = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "Sélectionnez un fichier")
 
'dans le cas où l'utilisateur clic sur le bouton "Annuler" de la boîte de dialogue
If Fich = False Then
    MsgBox "Vous avez annulé l'opération"
    Exit Sub
End If
 
Set Wbk = Application.Workbooks.Open(Filename:=Fich)
 
'*************************************************
'TA PROCEDURE
MsgBox "vous venez d'ouvrir le classeur " & Wbk.Name & Chr(10) & Chr(10) & "Celui-ci va se refermer automatiquement"
Wbk.Saved = True
Wbk.Close
'*************************************************
 
End Sub

[Le Pierre]

bonjour

je ne vois pas non plus où se situe l'erreur.
essaye ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    FileToOpen = Application.GetOpenFilename
    If FileToOpen <> False Then
        MsgBox "Open " & FileToOpen
        Application.Workbooks.Open FileToOpen
        '--------------------------------
        ' place ton code de traitement ici
 
 
 
        '--------------------------------
    End If
End Sub

à plus

[manouk]

merci beaucoup pour votre aide