Ouverture de fichier

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,
Je souhaite ouvrir un fichier qui se trouve sur un serveur, mais l'ouverture de ce fichier est une etape d'une de mes macros, ainsi le nom de ce fichier peut changer et surtout son emplacement. Le changement de nom importe peu aux vues du code par contre la position du fichier joue un role primordiale dans mon code. voici mon code:
Code:

1 2 3 4 5 6 7 8 Dossier = "V:\40 Maintenance\20 Vehicle Maintenance 1\Chargeable Repairs\Chargables" Dossierb = Dossier & year & "\additional work\" Fichier = Dir(Dossier & year & "\additional work\" & "*.xls") While Len(Fichier) > 0 Application.DisplayAlerts = False Set Wbk = Workbooks.Open(Dossierb & Fichier)
Avec ce code je ne recois pas de message d'erreur, mais la suite de mon code ne semble pas s'effectuer. Lorsque je met le dossier sur mon disque et qu'il n'y a pas de changement d'emplacement ca marche sans probleme.
Pouvez-vous m'expliquer l'erreur que je commais ?
cordiqlement

26/06/2014, 17h39
Invité

Bonjour,
quand je regarde le contennu de la variable dossier et la rédaction de ton dir rien ne m'étonne!
Et dossierb?

Au debut j' avais coder sans le dossierb mais du coup j'avais :
Code:

