recup d'une valeur ...

michdenis

07/05/2004 à 03:00

Bonjour Patrick,

Essaie ceci :

Tu dois renseigner les variables selon ton application...
Cette procédure suppose que le nom de chaque feuille de classeur où se trouve la cellule H27 est le même.
A défaut d'avoir le même nom (feuille du classeur), la feuille doit avoir la même position (index) dans le classeur. Si
tel est le cas, il y moyen de modifier très légèrement la macro pour tenir compte de cette éventualité.

'à copier dans un module standard

'-------------------------------------------------
Sub SommeDesH7()

Dim A As Integer, Chemin As String
Dim NomFichier As String, NomFeuille As String
Dim Cellule, LaSomme As Double, Data As Variant

'Variable à Renseigner selon ton application...

Chemin = "c:Excel"
NomFeuille = "Feuil1"
Cellule = "H27"

With Application.FileSearch
.NewSearch
.LookIn = Chemin
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For A = 1 To .FoundFiles.Count
NomFichier = Split(.FoundFiles(A), "") _
(UBound(Split(.FoundFiles(A), "")))
Data = GetValue(Chemin, NomFichier, NomFeuille, Cellule)
If IsNumeric(Data) Then
LaSomme = LaSomme + Data
End If
Next
End If
End With

MsgBox "La somme est : " & LaSomme

End Sub

'Fonction de John Walkenbach....
'-------------------------------

Public Function GetValue(ByVal path, ByVal file, _
ByVal sheet, ByVal ref) As Variant

Dim Arg As String

If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If

Arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Address(, , xlR1C1)
GetValue = Application.ExecuteExcel4Macro(Arg)
DoEvents

End Function
'-------------------------------

Salutations!

"Patrick" a écrit dans le message de
news:97f401c433ae$45033260$
Bonsoir à tous,

Que faut il faire pour récupérer les contenus de la case
H27 dans un répertoire ou il y a des fichiers de noms
différents mais ils ont tous une valeur en H27, j'aimerai
additionner par exemple toutes les cellules H27 dans les
fichiers .....

Est ce possible ? c'est dur ??

D'avance un grand merci à tous

Bonne soirée

Patrick

Bonjour Patrick,

Essaie ceci :

Tu dois renseigner les variables selon ton application...
Cette procédure suppose que le nom de chaque feuille de classeur où se trouve la cellule H27 est le même.
A défaut d'avoir le même nom (feuille du classeur), la feuille doit avoir la même position (index) dans le classeur. Si
tel est le cas, il y moyen de modifier très légèrement la macro pour tenir compte de cette éventualité.

'à copier dans un module standard

'-------------------------------------------------
Sub SommeDesH7()

Dim A As Integer, Chemin As String
Dim NomFichier As String, NomFeuille As String
Dim Cellule, LaSomme As Double, Data As Variant

'Variable à Renseigner selon ton application...

Chemin = "c:Excel"
NomFeuille = "Feuil1"
Cellule = "H27"

With Application.FileSearch
.NewSearch
.LookIn = Chemin
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For A = 1 To .FoundFiles.Count
NomFichier = Split(.FoundFiles(A), "") _
(UBound(Split(.FoundFiles(A), "")))
Data = GetValue(Chemin, NomFichier, NomFeuille, Cellule)
If IsNumeric(Data) Then
LaSomme = LaSomme + Data
End If
Next
End If
End With

MsgBox "La somme est : " & LaSomme

End Sub

'Fonction de John Walkenbach....
'-------------------------------

Public Function GetValue(ByVal path, ByVal file, _
ByVal sheet, ByVal ref) As Variant

Dim Arg As String

If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If

Arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Address(, , xlR1C1)
GetValue = Application.ExecuteExcel4Macro(Arg)
DoEvents

End Function
'-------------------------------

Salutations!

"Patrick" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:97f401c433ae$45033260$a501280a@phx.gbl...
Bonsoir à tous,

Que faut il faire pour récupérer les contenus de la case
H27 dans un répertoire ou il y a des fichiers de noms
différents mais ils ont tous une valeur en H27, j'aimerai
additionner par exemple toutes les cellules H27 dans les
fichiers .....

Est ce possible ? c'est dur ??

D'avance un grand merci à tous

Bonne soirée

Patrick

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour Patrick,

Essaie ceci :

