Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol
Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol
Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol
Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT
dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol
Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT
dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol
Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT
dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol
salut
Nul besoin de vba
ouvre tous les classeurs que tu vas avoir besoin
Click dans la cellule ou tu veux le resultat, tu mets le signe égal et
ouver depuis la barre des taches un xls, click
1 fois sur la cellule HT et valide par le "V" vert de la barre de formule
Toujours dans cette barre de formule tu rajoute + et tu continue la
manip autant de fois que de fichiers
Tu refermes les fichiers source Excel fera le reste
Possible aussi de faire coin special pour mettre la valeur Ht pour chaque
classeur et en faire ensuite la somme
Attention la formule risque d'être longue.
Youky
"Pol" a écrit dans le message de news:Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT
dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol
salut
Nul besoin de vba
ouvre tous les classeurs que tu vas avoir besoin
Click dans la cellule ou tu veux le resultat, tu mets le signe égal et
ouver depuis la barre des taches un xls, click
1 fois sur la cellule HT et valide par le "V" vert de la barre de formule
Toujours dans cette barre de formule tu rajoute + et tu continue la
manip autant de fois que de fichiers
Tu refermes les fichiers source Excel fera le reste
Possible aussi de faire coin special pour mettre la valeur Ht pour chaque
classeur et en faire ensuite la somme
Attention la formule risque d'être longue.
Youky
"Pol" <bidon@cruche.fr> a écrit dans le message de news:
OAlEGqIOGHA.208@tk2msftngp13.phx.gbl...
Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT
dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol
salut
Nul besoin de vba
ouvre tous les classeurs que tu vas avoir besoin
Click dans la cellule ou tu veux le resultat, tu mets le signe égal et
ouver depuis la barre des taches un xls, click
1 fois sur la cellule HT et valide par le "V" vert de la barre de formule
Toujours dans cette barre de formule tu rajoute + et tu continue la
manip autant de fois que de fichiers
Tu refermes les fichiers source Excel fera le reste
Possible aussi de faire coin special pour mettre la valeur Ht pour chaque
classeur et en faire ensuite la somme
Attention la formule risque d'être longue.
Youky
"Pol" a écrit dans le message de news:Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT
dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol
Merci pour vos réponses,
Jean-Louis et Youki
grâce à vous je viens de découvrir de nouvelles fonctions....
mais le problême....c'est que j'ai plus de 200 classeurs, donc plus de 200
cellules
à additioner. De plus d'autres classeurs viendront s'ajouter, pour ces
raisons une
solution en VBA serait l'idéal.. mais je suppose aussi une solution plus
complexe
Alors peut-être une piste ;-)
Pol
"Youky" a écrit dans le message de news:salut
Nul besoin de vba
ouvre tous les classeurs que tu vas avoir besoin
Click dans la cellule ou tu veux le resultat, tu mets le signe égal et
ouver depuis la barre des taches un xls, click
1 fois sur la cellule HT et valide par le "V" vert de la barre de formule
Toujours dans cette barre de formule tu rajoute + et tu continue la
manip autant de fois que de fichiers
Tu refermes les fichiers source Excel fera le reste
Possible aussi de faire coin special pour mettre la valeur Ht pour chaque
classeur et en faire ensuite la somme
Attention la formule risque d'être longue.
Youky
"Pol" a écrit dans le message de news:Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT
dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol
Merci pour vos réponses,
Jean-Louis et Youki
grâce à vous je viens de découvrir de nouvelles fonctions....
mais le problême....c'est que j'ai plus de 200 classeurs, donc plus de 200
cellules
à additioner. De plus d'autres classeurs viendront s'ajouter, pour ces
raisons une
solution en VBA serait l'idéal.. mais je suppose aussi une solution plus
complexe
Alors peut-être une piste ;-)
Pol
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
OXSNNJJOGHA.1760@TK2MSFTNGP10.phx.gbl...
salut
Nul besoin de vba
ouvre tous les classeurs que tu vas avoir besoin
Click dans la cellule ou tu veux le resultat, tu mets le signe égal et
ouver depuis la barre des taches un xls, click
1 fois sur la cellule HT et valide par le "V" vert de la barre de formule
Toujours dans cette barre de formule tu rajoute + et tu continue la
manip autant de fois que de fichiers
Tu refermes les fichiers source Excel fera le reste
Possible aussi de faire coin special pour mettre la valeur Ht pour chaque
classeur et en faire ensuite la somme
Attention la formule risque d'être longue.
Youky
"Pol" <bidon@cruche.fr> a écrit dans le message de news:
OAlEGqIOGHA.208@tk2msftngp13.phx.gbl...
Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT
dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol
Merci pour vos réponses,
Jean-Louis et Youki
grâce à vous je viens de découvrir de nouvelles fonctions....
mais le problême....c'est que j'ai plus de 200 classeurs, donc plus de 200
cellules
à additioner. De plus d'autres classeurs viendront s'ajouter, pour ces
raisons une
solution en VBA serait l'idéal.. mais je suppose aussi une solution plus
complexe
Alors peut-être une piste ;-)
Pol
"Youky" a écrit dans le message de news:salut
Nul besoin de vba
ouvre tous les classeurs que tu vas avoir besoin
Click dans la cellule ou tu veux le resultat, tu mets le signe égal et
ouver depuis la barre des taches un xls, click
1 fois sur la cellule HT et valide par le "V" vert de la barre de formule
Toujours dans cette barre de formule tu rajoute + et tu continue la
manip autant de fois que de fichiers
Tu refermes les fichiers source Excel fera le reste
Possible aussi de faire coin special pour mettre la valeur Ht pour chaque
classeur et en faire ensuite la somme
Attention la formule risque d'être longue.
Youky
"Pol" a écrit dans le message de news:Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT
dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol
copie cela dans un module, la macro écrit les formules dans la Feuil1 à
partir de A1
ne te reste plus qu'a faire la somme qlq part.
Youky
Sub MetsFormules()
Dim F
With Application.FileSearch
.NewSearch
.LookIn = ThisWorkbook.Path
.Execute
On Error Resume Next
k = 1
n = ThisWorkbook.Path & ""
For Each F In .FoundFiles
If F <> ThisWorkbook.Path & "" & ThisWorkbook.Name Then
fichier = Mid(F, Len(ThisWorkbook.Path) + 2, Len(F))
'ci dessous à modifier 1er Feuil1(feuille qui recois)
'2eme feuil1' ! $A$1 (feuille ou prendre la donnée)
Feuil1.Cells(k, 1) = "=" & "'" & n & "[" & fichier & "]" & "Feuil1'!$A$1"
k = k + 1
End If
Next F
End With
End Sub
"Pol" a écrit dans le message de news:
%Merci pour vos réponses,
Jean-Louis et Youki
grâce à vous je viens de découvrir de nouvelles fonctions....
mais le problême....c'est que j'ai plus de 200 classeurs, donc plus de
200 cellules
à additioner. De plus d'autres classeurs viendront s'ajouter, pour ces
raisons une
solution en VBA serait l'idéal.. mais je suppose aussi une solution plus
complexe
Alors peut-être une piste ;-)
Pol
"Youky" a écrit dans le message de news:salut
Nul besoin de vba
ouvre tous les classeurs que tu vas avoir besoin
Click dans la cellule ou tu veux le resultat, tu mets le signe égal et
ouver depuis la barre des taches un xls, click
1 fois sur la cellule HT et valide par le "V" vert de la barre de
formule
Toujours dans cette barre de formule tu rajoute + et tu continue la
manip autant de fois que de fichiers
Tu refermes les fichiers source Excel fera le reste
Possible aussi de faire coin special pour mettre la valeur Ht pour
chaque classeur et en faire ensuite la somme
Attention la formule risque d'être longue.
Youky
"Pol" a écrit dans le message de news:Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT
dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol
copie cela dans un module, la macro écrit les formules dans la Feuil1 à
partir de A1
ne te reste plus qu'a faire la somme qlq part.
Youky
Sub MetsFormules()
Dim F
With Application.FileSearch
.NewSearch
.LookIn = ThisWorkbook.Path
.Execute
On Error Resume Next
k = 1
n = ThisWorkbook.Path & ""
For Each F In .FoundFiles
If F <> ThisWorkbook.Path & "" & ThisWorkbook.Name Then
fichier = Mid(F, Len(ThisWorkbook.Path) + 2, Len(F))
'ci dessous à modifier 1er Feuil1(feuille qui recois)
'2eme feuil1' ! $A$1 (feuille ou prendre la donnée)
Feuil1.Cells(k, 1) = "=" & "'" & n & "[" & fichier & "]" & "Feuil1'!$A$1"
k = k + 1
End If
Next F
End With
End Sub
"Pol" <bidon@cruche.fr> a écrit dans le message de news:
%23LtVQRKOGHA.3728@tk2msftngp13.phx.gbl...
Merci pour vos réponses,
Jean-Louis et Youki
grâce à vous je viens de découvrir de nouvelles fonctions....
mais le problême....c'est que j'ai plus de 200 classeurs, donc plus de
200 cellules
à additioner. De plus d'autres classeurs viendront s'ajouter, pour ces
raisons une
solution en VBA serait l'idéal.. mais je suppose aussi une solution plus
complexe
Alors peut-être une piste ;-)
Pol
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
OXSNNJJOGHA.1760@TK2MSFTNGP10.phx.gbl...
salut
Nul besoin de vba
ouvre tous les classeurs que tu vas avoir besoin
Click dans la cellule ou tu veux le resultat, tu mets le signe égal et
ouver depuis la barre des taches un xls, click
1 fois sur la cellule HT et valide par le "V" vert de la barre de
formule
Toujours dans cette barre de formule tu rajoute + et tu continue la
manip autant de fois que de fichiers
Tu refermes les fichiers source Excel fera le reste
Possible aussi de faire coin special pour mettre la valeur Ht pour
chaque classeur et en faire ensuite la somme
Attention la formule risque d'être longue.
Youky
"Pol" <bidon@cruche.fr> a écrit dans le message de news:
OAlEGqIOGHA.208@tk2msftngp13.phx.gbl...
Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT
dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol
copie cela dans un module, la macro écrit les formules dans la Feuil1 à
partir de A1
ne te reste plus qu'a faire la somme qlq part.
Youky
Sub MetsFormules()
Dim F
With Application.FileSearch
.NewSearch
.LookIn = ThisWorkbook.Path
.Execute
On Error Resume Next
k = 1
n = ThisWorkbook.Path & ""
For Each F In .FoundFiles
If F <> ThisWorkbook.Path & "" & ThisWorkbook.Name Then
fichier = Mid(F, Len(ThisWorkbook.Path) + 2, Len(F))
'ci dessous à modifier 1er Feuil1(feuille qui recois)
'2eme feuil1' ! $A$1 (feuille ou prendre la donnée)
Feuil1.Cells(k, 1) = "=" & "'" & n & "[" & fichier & "]" & "Feuil1'!$A$1"
k = k + 1
End If
Next F
End With
End Sub
"Pol" a écrit dans le message de news:
%Merci pour vos réponses,
Jean-Louis et Youki
grâce à vous je viens de découvrir de nouvelles fonctions....
mais le problême....c'est que j'ai plus de 200 classeurs, donc plus de
200 cellules
à additioner. De plus d'autres classeurs viendront s'ajouter, pour ces
raisons une
solution en VBA serait l'idéal.. mais je suppose aussi une solution plus
complexe
Alors peut-être une piste ;-)
Pol
"Youky" a écrit dans le message de news:salut
Nul besoin de vba
ouvre tous les classeurs que tu vas avoir besoin
Click dans la cellule ou tu veux le resultat, tu mets le signe égal et
ouver depuis la barre des taches un xls, click
1 fois sur la cellule HT et valide par le "V" vert de la barre de
formule
Toujours dans cette barre de formule tu rajoute + et tu continue la
manip autant de fois que de fichiers
Tu refermes les fichiers source Excel fera le reste
Possible aussi de faire coin special pour mettre la valeur Ht pour
chaque classeur et en faire ensuite la somme
Attention la formule risque d'être longue.
Youky
"Pol" a écrit dans le message de news:Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT
dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol
J'ai oublié de dire d'enregistrer le fichier dans le même répertoire sinon
ca va pas
Youky
"Youky" a écrit dans le message de news:copie cela dans un module, la macro écrit les formules dans la Feuil1 à
partir de A1
ne te reste plus qu'a faire la somme qlq part.
Youky
Sub MetsFormules()
Dim F
With Application.FileSearch
.NewSearch
.LookIn = ThisWorkbook.Path
.Execute
On Error Resume Next
k = 1
n = ThisWorkbook.Path & ""
For Each F In .FoundFiles
If F <> ThisWorkbook.Path & "" & ThisWorkbook.Name Then
fichier = Mid(F, Len(ThisWorkbook.Path) + 2, Len(F))
'ci dessous à modifier 1er Feuil1(feuille qui recois)
'2eme feuil1' ! $A$1 (feuille ou prendre la donnée)
Feuil1.Cells(k, 1) = "=" & "'" & n & "[" & fichier & "]" & "Feuil1'!$A$1"
k = k + 1
End If
Next F
End With
End Sub
"Pol" a écrit dans le message de news:
%Merci pour vos réponses,
Jean-Louis et Youki
grâce à vous je viens de découvrir de nouvelles fonctions....
mais le problême....c'est que j'ai plus de 200 classeurs, donc plus de
200 cellules
à additioner. De plus d'autres classeurs viendront s'ajouter, pour ces
raisons une
solution en VBA serait l'idéal.. mais je suppose aussi une solution plus
complexe
Alors peut-être une piste ;-)
Pol
"Youky" a écrit dans le message de news:salut
Nul besoin de vba
ouvre tous les classeurs que tu vas avoir besoin
Click dans la cellule ou tu veux le resultat, tu mets le signe égal et
ouver depuis la barre des taches un xls, click
1 fois sur la cellule HT et valide par le "V" vert de la barre de
formule
Toujours dans cette barre de formule tu rajoute + et tu continue la
manip autant de fois que de fichiers
Tu refermes les fichiers source Excel fera le reste
Possible aussi de faire coin special pour mettre la valeur Ht pour
chaque classeur et en faire ensuite la somme
Attention la formule risque d'être longue.
Youky
"Pol" a écrit dans le message de news:Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT
dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol
J'ai oublié de dire d'enregistrer le fichier dans le même répertoire sinon
ca va pas
Youky
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
eZxa0xSOGHA.312@TK2MSFTNGP12.phx.gbl...
copie cela dans un module, la macro écrit les formules dans la Feuil1 à
partir de A1
ne te reste plus qu'a faire la somme qlq part.
Youky
Sub MetsFormules()
Dim F
With Application.FileSearch
.NewSearch
.LookIn = ThisWorkbook.Path
.Execute
On Error Resume Next
k = 1
n = ThisWorkbook.Path & ""
For Each F In .FoundFiles
If F <> ThisWorkbook.Path & "" & ThisWorkbook.Name Then
fichier = Mid(F, Len(ThisWorkbook.Path) + 2, Len(F))
'ci dessous à modifier 1er Feuil1(feuille qui recois)
'2eme feuil1' ! $A$1 (feuille ou prendre la donnée)
Feuil1.Cells(k, 1) = "=" & "'" & n & "[" & fichier & "]" & "Feuil1'!$A$1"
k = k + 1
End If
Next F
End With
End Sub
"Pol" <bidon@cruche.fr> a écrit dans le message de news:
%23LtVQRKOGHA.3728@tk2msftngp13.phx.gbl...
Merci pour vos réponses,
Jean-Louis et Youki
grâce à vous je viens de découvrir de nouvelles fonctions....
mais le problême....c'est que j'ai plus de 200 classeurs, donc plus de
200 cellules
à additioner. De plus d'autres classeurs viendront s'ajouter, pour ces
raisons une
solution en VBA serait l'idéal.. mais je suppose aussi une solution plus
complexe
Alors peut-être une piste ;-)
Pol
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
OXSNNJJOGHA.1760@TK2MSFTNGP10.phx.gbl...
salut
Nul besoin de vba
ouvre tous les classeurs que tu vas avoir besoin
Click dans la cellule ou tu veux le resultat, tu mets le signe égal et
ouver depuis la barre des taches un xls, click
1 fois sur la cellule HT et valide par le "V" vert de la barre de
formule
Toujours dans cette barre de formule tu rajoute + et tu continue la
manip autant de fois que de fichiers
Tu refermes les fichiers source Excel fera le reste
Possible aussi de faire coin special pour mettre la valeur Ht pour
chaque classeur et en faire ensuite la somme
Attention la formule risque d'être longue.
Youky
"Pol" <bidon@cruche.fr> a écrit dans le message de news:
OAlEGqIOGHA.208@tk2msftngp13.phx.gbl...
Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT
dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol
J'ai oublié de dire d'enregistrer le fichier dans le même répertoire sinon
ca va pas
Youky
"Youky" a écrit dans le message de news:copie cela dans un module, la macro écrit les formules dans la Feuil1 à
partir de A1
ne te reste plus qu'a faire la somme qlq part.
Youky
Sub MetsFormules()
Dim F
With Application.FileSearch
.NewSearch
.LookIn = ThisWorkbook.Path
.Execute
On Error Resume Next
k = 1
n = ThisWorkbook.Path & ""
For Each F In .FoundFiles
If F <> ThisWorkbook.Path & "" & ThisWorkbook.Name Then
fichier = Mid(F, Len(ThisWorkbook.Path) + 2, Len(F))
'ci dessous à modifier 1er Feuil1(feuille qui recois)
'2eme feuil1' ! $A$1 (feuille ou prendre la donnée)
Feuil1.Cells(k, 1) = "=" & "'" & n & "[" & fichier & "]" & "Feuil1'!$A$1"
k = k + 1
End If
Next F
End With
End Sub
"Pol" a écrit dans le message de news:
%Merci pour vos réponses,
Jean-Louis et Youki
grâce à vous je viens de découvrir de nouvelles fonctions....
mais le problême....c'est que j'ai plus de 200 classeurs, donc plus de
200 cellules
à additioner. De plus d'autres classeurs viendront s'ajouter, pour ces
raisons une
solution en VBA serait l'idéal.. mais je suppose aussi une solution plus
complexe
Alors peut-être une piste ;-)
Pol
"Youky" a écrit dans le message de news:salut
Nul besoin de vba
ouvre tous les classeurs que tu vas avoir besoin
Click dans la cellule ou tu veux le resultat, tu mets le signe égal et
ouver depuis la barre des taches un xls, click
1 fois sur la cellule HT et valide par le "V" vert de la barre de
formule
Toujours dans cette barre de formule tu rajoute + et tu continue la
manip autant de fois que de fichiers
Tu refermes les fichiers source Excel fera le reste
Possible aussi de faire coin special pour mettre la valeur Ht pour
chaque classeur et en faire ensuite la somme
Attention la formule risque d'être longue.
Youky
"Pol" a écrit dans le message de news:Bonjour à tous,
Est-il possible d'additionner dans un classeur les cellules nommées HT
dans
plusieurs autres classeurs situés dans un même dossier ?
Mon niveau en VBA est tout bas, pouvez-vous m'aider, merci d'avance ?
A+
Pol