1 2 3 4 5 6 7 Dossier = "V:\40 Maintenance\20 Vehicle Maintenance 1\Chargeable Repairs\Chargables" Fichier = Dir(Dossier & year & "\additional work\" & "*.xls") While Len(Fichier) > 0 Application.DisplayAlerts = False Set Wbk = Workbooks.Open(Dossier & Fichier)
mais après je recevais un message d'erreur qui me disais que vba trouvait pas le fichier au niveau du "Set Wbk", du coup j'ai pensé que c'était parce que je lui donné pas le chemin complet d'ou la creation d'un dossier bis "dossierb"" pour lui donner le chemin complet du dossier
Cordialement

26/06/2014, 20h01
SfJ5Rpw8

bonsoir,

tu ne nous dit pas clairement ce que tu veux faire ...

si on essai de décoder ton code :

tu recherche si le premier fichier corresondant au filtre :

Code:

Dossier & year & "\additional work\" & "*.xls"

ensuite lors de l'ouverture , tu oublie ta variable "year"...

Code:

Set Wbk = Workbooks.Open(Dossier & Fichier)

elle est passé ou ?

Ce que je souhaite c'est ouvrir le dossier excel qui est contenue dans un dossier sur un serveur sauf que mon programme doit pouvoir prendre en compte l'année souhaité par l'utilisateur! c'est la raison de la variable year, une fois le dossier ouvert je traite des informations dedans mais cette partie du code marche du coup je vous l'ai pas joint.
je me permets de vous renvoyer au premier message plus spécialement au code suivant qui en fait partie :
Code:

1 2 3 4 5 6 7 8 9 Dossier = "V:\40 Maintenance\20 Vehicle Maintenance 1\Chargeable Repairs\Chargables" Dossierb = Dossier & year & "\additional work\" Fichier = Dir(Dossier & year & "\additional work\" & "*.xls") While Len(Fichier) > 0 Application.DisplayAlerts = False Set Wbk = Workbooks.Open(Dossierb & Fichier
cette version du code est la version la plus évolué vous vous apercevrez qu'ici le year est pris en compte grâce au dossier bis (dossierb)
J’espère avoir répondu a vos questions si ce n'est pas le cas n’hésitez pas
cordialement

26/06/2014, 20h32
SfJ5Rpw8

on ne voit pas le code

Citation:

qui ne s'exécute pas .

...

pourquoi utiliser un While ? tu as une autre instruction Dir plus loin ?
26/06/2014, 21h05
adamgg

Il peut y avoir plusieurs fichiers a fouiller dans le dossier, je posterais le code "qui ne s'execute " demain apres midi quand je serais sur mon lieu de travail.
Cordialement
26/06/2014, 21h18
SfJ5Rpw8
En attendant tu peu compléter par les lignes :
Code:

1 2 3 MsgBox Wbk.name File = dir Wend
histoire de voir si ta boucle fonctionne...
26/06/2014, 21h42
adamgg

Elle fonctionne j'utilise exactement la même synthase dans d'autre projet (excepté pour le l'emplacement)
cordialement

ce que nous nous efforçons de te dire c'est l’incohérence des instruction entre dossier et dir ou encore Open!

Code:

1
2
3
4
5
6
7
8
Dossier = "V:\40 Maintenance\20 Vehicle Maintenance 1\Chargeable Repairs\Chargables" & Year & "\additional work\"
Fichier = Dir(Dossier & "*.xls")
 
While Fichier <> ""
    Application.DisplayAlerts = False
    Set Wbk = Workbooks.Open(Dossier & Fichier)
    Fichier = Dir
Wend

Je ne comprends pas ou est l’incohérence pouvez vous me l'expliquer?
Voici le code complet:

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
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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
 
Private Sub CommandButton2_Click()
Dim Dossier As String, Fichier As String, Libele As String, Prem As String
Dim Periode As Integer, P As Integer
Dim Wbk As Workbook
Dim Ws As Worksheet
Dim Nolig As Long
Dim EndNolig As Long
Dim P1 As Long
Dim P2 As Long
Dim P3 As Long
Dim P4 As Long
Dim P5 As Long
Dim P6 As Long
Dim P7 As Long
Dim P8 As Long
Dim P9 As Long
Dim P10 As Long
Dim P11 As Long
Dim P12 As Long
Dim P13 As Long
Dim nom As String
Dim nomS As String
Dim Sheet As Integer
Dim n As Integer
Dim year As String
year = UserForm1.TextBox1.Value
If Not Worksheets(year) Is Nothing Then
Application.ScreenUpdating = False
Set Ws = ThisWorkbook.Worksheets(year)              'A adapter la feuille destination
Ws.Range("k6:k18").ClearContents
Dossier = "V:\40 Maintenance\20 Vehicle Maintenance 1\Chargeable Repairs\Chargables" & year & "\additional work\"
Fichier = Dir(Dossier & "*.xls")
While Len(Fichier) > 0
    Application.DisplayAlerts = False
    Set Wbk = Workbooks.Open(Dossier & Fichier)
    Application.DisplayAlerts = True
    n = ActiveWorkbook.Sheets.Count
 
 
        For Sheet = 1 To n Step 1
            If Not Sheets(Sheet) Is Nothing Then
                EndNolig = Sheets(Sheet).Range("U" & Rows.Count).End(xlUp).Row
                nom = Sheets(Sheet).Name
                nomS = nom
                Periode = Val(Replace(nom, "Vandalism P", ""))
 
            End If
            If Periode = 1 Then
                P1 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 2 Then
                P2 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 3 Then
                P3 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 4 Then
                P4 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 5 Then
                P5 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 6 Then
                P6 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 7 Then
                P7 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 8 Then
                P8 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 9 Then
                P9 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 10 Then
                P10 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 11 Then
                P11 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 12 Then
                P12 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 13 Then
                P13 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            End If
        Next
        Wbk.Close False
        Fichier = Dir
Wend
 
With Workbooks("Vandalism charges P8-13 to P7-14 rev 1 V3").Worksheets("2014")
    Range("K6").Value = P1
    Range("K7").Value = P2
    Range("K8").Value = P3
    Range("K9").Value = P4
    Range("K10").Value = P5
    Range("K11").Value = P6
    Range("K12").Value = P7
    Range("K13").Value = P8
    Range("K14").Value = P9
    Range("K15").Value = P10
    Range("K16").Value = P11
    Range("K17").Value = P12
    Range("K18").Value = P13
End With
End If
Set Wbk = Nothing
Set Ws = Nothing
End Sub

je ne comprend pas pourquoi ce code rempli les case de "-" alors qu'avec les instruction

Code:

1
2
3
 
Dossier = "C:\Documents and Settings\adam\Desktop\vandalism charge\VMC1\"
Fichier = Dir(Dossier & "*.xls")

il me renvoit les bon resultats.

27/06/2014, 19h22
SfJ5Rpw8

bonsoir,

déjà tu emploi allègrement les collections sheets, Range , Rows sans préciser à quel classeur ou qu'elle feuille ils appartiennent ...

précise toujours le classeur et la feuille de ces objets ou collections..

Code:

wkb.sheets(....

Code:

wkb.sheets(1).rows(.....

Bonsoir,

Histoire d'ajouter un peu de grain à moudre Voici un bout de code que j'utilise très régulièrement. Ce code ouvre une boite de dialogue pour ouvrir un fichier avec la possibilité de choisir un dossier par défaut.

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
28
29
30
31
32
33
34
35
36
37
38
39
'ouverture d'un fichier par boite FileDialog
'**********************************************************
    'Declaration d'une variable comme objet FileDialog
    Dim fd As FileDialog
 
    'Création d'un objet FileDialog comme un File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
    'Déclaration d'une variable contenant le "path" de style variant
    Dim vrtSelectedItem As Variant 'obligatoirement de type variant
 
    With fd
 
        'donner le Path initial lors de l'affichage de la boite filedialog.
        'Cela permet d'arriver directement sur le répertoire adéquat
        .InitialFileName = "D:\Moa\Travaux\en cours"
        '.InitialFileName = "H:\SAV_D-Data\Moa\Travaux\en cours"
        '.InitialFileName = "\\Ofr2014TRY\Prd2\Moa"
 
        'Utilisation de la méthode show pour afficher le File Picker de la boite de dialogue et
        '   retourne la valeur de l'action de l'utililisateur.
        If .Show = -1 Then
 
            'Step through each string in the FileDialogSelectedItems collection.
            For Each vrtSelectedItem In .SelectedItems
 
                'vrtSelectedItem est un String contenant le "path"  de chaque item sélectionne.
                'affichage du "PATH et du fichier selectionné" dans une boite message
                'MsgBox "Vous avez sélectionné : " & vrtSelectedItem
                File_Select = vrtSelectedItem
 
            Next vrtSelectedItem
 
        'Au cas ou l'utilisateur appuis sur Cancel...
        Else
            'Dans ce cas je sors.
            Exit Sub
        End If
    End With

Cela devrait résoudre au moins une partie de ton problème

@ bientôt

@ bbil
j'ai rectifie les manques de rigueur
merci pour cette remarque je tacherais d'y faire plus attention dans l'avenir

@ Igloobel
J'ai modifie le type de la variable year qui intervient dans le choix du dossier pour la transformer en variant, mon probleme persiste cependant

voici le 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
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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
Private Sub CommandButton2_Click()
Dim Dossier As String, Fichier As String, Libele As String, Prem As String
Dim Periode As Integer, P As Integer
Dim Wbk As Workbook
Dim Ws As Worksheet
Dim Nolig As Long
Dim EndNolig As Long
Dim P1 As Long
Dim P2 As Long
Dim P3 As Long
Dim P4 As Long
Dim P5 As Long
Dim P6 As Long
Dim P7 As Long
Dim P8 As Long
Dim P9 As Long
Dim P10 As Long
Dim P11 As Long
Dim P12 As Long
Dim P13 As Long
Dim nom As String
Dim nomS As String
Dim Sheet As Integer
Dim n As Integer
Dim year As Variant
Dim Wbk1 As Workbook
year = UserForm1.TextBox1.Value
Set Wbk1 = Workbooks("Vandalism charges P8-13 to P7-14 rev 1")
If Not Worksheets(year) Is Nothing Then
Application.ScreenUpdating = False
Set Ws = Wbk1.Worksheets(year)              'Choisit la feuille correspondant a l'annee choisi par l'utilisateur
Ws.Range("k6:k18").ClearContents
Dossier = "V:\40 Maintenance\20 Vehicle Maintenance 1\Chargeable Repairs\Chargables " & year & "additional work adam\"
Fichier = Dir(Dossier & "*.xls")
 
While Len(Fichier) > 0
    Application.DisplayAlerts = False
    Set Wbk = Workbooks.Open(Dossier & Fichier) ' creation d'une variable permettant l'acces au workbook "Dossier & fichier" que l'on vient d'ouvrir
    Application.DisplayAlerts = True
    n = Wbk.Sheets.Count
 
       With Wbk
        For Sheet = 1 To n Step 1
            If Not Sheets(Sheet) Is Nothing Then
                EndNolig = Sheets(Sheet).Range("U" & Rows.Count).End(xlUp).Row
                nom = Sheets(Sheet).Name
                nomS = nom
                Periode = Val(Replace(nom, "Vandalism P", ""))
            End If
            If Periode = 1 Then
                P1 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 2 Then
                P2 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 3 Then
                P3 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 4 Then
                P4 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 5 Then
                P5 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 6 Then
                P6 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 7 Then
                P7 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 8 Then
                P8 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 9 Then
                P9 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 10 Then
                P10 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 11 Then
                P11 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 12 Then
                P12 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 13 Then
                P13 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            End If
        Next
        End With
        Wbk.Close False
        Fichier = Dir
Wend
 
With Wbk1.Worksheets(year)
    Range("K6").Value = P1
    Range("K7").Value = P2
    Range("K8").Value = P3
    Range("K9").Value = P4
    Range("K10").Value = P5
    Range("K11").Value = P6
    Range("K12").Value = P7
    Range("K13").Value = P8
    Range("K14").Value = P9
    Range("K15").Value = P10
    Range("K16").Value = P11
    Range("K17").Value = P12
    Range("K18").Value = P13
End With
End If
Set Wbk = Nothing
Set Ws = Nothing
End Sub

merci
Cordialement

30/06/2014, 12h57
Igloobel

Salut

Citation:

J'ai modifie le type de la variable year qui intervient dans le choix du dossier pour la transformer en variant, mon probleme persiste cependant

Je me semble que Year est un mot reservé change Year par Anne ou Anee ou Annee_Lue, Bref un nom sûr non connu.
30/06/2014, 13h23
adamgg

J'ai essaye mais ca n'a rien change le classeur excel dans lequel je souhaite recuperer des informations ne s'ouvre toujours pas
Cordialement
30/06/2014, 18h09
SfJ5Rpw8

Citation:

Envoyé par adamgg

j'ai rectifie les manques de rigueur
merci pour cette remarque je tacherais d'y faire plus attention dans l'avenir

c'est toujours pas le cas dans ton dernier code tu as encore des objet "sheets" non préfixés par le classeur.. des range sans non préfixés par une feuille

Code:

If Not Sheets(Sheet) Is Nothing Then

Code:

Range("K6").Value = P1

il faut abandonner cette pratique hasardeuse qui consiste à travailler sur la feuille ou le classeur actif en espérant qu'avec de la chance lorsque tu écris

Code:

Range("K6").Value = P1

la bonne feuille du bon classeur est active pour ta session d'excel ...
30/06/2014, 18h26
adamgg

Citation:

Envoyé par bbil

c'est toujours pas le cas dans ton dernier code tu as encore des objet "sheets" non préfixés par le classeur.. des range sans non préfixés par une feuille

Code:

Range("K6").Value = P1

la bonne feuille du bon classeur est active pour ta session d'excel ...

le with n'assure-t-il pas la localisation ici ?
30/06/2014, 20h22
SfJ5Rpw8
Citation:

Envoyé par adamgg

le with n'assure-t-il pas la localisation ici ?

regarde l'aide en ligne de with (touche :f1:) ... il faut placer un "point" devant tous tes ranges et le "with" remplace ce point par la clause que tu lui passe en paramètre..
Code:

1 2 With Wbk1.Worksheets(year) .Range("K6").Value = P1

Merci pour les explications, voici le nouveau 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
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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
Private Sub CommandButton2_Click()
Dim Dossier As String, Fichier As String, Libele As String, Prem As String
Dim Periode As Integer, P As Integer
Dim Wbk As Workbook
Dim Ws As Worksheet
Dim Nolig As Long
Dim EndNolig As Long
Dim P1 As Long
Dim P2 As Long
Dim P3 As Long
Dim P4 As Long
Dim P5 As Long
Dim P6 As Long
Dim P7 As Long
Dim P8 As Long
Dim P9 As Long
Dim P10 As Long
Dim P11 As Long
Dim P12 As Long
Dim P13 As Long
Dim nom As String
Dim nomS As String
Dim Sheet As Integer
Dim n As Integer
Dim annee As Variant
Dim Wbk1 As Workbook
annee = UserForm1.TextBox1.Value
Set Wbk1 = Workbooks("Vandalism charges P8-13 to P7-14 rev 1 V2")
If Not Worksheets(annee) Is Nothing Then
Application.ScreenUpdating = False
Set Ws = Wbk1.Worksheets(annee)              'Choisit la feuille correspondant a l'annee choisi par l'utilisateur
Ws.Range("k6:k18").ClearContents
Dossier = "V:\40 Maintenance\20 Vehicle Maintenance 1\Chargeable Repairs\Chargables " & annee & "additional work adam\"
Fichier = Dir(Dossier & "*.xls")
 
While Len(Fichier) > 0
    Application.DisplayAlerts = False
    Set Wbk = Workbooks.Open(Dossier & Fichier) ' creation d'une variable permettant l'acces au workbook "Dossier & fichier" que l'on vient d'ouvrir
    Application.DisplayAlerts = True
    n = Wbk.Sheets.Count
 
       With Wbk
        For Sheet = 1 To n Step 1
            If Not Sheets(Sheet) Is Nothing Then
                EndNolig = Wbk1.Sheets(Sheet).Range("U" & Rows.Count).End(xlUp).Row
                nom = Wbk1.Sheets(Sheet).Name
                nomS = nom
                Periode = Val(Replace(nom, "Vandalism P", ""))
            End If
            If Periode = 1 Then
                P1 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 2 Then
                P2 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 3 Then
                P3 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 4 Then
                P4 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 5 Then
                P5 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 6 Then
                P6 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 7 Then
                P7 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 8 Then
                P8 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 9 Then
                P9 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 10 Then
                P10 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 11 Then
                P11 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 12 Then
                P12 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            ElseIf Periode = 13 Then
                P13 = Wbk.Worksheets(nomS).Range("U" & EndNolig).Value
            End If
        Next
        End With
        Wbk.Close False
        Fichier = Dir
Wend
 
With Wbk1.Worksheets(annee)
    .Range("K6").Value = P1
    .Range("K7").Value = P2
    .Range("K8").Value = P3
    .Range("K9").Value = P4
    .Range("K10").Value = P5
    .Range("K11").Value = P6
    .Range("K12").Value = P7
    .Range("K13").Value = P8
    .Range("K14").Value = P9
    .Range("K15").Value = P10
    .Range("K16").Value = P11
    .Range("K17").Value = P12
    .Range("K18").Value = P13
End With
End If
Set Wbk = Nothing
Set Ws = Nothing
End Sub

Ce code n'arrive toujours pas a trouver et ouvrir le fichier.
Cordialement

Voir 40 message(s) de cette discussion en une page