Discussion :

[avyrex]

Bonjour a tous,

Je veux ajuster un code afin de pouvoir choisir le fichier excel que je veux ouvrir sur mon ordinateur.

En ce moment, je dois donner le chemin exacte, mais je veux qu'il m'ouvre l'explorateur afin de choisir un fichier excel.

Comment faire s.v.p?

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
28
Dim xlObject    As Excel.Application
Dim xlWB        As Excel.Workbook
 
    Set xlObject = New Excel.Application
 
   Set xlWB = xlObject.Workbooks.Open("C:\Documents and Settings\xxxxxxx\Desktop\Order Template.xls") 'Open your book here
 
   Clipboard.Clear
   With xlObject.ActiveWorkbook.ActiveSheet
       .Range("A1:z200").Copy 'Set selection to Copy
   End With
   With MSFlexGrid1
       .Redraw = False     'Dont draw until the end, so we avoid that flash
       .Row = 0            'Paste from first cell
       .Col = 0
       .RowSel = .Rows - 1 'Select maximum allowed (your selection shouldnt be greater than this)
       .ColSel = .Cols - 1
       .Clip = Replace(Clipboard.GetText, vbNewLine, vbCr) 'Replace carriage return with the correct one
       .Col = 1            'Just to remove that blue selection from Flexgrid
       .Redraw = True      'Now draw
   End With
 
   xlObject.DisplayAlerts = False 'To avoid "Save woorkbook" messagebox
   'Close Excel
   xlWB.Close
   xlObject.Application.Quit
   Set xlWB = Nothing
    Set xlObject = Nothing

Merci pour votre aide.

[ProgElecT]

Dans ton editeur VB, Ctrl+T => Contrôle Microsoft CommonDialog 6.0 (COMDLG32.OCX)
Ce composant permet d'explorer ton disque dur (ou autre unité de stockage).
Pour des informations d'utilisaton, F2, voir F1 pour plus d'expliquations.
rechercher dans ce forum avec le mot CommonDialog il y a plein d'exemples

[avyrex]

Super, je suis rendu à un étape plus loin grace à ton aide.

Maintenant que je peux ouvrir la boite de dialog OUVRIR, comment je peux sélectionné le fichier?

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
Private Sub Command1_Click()

Dim xlObject    As Excel.Application
Dim xlWB        As Excel.Workbook

CommonDialog1.ShowOpen

    Set xlObject = New Excel.Application

   Set xlWB = xlObject.Workbooks.Open("C:\Documents and Settings\jpoitra\Desktop\Floral Order Template.xls") 'Open your book here
              
   Clipboard.Clear
   With xlObject.ActiveWorkbook.ActiveSheet
       .Range("A1:z200").Copy 'Set selection to Copy
   End With
   With MSFlexGrid1
       .Redraw = False     'Dont draw until the end, so we avoid that flash
       .Row = 0            'Paste from first cell
       .Col = 0
       .RowSel = .Rows - 1 'Select maximum allowed (your selection shouldnt be greater than this)
       .ColSel = .Cols - 1
       .Clip = Replace(Clipboard.GetText, vbNewLine, vbCr) 'Replace carriage return with the correct one
       .Col = 1            'Just to remove that blue selection from Flexgrid
       .Redraw = True      'Now draw
   End With
      
   xlObject.DisplayAlerts = False 'To avoid "Save woorkbook" messagebox
   'Close Excel
   xlWB.Close
   xlObject.Application.Quit
   Set xlWB = Nothing
    Set xlObject = Nothing
End Sub

Merci encore pour ton aide

[OhMonBato]

Pour des informations d'utilisaton, F2, voir F1 pour plus d'expliquations.
rechercher dans ce forum avec le mot CommonDialog il y a plein d'exemples

As tu suivi le conseil de ProgElect ?

[avyrex]

Super, je suis rendu à un étape plus loin grace à ton aide.

Comme mentionné plus haut, oui. Mais je suis bloqué à cette étape. C'est pour ça que je demande encore de l'aide à cette étape ci.

[ProgElecT]

Salut OhMonBato
Est oui F2 et F1 toivent être le premier reflex, intéresse toi aux propriétés FileName et FileTitle.
Je peux te dire qu'a la suite d'une sélection par l'utilisateur, la propriété FileName <> vbNullString si l'utilisateur n'a pas utilisé le bouton "Annuler"
Que

Code :

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

Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) - Len(CommonDialog1.FileTitle) - 1)

te permets de récupérer le chemin ou a été sélectionné le fichier.

Motif de l'edit:
Si tu n'as pas MSDN (en francais), tu peux le charger ICI

[avyrex]

Merci à tous pour votre aide.

Voici le verdicte final:

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
46
47
48
Dim xlObject    As Excel.Application
Dim xlWB        As Excel.Workbook
On Error GoTo MyErrHandler
 
    With CommonDialog1
        .CancelError = True
        .Filter = "Microsoft Excel files (*.xls)|*.xls"
        .InitDir = App.Path
        .ShowOpen
        If Not .FileName = "" Then
            Set xlObject = New Excel.Application
            Set xlWB = xlObject.Workbooks.Open(.FileName)
          LakeShore.Command2.Visible = True
   Clipboard.Clear
 
   With xlObject.ActiveWorkbook.ActiveSheet
       .Range("A1:z200").Copy 'Set selection to Copy
   End With
   With MSFlexGrid1
       .Redraw = False     'Dont draw until the end, so we avoid that flash
       .Row = 0            'Paste from first cell
       .Col = 0
       .RowSel = .Rows - 1 'Select maximum allowed (your selection shouldnt be greater than this)
       .ColSel = .Cols - 1
       .Clip = Replace(Clipboard.GetText, vbNewLine, vbCr) 'Replace carriage return with the correct one
       .Col = 1            'Just to remove that blue selection from Flexgrid
       .Redraw = True      'Now draw
   End With
 
   xlObject.DisplayAlerts = False 'To avoid "Save woorkbook" messagebox
   'Close Excel
   xlWB.Close
   xlObject.Application.Quit
   Set xlWB = Nothing
    Set xlObject = Nothing
 
 
 
 
     End If
    End With
 
    Exit Sub
 
 
 
MyErrHandler:
    Err.Clear