Tu dois renseigner les variables selon ton application...
Cette procédure suppose que le nom de chaque feuille de classeur où se trouve la cellule H27 est le même.
A défaut d'avoir le même nom (feuille du classeur), la feuille doit avoir la même position (index) dans le classeur. Si
tel est le cas, il y moyen de modifier très légèrement la macro pour tenir compte de cette éventualité.

'à copier dans un module standard

'-------------------------------------------------
Sub SommeDesH7()

Dim A As Integer, Chemin As String
Dim NomFichier As String, NomFeuille As String
Dim Cellule, LaSomme As Double, Data As Variant

'Variable à Renseigner selon ton application...

Chemin = "c:Excel"
NomFeuille = "Feuil1"
Cellule = "H27"

With Application.FileSearch
.NewSearch
.LookIn = Chemin
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For A = 1 To .FoundFiles.Count
NomFichier = Split(.FoundFiles(A), "") _
(UBound(Split(.FoundFiles(A), "")))
Data = GetValue(Chemin, NomFichier, NomFeuille, Cellule)
If IsNumeric(Data) Then
LaSomme = LaSomme + Data
End If
Next
End If
End With

MsgBox "La somme est : " & LaSomme

End Sub

'Fonction de John Walkenbach....
'-------------------------------

Public Function GetValue(ByVal path, ByVal file, _
ByVal sheet, ByVal ref) As Variant

Dim Arg As String

If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If

Arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Address(, , xlR1C1)
GetValue = Application.ExecuteExcel4Macro(Arg)
DoEvents

End Function
'-------------------------------

Salutations!

"Patrick" a écrit dans le message de
news:97f401c433ae$45033260$
Bonsoir à tous,

Que faut il faire pour récupérer les contenus de la case
H27 dans un répertoire ou il y a des fichiers de noms
différents mais ils ont tous une valeur en H27, j'aimerai
additionner par exemple toutes les cellules H27 dans les
fichiers .....

Est ce possible ? c'est dur ??

D'avance un grand merci à tous

Bonne soirée

Patrick

michdenis

07/05/2004 à 03:03

Bonjour Patrick,

Essaie ceci :

Tu dois renseigner les variables selon ton application...
Cette procédure suppose que le nom de chaque feuille de classeur où se trouve la cellule H27 est le même.
A défaut d'avoir le même nom (feuille du classeur), la feuille doit avoir la même position (index) dans le classeur. Si
tel est le cas, il y moyen de modifier très légèrement la macro pour tenir compte de cette éventualité.

'à copier dans un module standard

'-------------------------------------------------
Sub SommeDesH7()

Dim A As Integer, Chemin As String
Dim NomFichier As String, NomFeuille As String
Dim Cellule, LaSomme As Double, Data As Variant

'Variable à Renseigner selon ton application...

Chemin = "c:Excel"
NomFeuille = "Feuil1"
Cellule = "H27"

With Application.FileSearch
.NewSearch
.LookIn = Chemin
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For A = 1 To .FoundFiles.Count
NomFichier = Split(.FoundFiles(A), "") _
(UBound(Split(.FoundFiles(A), "")))
Data = GetValue(Chemin, NomFichier, NomFeuille, Cellule)
If IsNumeric(Data) Then
LaSomme = LaSomme + Data
End If
Next
End If
End With

MsgBox "La somme est : " & LaSomme

End Sub

'Fonction de John Walkenbach....
'-------------------------------

Public Function GetValue(ByVal path, ByVal file, _
ByVal sheet, ByVal ref) As Variant

Dim Arg As String

If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If

Arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Address(, , xlR1C1)
GetValue = Application.ExecuteExcel4Macro(Arg)
DoEvents

End Function
'-------------------------------

Salutations!

"Patrick" a écrit dans le message de
news:97f401c433ae$45033260$
Bonsoir à tous,

Que faut il faire pour récupérer les contenus de la case
H27 dans un répertoire ou il y a des fichiers de noms
différents mais ils ont tous une valeur en H27, j'aimerai
additionner par exemple toutes les cellules H27 dans les
fichiers .....

Est ce possible ? c'est dur ??

D'avance un grand merci à tous

Bonne soirée

Patrick

Bonjour Patrick,

Essaie ceci :

