Discussion :

[Overcrash]

Bonjour,

J'essaye d'ouvrir un fichier Excel et a chaque fois cela bloque je ne comprend pas pourquoi.

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
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
Sub Explorer(p_strFichier As String, p_strCheminDepart As String, Optional p_oFld As Scripting.Folder)
 
    Dim j As Double
    Dim tableau_recap(80, 2) As Variant
    j = 0
 
 
    On Error GoTo err
 
        Dim oFSO As Scripting.FileSystemObject
        Dim oFld As Scripting.Folder
        Dim oFl As File
 
        If p_oFld Is Nothing Then
            'Instanciation du FSO
            Set oFSO = New Scripting.FileSystemObject
            'Accède au répertoire du départ de recherche
            Set p_oFld = oFSO.GetFolder(p_strCheminDepart)
        End If
        Set oFl = p_oFld.Files(p_strFichier)
 
        'MsgBox oFl.Path
 
'''''''''''''''*******************************
        'Traitement a faire quand le fichier est trouvé
 
    Dim wb As Workbook
    Dim ws As Worksheet
 
    Dim i As Long
    Dim adresse As String
    Dim continue As Boolean
 
  '  MsgBox oFl.Path
 
    MsgBox oFl.Path
 
 
    Set wb = Workbooks.Open(oFl.Path) ' Path contient ceci par exemple : "\\serveur2\Exploitation\Dossier SI\APP - Appli C2E\TODO_ List.xls"
    Set wb = Workbooks
    Set ws = wb.Worksheets(1)
 
 
    i = 0
    continue = 1
    While (continue)
        If ws.Cells(i, 1) <> Empty Then
            tableau_recap(j, 0) = ws.Cells(i, 1)
            tableau_recap(j, 1) = ws.Cells(i, 2)
            tableau_recap(j, 2) = ws.Cells(i, 3)
 
 
            MsgBox tableau_recap(j, 0)
            MsgBox tableau_recap(j, 1)
            MsgBox tableau_recap(j, 2)
 
            j = j + 1
        Else
            'quitte la boucle
            continue = 0
        End If
        i = i + 1
    Wend
 
 
    wb.Close Savechanges:=False ' fermeture du fichier
 
    'ActiveWindow.Close Savechanges:=False ' ne pas sauver les changements
    'Workbooks(nomfichier).Close Savechanges:=False
 
 
 
'''''''''''''''*******************************
 
 
 
SubDir:
    'Explore les sous-dossiers
        For Each oFld In p_oFld.SubFolders
            Explorer p_strFichier, p_strCheminDepart, oFld
            DoEvents
        Next oFld
 
fin:
        Exit Sub
 
err:
        Select Case err.Number
            Case 53: Resume SubDir
            Case Else:
                MsgBox "Erreur inconnue"
                Resume fin
        End Select
 
End Sub

A chaque fois que je fais une ouverture il me soulève une erreur, je ne sais si je m'y prend bien pour ouvrir le fichier

[Gorfael]

Salut Overcrash3181 et le forum

J'essaye d'ouvrir un fichier Excel et a chaque fois cela bloque je ne comprend pas pourquoi.

Nous non plus. Où ? Quelle ligne ? Il peut y avoir des tas de possibilités d'erreur, même avec un code correct, ça ne donne pas envie de perdre du temps sur un problème qu'on peut ne pas avoir.
Lance ta macro en pas-à-pas et regarde tes variables pour vérifier leurs contenus.

Une petit remarque : pas la peine d'émailler ton code de déclarations en fonction d'un test : Toutes les variables sont définieslors d'un premier passage, et leurs places réservées en mémoire avant d'exécuter le moindre code. Regroupe-les toutes en début de macro, c'est plus facile à retrouver la déclaration.
A+

[Overcrash]

Pour la remarque je le fais de suite merci

L'erreur vient de cette ligne en particulier :

Code :

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

    Set wb = Workbooks.Open(oFl.Path)

j'ai bien entendu exécuter le code pas a pas et tester le contenu de mes variables, j'ai même remplacer les variables par des chemins en dur afin de tester.

Lorsque que j'enleve la gestion d'erreur je tombe sur l'erreur suivante :

Erreur d'exécution 424
Objet requis

J'ai essayer ceci aussi :

Code :

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

    Set wb = Application.Workbooks.Open(oFl.Path)

Mais j'ai toujours le même probleme.

[mercatog]

Code :

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

msgbox oFl.Path

ça donne quoi?
le nom complet du fichier à ouvrir ou le chemin d'accès complet au fichier (sans le fichier)?

[Overcrash]

Avec le fichier comme ceci : "\\serveur2\Exploitation\Dossier SI\APP - Appli C2E\TODO_ List.xls"

J'ai résolu une partie du probleme, je pense, je vous poste ca demain

[Overcrash]

plop,

Voici les améliorations que j'ai réussi a apporter.

Code :

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

1
2
3
4
5
6
7
8
9
    Set workb = Application.Workbooks.Open("\\serveur2\Exploitation\Dossier SI\APP - Appli paie\TODO_Appli_paie.xls")
    Set workb = Application.Workbooks
    Set works = Application.Worksheets(1)
 
    i = 0
    continue = 1
    While (continue)
        If works.Cells(i, 1) <> Empty Then
              '....

Il me dit désormais que la méthode Cells de

Code :

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

   If works.Cells(i, 1) <> Empty Then

est introuvable j'ai du mal a comprendre pourtant en Vb j'y arrivais bien



Edit: Ha bas c'est résolu comme quoi la nuit porte conseil, j'avais oublier que les premières cellule était 1,1 et non pas 0,0, merci a tous