Re : Verification d'une affectation
Ha oui désolé c'est vrai que j'ai pas été très précis...
Alors voici le debut de mon code:
Option Explicit
Option Base 1
Function recherche(donnée As string) As integer
Dim x As Variant
Dim i As integer
x= [A1:Z1].Find(What:=donnée, lookIn:=xlformula, LookAt:=xlPart, SearchOrder:=xlByColumns).Adress
recherche = Range(x).Column
End Function
Sub Tableau()
Dim A As String
Dim i As integer, x As integer
Dim Chemin As Variant, fs As Variant
Dim nomfichier As String, Fichierlu As String, Fenêtrelu As String
chemin = ThisWorkbook.Path & "\Données\"
nomfichier = ActiveWorkbook.Name
Set fs = Application.FileSearch
With fs
.LookIn = chemin
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
fichierlu = .FoundFiles(i)
fenêtrelue = ActiveWorkbook.Name
A='ISIN'
x=recherche(A)
If Not x is Null then
Voilà ça ressemble à ça... La Macro doit parcourir un dossier et me chercher la colonne ISIN dans chaque feuille Excel du dossier.
Si vous avez besoin d'autres précisions...