BenHarber
XLDnaute Occasionnel
Bonjour le Forum,
Je viens d'utiliser une astuce pour lancer dans un fichier AAAA.xls un traitement qui dépend d'une date présente dans un fichier BBBB.xls fermé (cellule nommée "monNom")
AAAA.xls et BBBB.xls sont dans le même répertoire). Si la date présente dans BBBB.xls est + récente que celle de AAA.xls alors je lance le traitement, sinon je passe.
Cette astuce fonctionne, mais je la trouve un peu lourdingue : elle consiste à entrer dans AAAA.xls une formule dans la cellule "A3", de comparer la valeur de "A3" à une date figurant en "A2", comme ça :
chemin = ThisWorkbook.Path & "\"
wbkSource = "Toto.xls"
ThisWorkbook.Sheets(1).Range("A3") = "='" & chemin & wbkSource & "'!monNom"
'Pour ne pas laisser le lien
ThisWorkbook.Sheets(1).Range("A3") = ThisWorkbook.Sheets(1).Range("A3").Value
If ThisWorkbook.Sheets(1).Range("A2") < ThisWorkbook.Sheets(1).Range("A3") Then
je lance le traitement :
Ma question est la suivante : au lieu d'écrire une formule en "A3", est-ce que je peux récupérer directement dans une variable date la valeur de la cellule "monNom" du fichier fermé BBBB.xls ?
Si oui, quelle serait la syntaxe ?
Merci d'avance pour vos iddées et suggestions !
BH
Je viens d'utiliser une astuce pour lancer dans un fichier AAAA.xls un traitement qui dépend d'une date présente dans un fichier BBBB.xls fermé (cellule nommée "monNom")
AAAA.xls et BBBB.xls sont dans le même répertoire). Si la date présente dans BBBB.xls est + récente que celle de AAA.xls alors je lance le traitement, sinon je passe.
Cette astuce fonctionne, mais je la trouve un peu lourdingue : elle consiste à entrer dans AAAA.xls une formule dans la cellule "A3", de comparer la valeur de "A3" à une date figurant en "A2", comme ça :
chemin = ThisWorkbook.Path & "\"
wbkSource = "Toto.xls"
ThisWorkbook.Sheets(1).Range("A3") = "='" & chemin & wbkSource & "'!monNom"
'Pour ne pas laisser le lien
ThisWorkbook.Sheets(1).Range("A3") = ThisWorkbook.Sheets(1).Range("A3").Value
If ThisWorkbook.Sheets(1).Range("A2") < ThisWorkbook.Sheets(1).Range("A3") Then
je lance le traitement :
Ma question est la suivante : au lieu d'écrire une formule en "A3", est-ce que je peux récupérer directement dans une variable date la valeur de la cellule "monNom" du fichier fermé BBBB.xls ?
Si oui, quelle serait la syntaxe ?
Merci d'avance pour vos iddées et suggestions !
BH