Tu dois renseigner les variables selon ton application...
Cette procédure suppose que le nom de chaque feuille de classeur où se trouve la cellule H27 est le même.
A défaut d'avoir le même nom (feuille du classeur), la feuille doit avoir la même position (index) dans le classeur. Si
tel est le cas, il y moyen de modifier très légèrement la macro pour tenir compte de cette éventualité.

'à copier dans un module standard

'-------------------------------------------------
Sub SommeDesH7()

Dim A As Integer, Chemin As String
Dim NomFichier As String, NomFeuille As String
Dim Cellule, LaSomme As Double, Data As Variant

'Variable à Renseigner selon ton application...

Chemin = "c:Excel"
NomFeuille = "Feuil1"
Cellule = "H27"

With Application.FileSearch
.NewSearch
.LookIn = Chemin
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For A = 1 To .FoundFiles.Count
NomFichier = Split(.FoundFiles(A), "") _
(UBound(Split(.FoundFiles(A), "")))
Data = GetValue(Chemin, NomFichier, NomFeuille, Cellule)
If IsNumeric(Data) Then
LaSomme = LaSomme + Data
End If
Next
End If
End With

MsgBox "La somme est : " & LaSomme

End Sub

'Fonction de John Walkenbach....
'-------------------------------

Public Function GetValue(ByVal path, ByVal file, _
ByVal sheet, ByVal ref) As Variant

Dim Arg As String

If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If

Arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Address(, , xlR1C1)
GetValue = Application.ExecuteExcel4Macro(Arg)
DoEvents

End Function
'-------------------------------

Salutations!

"Patrick" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:97f401c433ae$45033260$a501280a@phx.gbl...
Bonsoir à tous,

Que faut il faire pour récupérer les contenus de la case
H27 dans un répertoire ou il y a des fichiers de noms
différents mais ils ont tous une valeur en H27, j'aimerai
additionner par exemple toutes les cellules H27 dans les
fichiers .....

Est ce possible ? c'est dur ??

D'avance un grand merci à tous

Bonne soirée

Patrick

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour Patrick,

Essaie ceci :

Tu dois renseigner les variables selon ton application...
Cette procédure suppose que le nom de chaque feuille de classeur où se trouve la cellule H27 est le même.
A défaut d'avoir le même nom (feuille du classeur), la feuille doit avoir la même position (index) dans le classeur. Si
tel est le cas, il y moyen de modifier très légèrement la macro pour tenir compte de cette éventualité.

'à copier dans un module standard

'-------------------------------------------------
Sub SommeDesH7()

Dim A As Integer, Chemin As String
Dim NomFichier As String, NomFeuille As String
Dim Cellule, LaSomme As Double, Data As Variant

'Variable à Renseigner selon ton application...

Chemin = "c:Excel"
NomFeuille = "Feuil1"
Cellule = "H27"

With Application.FileSearch
.NewSearch
.LookIn = Chemin
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For A = 1 To .FoundFiles.Count
NomFichier = Split(.FoundFiles(A), "") _
(UBound(Split(.FoundFiles(A), "")))
Data = GetValue(Chemin, NomFichier, NomFeuille, Cellule)
If IsNumeric(Data) Then
LaSomme = LaSomme + Data
End If
Next
End If
End With

MsgBox "La somme est : " & LaSomme

End Sub

'Fonction de John Walkenbach....
'-------------------------------

Public Function GetValue(ByVal path, ByVal file, _
ByVal sheet, ByVal ref) As Variant

Dim Arg As String

If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If

Arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Address(, , xlR1C1)
GetValue = Application.ExecuteExcel4Macro(Arg)
DoEvents

End Function
'-------------------------------

Salutations!

"Patrick" a écrit dans le message de
news:97f401c433ae$45033260$
Bonsoir à tous,

Que faut il faire pour récupérer les contenus de la case
H27 dans un répertoire ou il y a des fichiers de noms
différents mais ils ont tous une valeur en H27, j'aimerai
additionner par exemple toutes les cellules H27 dans les
fichiers .....

Est ce possible ? c'est dur ??

D'avance un grand merci à tous

Bonne soirée

Patrick

patrick.jacquart

07/05/2004 à 12:38

Bonjour,

merci beaucoup pour ton coup de main, mon niveau doit etre
pas au top sur visual basic, car j'ai suivi les
instructions, j'ai complété les variables en supprimant la
ligne "variable à renseigner selon ....."

