Forum Clubic

Macro excel sous Execl 2003 - Ouverture de fichier sous VB EXCEL 2003

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?

:??:

j’ai exactement le meme probleme avec un code similaire
sauf que c’est deux fois le meme exel version 2000
et j’ai pas de solution

Y a-t-il un message d’erreur, si oui c’est quoi?