recup d'une valeur ...

Le
Patrick
Bonsoir tous,

Que faut il faire pour rcuprer les contenus de la case
H27 dans un rpertoire ou il y a des fichiers de noms
diffrents 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 soire

Patrick
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #1388186
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" 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
Le #1388185
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" 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
Le #1388162
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" 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
Le #1388154
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!





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


.



Publicité
Poster une réponse
Anonyme