Erreur : propriété ou méthode non gérée par l'objet
Bonjour le forum,
J'ai une erreur sur une macro dont je ne comprends pas l'origine. Voici mon code, + les valeurs correspondantes plus bas
Code:
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
|
'Déclaration des variables
'=========================
Dim cptFichier As Integer 'indique l'indicateur du fichier
Dim fichierMeteo As String
Dim dateFichierMeteo As Date
Dim selectionOngletQuotidien As String
Dim selectionOngletAlerte As String
Dim i As Integer
'Boucle sur tous les classeurs Météo Océ TIDE
For cptFichier = 1 To VG_Nb_Fichiers
'Cache l'application pour une exécution plus rapide
Application.ScreenUpdating = False
'Ouverture du classeur météo Océ TIDE (i)
Workbooks.Open VG_Repertoire_Fichier_Meteo & VG_Fichiers(cptFichier)
fichierMeteo = ActiveWorkbook.Name
Windows(fichierMeteo).Activate
Sheets("Feuil1").Select
'Récupération des valeurs du fichier météo
'=========================================
'Lecture de la date du fichier météo
dateFichierMeteo = Trim(Cells(LIG_METEO_DATE_TRAITEMENT, COL_METEO_DATE_TRAITEMENT).Values) |
VG_Nb_Fichiers = 1 => ne boucle qu'une fois
VG_Fichiers(cptFichier) = "Lille-290709.xls"
VG_Repertoire_Fichier_Meteo = "C:\Test\"
fichierMeteo = "Lille-290709.xls"
LIG_METEO_DATE_TRAITEMENT = 8
COL_METEO_DATE_TRAITEMENT = 3
Dans le fichier Lille-290709.xls je n'ai renseigné qu'une valeur qui est : 29/07/2009 dans la cellule C8
Et lorsque je lance ma macro j'ai une erreur sur la dernière ligne :
Code:
dateFichierMeteo = Trim(Cells(LIG_METEO_DATE_TRAITEMENT, COL_METEO_DATE_TRAITEMENT)).Values
j'obtiens le message suivant :
Erreur d'exécution'438'
Propriété ou méthode non gérée par cet objet
Je ne vois vraiment pas où se situe le problème. J'ai essayé en enlevant le "trim" en mettant la variable date en string mais ça ne résoud rien... Donc si quelqu'un à une idée...
