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
VG_Nb_Fichiers = 1 => ne boucle qu'une 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
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_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 :
j'obtiens le message suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part dateFichierMeteo = Trim(Cells(LIG_METEO_DATE_TRAITEMENT, COL_METEO_DATE_TRAITEMENT)).Values
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...
Partager