Discussion :

[Pimpampoum]

Bonsoir,

Les variables "miseajour_bd" et "miseajour_mep" fonctionnaient très bien, mais depuis quelques jours j'obtiens un message d'erreur run-time error '9'. Je précise que le "classeur_2" est ouvert et que depuis le module j'ouvre le "classeur_1". L'erreur apparaît sur la ligne ou je déclare la valeur de la variable "miseajour_bd" (si je mets un remark, l'erreur saute sur l'autre variable). Les deux classeurs sont dans le même répertoire "test". Merci de votre aide.

Voici un bout du code:

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
Sub Import_AR()
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim l As Integer
 
    Dim flag As String
 
    Dim miseajour_bd As Date
    Dim miseajour_mep As Date
 
    'Importe les données
    Workbooks.Open Filename:= _
        "C:\test\classeur_1.xls"
 
    miseajour_bd = Format(CDate(Workbooks("classeur_1").Worksheets("feuille_1").Range("AZ2").Value), "dd/mm/yyyy")
    miseajour_mep = Format(CDate(Workbooks("classeur_2").Worksheets("feuille_1").Range("H3").Value), "dd/mm/yyyy")

[AlainTech]

Bonjour,

Tes 2 variables sont typées Date.
Pourquoi utilises-tu un Format (qui renvoie un String) pour leur assigner une valeur?

De plus, si dans le classeur_1, ce sont des dates, pourquoi utiliser CDate?

[Pimpampoum]

Bonjour,

J'utilise un excel en anglais, si je n'utilise pas format et cdate combinés je récupéré bien de dates mais en format mm/jj/aaaa ce qui n'est pas bon pour moi. En utilisant format seul ce n'est plus une date, c'est pour ça que je le combine avec cdate.
Ce qui me rend dingue c'est qu'il y a une semaine le même code fonctionnait à merveille.

[Pimpampoum]

Bonjour,

J'ai resolu mon problème en ajoutant l'extension .xls chaque fois que j'utilise l'instruction Workbooks :

Code :

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

miseajour_bd = Format(CDate(Workbooks("classeur_1.xls").Worksheets("feuille_1").Range("AZ2").Value), "dd/mm/yyyy")

Code :

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

miseajour_mep = Format(CDate(Workbooks("classeur_2.xls").Worksheets("feuille_1").Range("H3").Value), "dd/mm/yyyy")