Discussion :

[afssaLERH]

bonjour,

j'ai trouvé dans un livre la fonction suivante :

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
Function ObtenirValeur(chemin, fichier, feuille, ref)
'retrouve une valeur dans un classeur fermé
Dim Arg As String
 
's'assure de l'existence du fichier
If Right(chemin, 1) <> "/" Then chemin = chemin & "/"
If Dir(chemin & fichier) = "" Then
    valeurObtenue = "fichier non trouvé"
    Exit Function
End If
 
'crée l'argument
Arg = "'" & chemin & "[" & fichier & "]" & feuille & "'!" & "/"
Range 'ref).Range("A1").Address(, , x1R&C&)
 
'execute une maccro xlm
valeurObtenue = ExecuteExcel4Macro(Arg)
 
 
End Function

qui permet de recuperer une valeure dans un fichier fermé avec chemin: le lecteur et le chemin vers le fichier fermé
fichier le nom de fichier
feuille le nom de la feuille de calcul
et ref la reference de la cellule...

Seulement il doit y avoir une légère erreur au niveau de Range 'ref).Range("A1").Address(, , x1R&C&) car cela met en commentaire et donc cela bug...

Merci de m'aider à corriger ou de me soumettre une autre fonction qui poura recuperer dans un classeur fermé...

Lilou

[ouskel'n'or]

Regarde ici, "IV-C. Modifier les enregistrements"

[afssaLERH]

ok merci.
mais ça marche même si ce n'est pas une BDD mais un simple fichier excel...

Cordialement,

Lilou

[SilkyRoad]

bonsoir


Tu peux tester cette adaptation:

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
Sub Test()
    MsgBox ObtenirValeur("C:\Documents and Settings\mimi\dossier", _
                        "NomClasseur.xls", _
                        "Feuil1", _
                        "B1")
End Sub
 
 
Function ObtenirValeur(Chemin, Fichier, Feuille, Ref)
    'retrouve une valeur dans un classeur fermé
    Dim Arg As String
 
    If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
 
    's'assure de l'existence du fichier
    If Dir(Chemin & Fichier) = "" Then
        ObtenirValeur = "fichier non trouvé"
        Exit Function
    End If
 
    'crée l'argument
    Arg = "'" & Chemin & "[" & Fichier & "]" & Feuille & "'!" & _
        Range(Ref).Range("A1").Address(, , xlR1C1)
 
    'execute une maccro xlm
    ObtenirValeur = ExecuteExcel4Macro(Arg)
End Function

bonne soirée
michel

[afssaLERH]

merci beaucoup ça marche.
le problème que j'ai desormais c'est sur la valeure retournée car c'est une cellule de date. Je dois regarder si la ligne est vide ou pas j'ai donc le morceau de code suivant :

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
Function rechercheLigneVide(Chemin, Fichier, Feuille) As Integer
 
Dim pas As Integer 'pour incrementer la boucle for
Dim ligneTrouvee As Boolean 'pour savoir si le resultat a été trouvé ou non
ligneTrouvee = False 'on initialise le resultat à faux
pas = 1 'on incremente de +1
 
'regarde quelle est la premiere ligne vide en commancant de la ligne 8
For i = 1 To 500 Step pas
Ref = "A" & i
'si on en encore pas trouver de ligne vide
If ligneTrouvee = False Then
    'on regarde si la ligne en cours est vide
    valeurATester = ObtenirValeur(Chemin, Fichier, Feuille, Ref)
    If valeurATester = 0 Then
        'on renvoie le numero de ligne
        'ligneVide = i
        rechercheLigneVide = i
        'on met ligne trouvee à vraie
        ligneTrouvee = True
    End If
End If
Next
rechercheLigneVide = 0
 
End Function

j'ai essayer If valeurATester = " " Then
If valeurATester = 0 Then
et If valeurATester = 0/1/1900 Then
mais rien ne semble fonctionner... comment est_ce que je peux lui dire si il n'y a pas de date entrée faire...

Merci
Lilou

[fring]

j'ai essayer If valeurATester = " " Then

Bonjour, ne pas mettre d'espace entre les guillemets

Code :

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

If valeurATester = "" Then

[afssaLERH]

Merci mais ça ne marche toujours pas...
en fait lorsque c'est vide il me retourne 00/01/1900 et je ne sait pas pourquoi car la ligne de mon fichier est vide...

[afssaLERH]

c'est bon ça marche.
Merci