Discussion :

[bru.antoine]

Bonjour,

Etrange sur certains PC j'ai cette erreur a l'execution de fonction vba excel alors que sur d'autres PC je ne l'ai pas. Les fichiers utilisées sur les différents PC sont exactement les mêmes.
C'est comme si un paramétrage d'excel ou des restrictions de droits générait ce problème.

L'idee du code est récupérer des données provenant de fichiers CVS dans un tableau excel pour faire des calculs.

La fonction s'arrête sur la ligne 19 avec erreur 13:

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
 
'Importer la longueur du filtre
Function import_lenght(chemin_fichier As String) As Double
Application.Volatile True
 
Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim NumFichier As Integer
Dim Separateur As String
 
 
    Separateur = ";"
    NumFichier = FreeFile
    Open chemin_fichier For Input As #NumFichier
    Do While Not EOF(NumFichier)
        Line Input #NumFichier, Chaine
        If InStr(Chaine, "Rod length") Then
            Ar = Split(Chaine, Separateur)
            import_lenght = Ar(1)
        End If
    Loop
    Close #NumFichier
End Function

Cette fonction est appelée elle même dans la fonction suivante ligne 15:

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
 
Sub select_file_name()
 
Dim Filename As Variant
Dim N As Integer
Dim current_row As Double
Dim Ar() As String
 
    Filename = Application.GetOpenFilename(, , , , True)
 
    If IsArray(Filename) Then
 
        For N = LBound(Filename) To UBound(Filename) ' For each file selected in GetOpenFilename Windows
        ActiveSheet.Cells(ActiveCell.Row + N - 1, 1).Value = CStr(Filename(N)) ' Save first column: name of the file
        ActiveSheet.Cells(ActiveCell.Row + N - 1, 2).Value = import_lenght(CStr(Filename(N)))
        If ActiveSheet.Cells(2, 3).Value > 0 Then
        ActiveSheet.Cells(ActiveCell.Row + N - 1, 3).Value = import_capsule_position(CStr(Filename(N)), 1)
        End If
        If ActiveSheet.Cells(2, 3).Value > 1 Then
        ActiveSheet.Cells(ActiveCell.Row + N - 1, 4).Value = import_capsule_position(CStr(Filename(N)), 2)
        End If
        If ActiveSheet.Cells(2, 3).Value > 2 Then
        ActiveSheet.Cells(ActiveCell.Row + N - 1, 5).Value = import_capsule_position(CStr(Filename(N)), 3)
        End If
        If ActiveSheet.Cells(2, 3).Value > 3 Then
        ActiveSheet.Cells(ActiveCell.Row + N - 1, 6).Value = import_capsule_position(CStr(Filename(N)), 4)
        End If
        If ActiveSheet.Cells(2, 3).Value > 4 Then
        ActiveSheet.Cells(ActiveCell.Row + N - 1, 7).Value = import_capsule_position(CStr(Filename(N)), 5)
        End If
        If ActiveSheet.Cells(2, 3).Value > 5 Then
        ActiveSheet.Cells(ActiveCell.Row + N - 1, 8).Value = import_capsule_position(CStr(Filename(N)), 6)
        End If
 
        Next N
    'ActiveSheet.Cells(ActiveCell.Row, 2).Value = "= "
    End If
 
    'Pour ne pas garder en memoire le dossier du dernier fichier saisi avec GetOpenFilename
    ChDir ActiveWorkbook.Path 'place dans le bon répertoire
 
End Sub

En pièce jointe vous trouverez mon fichier excel contenant les fonctions vba et un fichier de resultats qu'il faut selectionner après appui sur le bouton "import data files" pour lancer les fonctions vba

[illight]

Je n'ai pas ouvert tes fichiers, mais as-tu essayé de faire du pas-à-pas ?

Essaye de rajouter un debug.print sur ta chaine de caractère Chaine, car j'ai l'impression qu'elle est vide. Tu peux vérifier ? Si elle n'est pas vide, que vaut-elle ?

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
Function import_lenght(chemin_fichier As String) As Double
Application.Volatile True
 
Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim NumFichier As Integer
Dim Separateur As String
 
 
    Separateur = ";"
    NumFichier = FreeFile
    Open chemin_fichier For Input As #NumFichier
    Do While Not EOF(NumFichier)
        Line Input #NumFichier, Chaine
        debug.print Chaine
        If InStr(Chaine, "Rod length") Then
            Ar = Split(Chaine, Separateur)
            import_lenght = Ar(1)
        End If
    Loop
    Close #NumFichier
End Function

[Marc-L]

Bonjour,

mettre la ligne n°7 en commentaire pour voir …

[bru.antoine]

La variable chaine contient bien une ligne du fichier comme attendu de toute facon ar contient bien aussi la valeur attendu.

J'ai essayé de commenter ligne 7 mais cela ne change rien