Mais "Erreur de compilation ou fonction non définie" au
moment d'arriver à GETVALUE.

Que me manque t'il ??? dois je préparer la bouteille ??

Salutations

patrick

-----Message d'origine-----
Bonjour Patrick,

Essaie ceci :

Tu dois renseigner les variables selon ton application...
Cette procédure suppose que le nom de chaque feuille de
classeur où se trouve la cellule H27 est le même.

A défaut d'avoir le même nom (feuille du classeur), la
feuille doit avoir la même position (index) dans le

classeur. Si

tel est le cas, il y moyen de modifier très légèrement la
macro pour tenir compte de cette éventualité.

'à copier dans un module standard

'-------------------------------------------------
Sub SommeDesH7()

Dim A As Integer, Chemin As String
Dim NomFichier As String, NomFeuille As String
Dim Cellule, LaSomme As Double, Data As Variant

'Variable à Renseigner selon ton application...

Chemin = "c:Excel"
NomFeuille = "Feuil1"
Cellule = "H27"

With Application.FileSearch
.NewSearch
.LookIn = Chemin
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For A = 1 To .FoundFiles.Count
NomFichier = Split(.FoundFiles(A), "") _
(UBound(Split(.FoundFiles(A), "")))
Data = GetValue(Chemin, NomFichier,
NomFeuille, Cellule)

If IsNumeric(Data) Then
LaSomme = LaSomme + Data
End If
Next
End If
End With

MsgBox "La somme est : " & LaSomme

End Sub

'Fonction de John Walkenbach....
'-------------------------------

Public Function GetValue(ByVal path, ByVal file, _
ByVal sheet, ByVal ref) As Variant

Dim Arg As String

If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If

Arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Address(, , xlR1C1)
GetValue = Application.ExecuteExcel4Macro(Arg)
DoEvents

End Function
'-------------------------------

Salutations!

"Patrick" a écrit
dans le message de

news:97f401c433ae$45033260$
Bonsoir à tous,

Que faut il faire pour récupérer les contenus de la case
H27 dans un répertoire ou il y a des fichiers de noms
différents mais ils ont tous une valeur en H27, j'aimerai
additionner par exemple toutes les cellules H27 dans les
fichiers .....

Est ce possible ? c'est dur ??

D'avance un grand merci à tous

Bonne soirée

Patrick

.

Bonjour,

merci beaucoup pour ton coup de main, mon niveau doit etre
pas au top sur visual basic, car j'ai suivi les
instructions, j'ai complété les variables en supprimant la
ligne "variable à renseigner selon ....."

Mais "Erreur de compilation ou fonction non définie" au
moment d'arriver à GETVALUE.

Que me manque t'il ??? dois je préparer la bouteille ??

Salutations

patrick

-----Message d'origine-----
Bonjour Patrick,

Essaie ceci :

Tu dois renseigner les variables selon ton application...
Cette procédure suppose que le nom de chaque feuille de
classeur où se trouve la cellule H27 est le même.

A défaut d'avoir le même nom (feuille du classeur), la
feuille doit avoir la même position (index) dans le

classeur. Si

tel est le cas, il y moyen de modifier très légèrement la
macro pour tenir compte de cette éventualité.

'à copier dans un module standard

'-------------------------------------------------
Sub SommeDesH7()

Dim A As Integer, Chemin As String
Dim NomFichier As String, NomFeuille As String
Dim Cellule, LaSomme As Double, Data As Variant

'Variable à Renseigner selon ton application...

Chemin = "c:Excel"
NomFeuille = "Feuil1"
Cellule = "H27"

With Application.FileSearch
.NewSearch
.LookIn = Chemin
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For A = 1 To .FoundFiles.Count
NomFichier = Split(.FoundFiles(A), "") _
(UBound(Split(.FoundFiles(A), "")))
Data = GetValue(Chemin, NomFichier,
NomFeuille, Cellule)

If IsNumeric(Data) Then
LaSomme = LaSomme + Data
End If
Next
End If
End With

MsgBox "La somme est : " & LaSomme

End Sub

'Fonction de John Walkenbach....
'-------------------------------

Public Function GetValue(ByVal path, ByVal file, _
ByVal sheet, ByVal ref) As Variant

Dim Arg As String

If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If

Arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Address(, , xlR1C1)
GetValue = Application.ExecuteExcel4Macro(Arg)
DoEvents

End Function
'-------------------------------

Salutations!

"Patrick" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news:97f401c433ae$45033260$a501280a@phx.gbl...
Bonsoir à tous,

Que faut il faire pour récupérer les contenus de la case
H27 dans un répertoire ou il y a des fichiers de noms
différents mais ils ont tous une valeur en H27, j'aimerai
additionner par exemple toutes les cellules H27 dans les
fichiers .....

Est ce possible ? c'est dur ??

D'avance un grand merci à tous

Bonne soirée

Patrick

.

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour,

merci beaucoup pour ton coup de main, mon niveau doit etre
pas au top sur visual basic, car j'ai suivi les
instructions, j'ai complété les variables en supprimant la
ligne "variable à renseigner selon ....."

Mais "Erreur de compilation ou fonction non définie" au
moment d'arriver à GETVALUE.

Que me manque t'il ??? dois je préparer la bouteille ??

Salutations

patrick

-----Message d'origine-----
Bonjour Patrick,

Essaie ceci :

Tu dois renseigner les variables selon ton application...
Cette procédure suppose que le nom de chaque feuille de
classeur où se trouve la cellule H27 est le même.

A défaut d'avoir le même nom (feuille du classeur), la
feuille doit avoir la même position (index) dans le

classeur. Si

tel est le cas, il y moyen de modifier très légèrement la
macro pour tenir compte de cette éventualité.

'à copier dans un module standard

'-------------------------------------------------
Sub SommeDesH7()

Dim A As Integer, Chemin As String
Dim NomFichier As String, NomFeuille As String
Dim Cellule, LaSomme As Double, Data As Variant

'Variable à Renseigner selon ton application...

Chemin = "c:Excel"
NomFeuille = "Feuil1"
Cellule = "H27"

With Application.FileSearch
.NewSearch
.LookIn = Chemin
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For A = 1 To .FoundFiles.Count
NomFichier = Split(.FoundFiles(A), "") _
(UBound(Split(.FoundFiles(A), "")))
Data = GetValue(Chemin, NomFichier,
NomFeuille, Cellule)

If IsNumeric(Data) Then
LaSomme = LaSomme + Data
End If
Next
End If
End With

MsgBox "La somme est : " & LaSomme

End Sub

'Fonction de John Walkenbach....
'-------------------------------

Public Function GetValue(ByVal path, ByVal file, _
ByVal sheet, ByVal ref) As Variant

Dim Arg As String

If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If

Arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Address(, , xlR1C1)
GetValue = Application.ExecuteExcel4Macro(Arg)
DoEvents

End Function
'-------------------------------

Salutations!

"Patrick" a écrit
dans le message de

news:97f401c433ae$45033260$
Bonsoir à tous,

Que faut il faire pour récupérer les contenus de la case
H27 dans un répertoire ou il y a des fichiers de noms
différents mais ils ont tous une valeur en H27, j'aimerai
additionner par exemple toutes les cellules H27 dans les
fichiers .....

Est ce possible ? c'est dur ??

D'avance un grand merci à tous

Bonne soirée

Patrick

.

michdenis

07/05/2004 à 13:23

Bonjour Patrick,

J'ai fait un copier-coller des procédures soumises dans un classeur, je n'ai eu aucun message d'erreur !

A ) Est-ce que chacune des feuilles des classeurs d'où tu veux extraire la cellule H27 portent le même nom ?

B ) Quelle ligne de la fonction est mise en surbrillance lors de l'exécution ?

C ) La procédure "SommeDesH7" utilise la fonction "split", cette dernière requiert une version d'excel 2000 ou plus
récent.

À défaut de plus de précisions.... je ne vois pas ce que je peux faire !

Salutations!

"" a écrit dans le message de
news:9bf301c4341f$6b306220$
Bonjour,

merci beaucoup pour ton coup de main, mon niveau doit etre
pas au top sur visual basic, car j'ai suivi les
instructions, j'ai complété les variables en supprimant la
ligne "variable à renseigner selon ....."

Mais "Erreur de compilation ou fonction non définie" au
moment d'arriver à GETVALUE.

Que me manque t'il ??? dois je préparer la bouteille ??

Salutations

patrick

-----Message d'origine-----
Bonjour Patrick,

Essaie ceci :

