MessageBox Parcourir fichier

**blinkman04** · 03/06/2013, 16h02

Bonjour tout le monde,

Après quelques recherches je n'ait pas réussi a trouver ce dont j'avais besoin, mais mon problème est simple ^^

J'ai ce code la :

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Sub Macro1()
'
' Macro1 Macro
'
 
'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;Macintosh HD:Users:Desktop:Formatage donées:releve (16).csv" _
        , Destination:=Range("A1"))
        .Name = "releve (16)"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlMacintosh
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .Refresh BackgroundQuery:=False
        .UseListObject = False
    End With
    Range("A1:I24").Select
    Selection.Delete Shift:=xlToLeft
    Range("J1:J25").Select
    Selection.Delete Shift:=xlToLeft
    Range("E1:H25").Select
    Range("H25").Activate
    Selection.Delete Shift:=xlToLeft
    Range("B1:C25").Select
    Selection.Delete Shift:=xlToLeft
    Dim i As Integer
Dim j As Integer
Dim longueur As Long
Dim longueur2 As Long
longueur2 = 100
longueur = 100
For i = longueur To 1 Step -1
    If IsEmpty(Cells(i, 2)) Or IsEmpty(Cells(i, 3)) Then
        Cells(i - 1, 2).Value = Cells(i - 1, 2).Value & vbCr & Cells(i, 2).Value
        Rows(i).Delete
    End If
Next i
 
For j = longueur To 1 Step -1
    If Cells(j, 2) = "                               " Then
        Rows(j).Delete
    End If
Next j
    ChDir "Macintosh HD:Users:Desktop:"
End Sub

Ce script m'arrange a m'a sauce des classeur pour que je suis puisse les réutiliser.
Et comme vous pouvez le voir au début de mon code j'ai un chemin relatif a un fichier que j'importe dans le classeur ouvert, je cherche a créer une messageBox qui demande a l'utilisateur de parcourir dans l'ordinateur le fichier, pour mettre dynamiquement le chemin de ce fichier dans le code. Une fois validé la messageBox se ferme et lance le reste du code.

Je débute en VBA (et en exel d'ailleurs ahah) mais la j'avoue que je bloque vraiment, si vous avez des indice a me donner...je suis preneur ! Parce que la a part faire des fenêtres avec des Oui ou non j'ai pas réussi a faire grand choses

**Soraphiroth** · 03/06/2013, 16h17

rajoute ça juste au début de ton code :

Code :

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

1
2
3
4
5
6
7
8
    Dim Fichier as String
    Dim selec As FileDialog                                             'création de la boite de dialogue
    Set selec = Application.FileDialog(msoFileDialogOpen)               'préparation de la boite de dialogue
    selec.Title = "Sélectionnez le fichier à utiliser"
    selec.AllowMultiSelect = False                                      'on ne souhaite qu'un seul fichier
    selec.Filters.Add "fichiers CSV", "*.csv"                 'on ne prend que les fichiers CSV
    selec.Show                                                          'affichage de la boite
    Fichier = selec.SelectedItems(1)

et u tu n'as plus qu'à changer :

Code :

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

With ActiveSheet.QueryTables.Add(Connection:= Fichier, Destination:=Range("A1"))

**blinkman04** · 03/06/2013, 16h25

Comme ceci ?

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Sub Macro1()
'
' Macro1 Macro
'
 
'
Dim Fichier As String
    Dim selec As FileDialog                                             'création de la boite de dialogue
    Set selec = Application.FileDialog(msoFileDialogOpen)               'préparation de la boite de dialogue
    selec.Title = "Sélectionnez le fichier à utiliser"
    selec.AllowMultiSelect = False                                      'on ne souhaite qu'un seul fichier
    selec.Filters.Add "fichiers CSV", "*.csv"                 'on ne prend que les fichiers CSV
    selec.Show                                                          'affichage de la boite
    Fichier = selec.SelectedItems(1)
    With ActiveSheet.QueryTables.Add(Connection:=Fichier, Destination:=Range("A1"))
        .Name = "releve (16)"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlMacintosh
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .Refresh BackgroundQuery:=False
        .UseListObject = False
    End With
    Range("A1:I24").Select
    Selection.Delete Shift:=xlToLeft
    Range("J1:J25").Select
    Selection.Delete Shift:=xlToLeft
    Range("E1:H25").Select
    Range("H25").Activate
    Selection.Delete Shift:=xlToLeft
    Range("B1:C25").Select
    Selection.Delete Shift:=xlToLeft
    Dim i As Integer
Dim j As Integer
Dim longueur As Long
Dim longueur2 As Long
longueur2 = 100
longueur = 100
For i = longueur To 1 Step -1
    If IsEmpty(Cells(i, 2)) Or IsEmpty(Cells(i, 3)) Then
        Cells(i - 1, 2).Value = Cells(i - 1, 2).Value & vbCr & Cells(i, 2).Value
        Rows(i).Delete
    End If
Next i
 
For j = longueur To 1 Step -1
    If Cells(j, 2) = "                               " Then
        Rows(j).Delete
    End If
Next j
    ChDir "Macintosh HD:Users:Desktop:"
End Sub

Parce que la il me dit "Compile error : User-defined type not define" ?