Discussion :

[Sierra]

Bonjour,

je viens de parcourir le forum depuis un certain temps pour trouver une solution à mon problème mais sans succès.

La procédure suivante est dans un module Access et doit lire une valeur dans un fichier Excel. Curieusement, une erreur 1004 "La méthode 'Range' de l'objet '_Global' a échoué" se produit une fois sur deux (pas à chaque fois !).

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
Public Function PrixALire()
    Dim xlApp As New Excel.Application
    Dim xlClasseur As Workbook
    Dim maFeuille As Worksheet
    Dim maPlage As Range
 
    Dim strChemin As String
    strChemin = "X:\Dossier\fichier.xls"
 
    Set xlClasseur = xlApp.Workbooks.Open(strChemin)
    Set maFeuille = xlClasseur.Worksheets("Deplacements")
    Set maPlage = Range("Somme_Deplmt")
 
    xlApp.Visible = False
 
    If maPlage.Value <= 2000 Then
        PrixALire = 0.32
    Else
        PrixALire = 0.39
    End If
 
    xlClasseur.Close
    xlApp.Quit
 
    Set maPlage = Nothing
    Set xlClasseur = Nothing
    Set maFeuille = Nothing
 
End Function

Je précise que quand je remplace la ligne Range("Somme_Deplmt") par Cells(74, 3), le résultat est un peu plus fiable, c'est-à-dire l'erreur se produit moins souvent mais apparaît aussi finalement.

Merci pour l'aide

[Pierre Fauconnier]

Bonjour et bienvenue.

Il se peut que Déplacements ne soit pas la feuille active à l'ouverture du fichier. Or, si Somme_Deplmt est une plage de feuille et non de classeur, tu auras un problème.

Essaie avec

Code :

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

Set maPlage = maFeuille.Range("Somme_Deplmt")

[Sierra]

Les premiers essais fonctionnent sans erreur. Mais comme l'erreur n'apparaissait pas à chaque coup (bien qu'elle se produisait le plus souvent au 1er ou 2e appel de la procédure), je me donnerai quelques jours pour un avis final.

Merci beaucoup, je te tiendrai au courant

MAJ du 3/4/10 :

Je confirme. Ça fonctionne sans problème. Encore merci.