Tu dois renseigner les variables selon ton application...
Cette procédure suppose que le nom de chaque feuille de
classeur où se trouve la cellule H27 est le même.

A défaut d'avoir le même nom (feuille du classeur), la
feuille doit avoir la même position (index) dans le

classeur. Si

tel est le cas, il y moyen de modifier très légèrement la
macro pour tenir compte de cette éventualité.

'à copier dans un module standard

'-------------------------------------------------
Sub SommeDesH7()

Dim A As Integer, Chemin As String
Dim NomFichier As String, NomFeuille As String
Dim Cellule, LaSomme As Double, Data As Variant

'Variable à Renseigner selon ton application...

Chemin = "c:Excel"
NomFeuille = "Feuil1"
Cellule = "H27"

With Application.FileSearch
.NewSearch
.LookIn = Chemin
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For A = 1 To .FoundFiles.Count
NomFichier = Split(.FoundFiles(A), "") _
(UBound(Split(.FoundFiles(A), "")))
Data = GetValue(Chemin, NomFichier,
NomFeuille, Cellule)

If IsNumeric(Data) Then
LaSomme = LaSomme + Data
End If
Next
End If
End With

MsgBox "La somme est : " & LaSomme

End Sub

'Fonction de John Walkenbach....
'-------------------------------

Public Function GetValue(ByVal path, ByVal file, _
ByVal sheet, ByVal ref) As Variant

Dim Arg As String

If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If

Arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Address(, , xlR1C1)
GetValue = Application.ExecuteExcel4Macro(Arg)
DoEvents

End Function
'-------------------------------

Salutations!

"Patrick" a écrit
dans le message de

news:97f401c433ae$45033260$
Bonsoir à tous,

Que faut il faire pour récupérer les contenus de la case
H27 dans un répertoire ou il y a des fichiers de noms
différents mais ils ont tous une valeur en H27, j'aimerai
additionner par exemple toutes les cellules H27 dans les
fichiers .....

Est ce possible ? c'est dur ??

D'avance un grand merci à tous

Bonne soirée

Patrick

.

Bonjour Patrick,

J'ai fait un copier-coller des procédures soumises dans un classeur, je n'ai eu aucun message d'erreur !

A ) Est-ce que chacune des feuilles des classeurs d'où tu veux extraire la cellule H27 portent le même nom ?

B ) Quelle ligne de la fonction est mise en surbrillance lors de l'exécution ?

C ) La procédure "SommeDesH7" utilise la fonction "split", cette dernière requiert une version d'excel 2000 ou plus
récent.

À défaut de plus de précisions.... je ne vois pas ce que je peux faire !

Salutations!

"patrick.jacquart@wanadoo.fr" <michdenis@hotmail.com> a écrit dans le message de
news:9bf301c4341f$6b306220$a501280a@phx.gbl...
Bonjour,

merci beaucoup pour ton coup de main, mon niveau doit etre
pas au top sur visual basic, car j'ai suivi les
instructions, j'ai complété les variables en supprimant la
ligne "variable à renseigner selon ....."

Mais "Erreur de compilation ou fonction non définie" au
moment d'arriver à GETVALUE.

Que me manque t'il ??? dois je préparer la bouteille ??

Salutations

patrick

-----Message d'origine-----
Bonjour Patrick,

Essaie ceci :

Tu dois renseigner les variables selon ton application...
Cette procédure suppose que le nom de chaque feuille de
classeur où se trouve la cellule H27 est le même.

A défaut d'avoir le même nom (feuille du classeur), la
feuille doit avoir la même position (index) dans le

classeur. Si

tel est le cas, il y moyen de modifier très légèrement la
macro pour tenir compte de cette éventualité.

'à copier dans un module standard

'-------------------------------------------------
Sub SommeDesH7()

Dim A As Integer, Chemin As String
Dim NomFichier As String, NomFeuille As String
Dim Cellule, LaSomme As Double, Data As Variant

'Variable à Renseigner selon ton application...

Chemin = "c:Excel"
NomFeuille = "Feuil1"
Cellule = "H27"

With Application.FileSearch
.NewSearch
.LookIn = Chemin
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For A = 1 To .FoundFiles.Count
NomFichier = Split(.FoundFiles(A), "") _
(UBound(Split(.FoundFiles(A), "")))
Data = GetValue(Chemin, NomFichier,
NomFeuille, Cellule)

If IsNumeric(Data) Then
LaSomme = LaSomme + Data
End If
Next
End If
End With

MsgBox "La somme est : " & LaSomme

End Sub

'Fonction de John Walkenbach....
'-------------------------------

Public Function GetValue(ByVal path, ByVal file, _
ByVal sheet, ByVal ref) As Variant

Dim Arg As String

If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If

Arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Address(, , xlR1C1)
GetValue = Application.ExecuteExcel4Macro(Arg)
DoEvents

End Function
'-------------------------------

Salutations!

"Patrick" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news:97f401c433ae$45033260$a501280a@phx.gbl...
Bonsoir à tous,

Que faut il faire pour récupérer les contenus de la case
H27 dans un répertoire ou il y a des fichiers de noms
différents mais ils ont tous une valeur en H27, j'aimerai
additionner par exemple toutes les cellules H27 dans les
fichiers .....

Est ce possible ? c'est dur ??

D'avance un grand merci à tous

Bonne soirée

Patrick

.

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour Patrick,

J'ai fait un copier-coller des procédures soumises dans un classeur, je n'ai eu aucun message d'erreur !

A ) Est-ce que chacune des feuilles des classeurs d'où tu veux extraire la cellule H27 portent le même nom ?

B ) Quelle ligne de la fonction est mise en surbrillance lors de l'exécution ?

C ) La procédure "SommeDesH7" utilise la fonction "split", cette dernière requiert une version d'excel 2000 ou plus
récent.

À défaut de plus de précisions.... je ne vois pas ce que je peux faire !

Salutations!

"" a écrit dans le message de
news:9bf301c4341f$6b306220$
Bonjour,

merci beaucoup pour ton coup de main, mon niveau doit etre
pas au top sur visual basic, car j'ai suivi les
instructions, j'ai complété les variables en supprimant la
ligne "variable à renseigner selon ....."

Mais "Erreur de compilation ou fonction non définie" au
moment d'arriver à GETVALUE.

Que me manque t'il ??? dois je préparer la bouteille ??

Salutations

patrick

-----Message d'origine-----
Bonjour Patrick,

Essaie ceci :

Tu dois renseigner les variables selon ton application...
Cette procédure suppose que le nom de chaque feuille de
classeur où se trouve la cellule H27 est le même.

A défaut d'avoir le même nom (feuille du classeur), la
feuille doit avoir la même position (index) dans le

classeur. Si

tel est le cas, il y moyen de modifier très légèrement la
macro pour tenir compte de cette éventualité.

'à copier dans un module standard

'-------------------------------------------------
Sub SommeDesH7()

Dim A As Integer, Chemin As String
Dim NomFichier As String, NomFeuille As String
Dim Cellule, LaSomme As Double, Data As Variant

'Variable à Renseigner selon ton application...

Chemin = "c:Excel"
NomFeuille = "Feuil1"
Cellule = "H27"

With Application.FileSearch
.NewSearch
.LookIn = Chemin
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For A = 1 To .FoundFiles.Count
NomFichier = Split(.FoundFiles(A), "") _
(UBound(Split(.FoundFiles(A), "")))
Data = GetValue(Chemin, NomFichier,
NomFeuille, Cellule)

If IsNumeric(Data) Then
LaSomme = LaSomme + Data
End If
Next
End If
End With

MsgBox "La somme est : " & LaSomme

End Sub

'Fonction de John Walkenbach....
'-------------------------------

Public Function GetValue(ByVal path, ByVal file, _
ByVal sheet, ByVal ref) As Variant

Dim Arg As String

If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If

Arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Address(, , xlR1C1)
GetValue = Application.ExecuteExcel4Macro(Arg)
DoEvents

End Function
'-------------------------------

Salutations!

"Patrick" a écrit
dans le message de

news:97f401c433ae$45033260$
Bonsoir à tous,

Que faut il faire pour récupérer les contenus de la case
H27 dans un répertoire ou il y a des fichiers de noms
différents mais ils ont tous une valeur en H27, j'aimerai
additionner par exemple toutes les cellules H27 dans les
fichiers .....

Est ce possible ? c'est dur ??

D'avance un grand merci à tous

Bonne soirée

Patrick

.

recup d'une valeur ...

4 réponses

Veuillez sélectionner un problème