Salut à tous,
j’ai 1 pb avec ma macro excel développée sous ecel 2000 et qui ne fonctionne pas sous excel 2003. Pourtant les commandes sont les mêmes :
Voici mon code :
Public Function Lecture(ByVal fichier As String)
’
On Error GoTo ERREUR
’
'–> Si le fichier existe, on le supprime
FileDateTime (fichier)
On Error GoTo 0
’
'–> Ouverture du fichier
Sheets(1).Select
Dim line, temp As String
Dim col() As String
Dim i, j As Integer
i = 4 ’ ligne de debut
Dim fs, a As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(fichier, 1, False)
Do While a.AtEndOfStream <> True
line = a.ReadLine
line = Strings.Replace(line, vbTab, " ")
Do
temp = Strings.Replace(line, " ", " ")
If (temp = line) Then
Exit Do
End If
line = temp
Loop Until False
col = Split(line, " ")
For j = 0 To 7
Cells(i, j + 1).Select
ActiveCell.FormulaR1C1 = col(j)
Next
i = i + 1
Loop
’
'–> Fermeture du fichier
a.Close
ça plante au niveau de la ligne fs.open car le create object ne contient aucune donnée.
Ce code fonctionne très bien avec execl 2000 et plante avec Excel 2003.
Il me met le message d’erreur suivant :
erreur d’exécution ‘91’:
variable objet ou variable de bloc with non définie.
Quelqu’un peut-il m’aider?
:??: