bonjour,

je n'arrive pas a recuperer une donnee dans une cellule qui est sur un fichier excel que j'ouvre juste avant.

voila le 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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Function excel()
 
Dim a As Integer
Dim reference As String
Dim cellule As String
 
Dim nom_fichier(1 To 50) As String, chemin_fichier As String, total As String
Dim ligne As Integer, colonne As Integer
Dim var As Boolean
 
ligne = 3
colonne = 1
 
reference = InputBox("Entrez la référence de l'équipement :", "Référence")
chemin_fichier = "C:\export_excel\"
 
For a = 1 To 50
    nom_fichier(a) = "export" & (a) & ".xls"
    total = chemin_fichier & nom_fichier(a)
    Workbooks.Open Filename:=total
    Worksheets("Feuil1").Activate
    cellule = Workbooks(nom_fichier(a)).Worksheets("Feuil1").Cells(ligne, colonne).Value
    If cellule = reference Then
        var = True
        Worksheets("Feuil1").Select
        Worksheets("Feuil1").Name = "bougie2"
    Else
        var = False
        Close
    End If
Next a
End Function
merci