Discussion :

[chunisy]

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

[kiki29]

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

[chunisy]

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

[tamtam64]

Code :

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

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

[patricktoulon]

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

[tamtam64]

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 :

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

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 :

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
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