lecture date externe

Bonjour,
j'aimerai lire des dates sous forme de liste basique type A1 15/01/2015, A2 20/01/2015, A3 10/02/2015 ... dans un fichier unique excel ou meme txt
et avoir une formule dans un autre fichier excel du type: Si dans la cellule A1 la date 15/01/2015 est présente dans le fichier externe alors afficher "PRÉSENT" en cellule B22
j'ai essayé de lire des données externe mais mes connaissance sont trop limité pour le faire
si vous pouvez me donner un coup de main se serai le top

Salut, peut-être que la lecture de : Lire et écrire dans les classeurs Excel fermés t'inspirera.

merci pour l'info mais je sèche
ok pour le début du code vba pour accéder a un fichier fermer
mais après je sais pas faire

Code:

---

1 2 3 4 5 6 7 8 9 10

Function Date_Extract() 'defintion variables Dim CellRef As String Dim xlsheet as worksheet set xlsheet = thisworkbook.worksheets("A") With ThisWorkbook.Worksheets("x") CellRef = .Columns(1).Find("qqchose ").Address .Range(CellRef).Offset(, 1).Value = xlsheet.range("nommecommetuveux").value End With End Function

---

tien un peu ce que tu veux mais c'est un peu vague

bonsoir
tamtam ton post ne répond en rien ni de près ni de loin a la demande ;)

il faut dire que la demande est un peu dispersée

je pense que avant de chercher a aller chercher les informations dans le fichier fermé il faudrait ce décider si fichier excel ou texte , en effet la manœuvre n'est pas la même pour les deux modes

a bon entendeur

Non on lui a proposé un fichier fermé mais honnêtement ca sert pas a grand chose....

Moi ce que comprend :

Il veux ouvrir un fichier texte : d'accord alors peut etre avec

Code:

---

cripting.fileobject

---

on peut ouvrir un fichier et faire une recherche dedan eventuellement

Mais je doute qu'il face un peu d'objet...

Ensuite il veux pouvoir faire un genrte de true false si il trouve la valeur . Mais je comprend pas trop l'interet de ne pas ouvrir le fichier ... on s'en moque un peu non?

peut etre un truc comme ca?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

sub read dim file as new scripting.filesystemobject dim MonFichierWord as scripting.textstream dim str as string Dim MyDate MyDate = ## Set MonFichierWord = file.opentextfile("lien") while MonFichierWord.atendofstream = false str = MonfichierWord.readline if instr(str,MyDate) <> 0 then "faire ce que tu veux dans un fichier ou une cellule" exit sub end if wend   MonFichierWord.close

---