Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" <Fan@NOSPAM> a écrit dans le message de news:
%23dj%23ye8lHHA.3496@TK2MSFTNGP03.phx.gbl...
Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Merci, cela pourrait etre parfait mais il ya une erreur à la tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" a écrit dans le message de
news:%Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Merci, cela pourrait etre parfait mais il ya une erreur à la tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%239dwWm8lHHA.4624@TK2MSFTNGP04.phx.gbl...
Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" <Fan@NOSPAM> a écrit dans le message de news:
%23dj%23ye8lHHA.3496@TK2MSFTNGP03.phx.gbl...
Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Merci, cela pourrait etre parfait mais il ya une erreur à la tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" a écrit dans le message de
news:%Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" a écrit dans le message de news:Merci, cela pourrait etre parfait mais il ya une erreur à la tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" a écrit dans le message de
news:%Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" <Fan@NOSPAM> a écrit dans le message de news:
ONset1AmHHA.1216@TK2MSFTNGP03.phx.gbl...
Merci, cela pourrait etre parfait mais il ya une erreur à la tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%239dwWm8lHHA.4624@TK2MSFTNGP04.phx.gbl...
Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" <Fan@NOSPAM> a écrit dans le message de news:
%23dj%23ye8lHHA.3496@TK2MSFTNGP03.phx.gbl...
Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" a écrit dans le message de news:Merci, cela pourrait etre parfait mais il ya une erreur à la tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" a écrit dans le message de
news:%Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et qui
est bien le premier de ceux contenus dans le répertoire concerné) qui
s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" a écrit dans le message de news:Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" a écrit dans le message de news:Merci, cela pourrait etre parfait mais il ya une erreur à la tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" a écrit dans le message de
news:%Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et qui
est bien le premier de ceux contenus dans le répertoire concerné) qui
s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OtFuNEFmHHA.4876@TK2MSFTNGP03.phx.gbl...
Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" <Fan@NOSPAM> a écrit dans le message de news:
ONset1AmHHA.1216@TK2MSFTNGP03.phx.gbl...
Merci, cela pourrait etre parfait mais il ya une erreur à la tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%239dwWm8lHHA.4624@TK2MSFTNGP04.phx.gbl...
Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" <Fan@NOSPAM> a écrit dans le message de news:
%23dj%23ye8lHHA.3496@TK2MSFTNGP03.phx.gbl...
Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et qui
est bien le premier de ceux contenus dans le répertoire concerné) qui
s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" a écrit dans le message de news:Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" a écrit dans le message de news:Merci, cela pourrait etre parfait mais il ya une erreur à la tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" a écrit dans le message de
news:%Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Bien sûr. Au temps pour moi. Et il manquait le "close des fichiers :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel"
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Dossier & Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Workbooks(Fichier).Close False
Fichier = Dir
Loop
End Sub
Daniel
"jps" a écrit dans le message de news:bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et
qui est bien le premier de ceux contenus dans le répertoire concerné) qui
s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" a écrit dans le message de news:Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" a écrit dans le message de news:Merci, cela pourrait etre parfait mais il ya une erreur à la tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" a écrit dans le message de
news:%Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend
la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Bien sûr. Au temps pour moi. Et il manquait le "close des fichiers :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel"
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Dossier & Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Workbooks(Fichier).Close False
Fichier = Dir
Loop
End Sub
Daniel
"jps" <vaderetrosp@mas> a écrit dans le message de news:
uH0RZHFmHHA.4772@TK2MSFTNGP05.phx.gbl...
bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et
qui est bien le premier de ceux contenus dans le répertoire concerné) qui
s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OtFuNEFmHHA.4876@TK2MSFTNGP03.phx.gbl...
Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" <Fan@NOSPAM> a écrit dans le message de news:
ONset1AmHHA.1216@TK2MSFTNGP03.phx.gbl...
Merci, cela pourrait etre parfait mais il ya une erreur à la tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%239dwWm8lHHA.4624@TK2MSFTNGP04.phx.gbl...
Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend
la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" <Fan@NOSPAM> a écrit dans le message de news:
%23dj%23ye8lHHA.3496@TK2MSFTNGP03.phx.gbl...
Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Bien sûr. Au temps pour moi. Et il manquait le "close des fichiers :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel"
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Dossier & Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Workbooks(Fichier).Close False
Fichier = Dir
Loop
End Sub
Daniel
"jps" a écrit dans le message de news:bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et
qui est bien le premier de ceux contenus dans le répertoire concerné) qui
s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" a écrit dans le message de news:Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" a écrit dans le message de news:Merci, cela pourrait etre parfait mais il ya une erreur à la tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" a écrit dans le message de
news:%Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend
la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Bien sûr. Au temps pour moi. Et il manquait le "close des fichiers :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel"
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Dossier & Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Workbooks(Fichier).Close False
Fichier = Dir
Loop
End Sub
Daniel
"jps" a écrit dans le message de news:bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et
qui est bien le premier de ceux contenus dans le répertoire concerné) qui
s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" a écrit dans le message de news:Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" a écrit dans le message de news:Merci, cela pourrait etre parfait mais il ya une erreur à la tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" a écrit dans le message de
news:%Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend
la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Bien sûr. Au temps pour moi. Et il manquait le "close des fichiers :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel"
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Dossier & Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Workbooks(Fichier).Close False
Fichier = Dir
Loop
End Sub
Daniel
"jps" <vaderetrosp@mas> a écrit dans le message de news:
uH0RZHFmHHA.4772@TK2MSFTNGP05.phx.gbl...
bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et
qui est bien le premier de ceux contenus dans le répertoire concerné) qui
s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OtFuNEFmHHA.4876@TK2MSFTNGP03.phx.gbl...
Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" <Fan@NOSPAM> a écrit dans le message de news:
ONset1AmHHA.1216@TK2MSFTNGP03.phx.gbl...
Merci, cela pourrait etre parfait mais il ya une erreur à la tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%239dwWm8lHHA.4624@TK2MSFTNGP04.phx.gbl...
Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend
la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" <Fan@NOSPAM> a écrit dans le message de news:
%23dj%23ye8lHHA.3496@TK2MSFTNGP03.phx.gbl...
Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Bien sûr. Au temps pour moi. Et il manquait le "close des fichiers :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel"
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Dossier & Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Workbooks(Fichier).Close False
Fichier = Dir
Loop
End Sub
Daniel
"jps" a écrit dans le message de news:bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et
qui est bien le premier de ceux contenus dans le répertoire concerné) qui
s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" a écrit dans le message de news:Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" a écrit dans le message de news:Merci, cela pourrait etre parfait mais il ya une erreur à la tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" a écrit dans le message de
news:%Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend
la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
suite....
mais c'est quand même bizarre que le message d'alerte dise "fichier
introuvable" alors qu'il manquait le close du fichier en question (et des
autres pris dans le...looping)
juste une petite question : le Fichier = Dir juste avant le Loop, il sert
à quoi?
merci
jps
"Daniel" a écrit dans le message de news:
%Bien sûr. Au temps pour moi. Et il manquait le "close des fichiers :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel"
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Dossier & Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Workbooks(Fichier).Close False
Fichier = Dir
Loop
End Sub
Daniel
"jps" a écrit dans le message de news:bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et
qui est bien le premier de ceux contenus dans le répertoire concerné)
qui s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" a écrit dans le message de news:Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" a écrit dans le message de news:Merci, cela pourrait etre parfait mais il ya une erreur à la
tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" a écrit dans le message de
news:%Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend
la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
suite....
mais c'est quand même bizarre que le message d'alerte dise "fichier
introuvable" alors qu'il manquait le close du fichier en question (et des
autres pris dans le...looping)
juste une petite question : le Fichier = Dir juste avant le Loop, il sert
à quoi?
merci
jps
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23giVcTFmHHA.3736@TK2MSFTNGP03.phx.gbl...
Bien sûr. Au temps pour moi. Et il manquait le "close des fichiers :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel"
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Dossier & Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Workbooks(Fichier).Close False
Fichier = Dir
Loop
End Sub
Daniel
"jps" <vaderetrosp@mas> a écrit dans le message de news:
uH0RZHFmHHA.4772@TK2MSFTNGP05.phx.gbl...
bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et
qui est bien le premier de ceux contenus dans le répertoire concerné)
qui s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OtFuNEFmHHA.4876@TK2MSFTNGP03.phx.gbl...
Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" <Fan@NOSPAM> a écrit dans le message de news:
ONset1AmHHA.1216@TK2MSFTNGP03.phx.gbl...
Merci, cela pourrait etre parfait mais il ya une erreur à la
tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%239dwWm8lHHA.4624@TK2MSFTNGP04.phx.gbl...
Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend
la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" <Fan@NOSPAM> a écrit dans le message de news:
%23dj%23ye8lHHA.3496@TK2MSFTNGP03.phx.gbl...
Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
suite....
mais c'est quand même bizarre que le message d'alerte dise "fichier
introuvable" alors qu'il manquait le close du fichier en question (et des
autres pris dans le...looping)
juste une petite question : le Fichier = Dir juste avant le Loop, il sert
à quoi?
merci
jps
"Daniel" a écrit dans le message de news:
%Bien sûr. Au temps pour moi. Et il manquait le "close des fichiers :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel"
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Dossier & Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Workbooks(Fichier).Close False
Fichier = Dir
Loop
End Sub
Daniel
"jps" a écrit dans le message de news:bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et
qui est bien le premier de ceux contenus dans le répertoire concerné)
qui s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" a écrit dans le message de news:Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" a écrit dans le message de news:Merci, cela pourrait etre parfait mais il ya une erreur à la
tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" a écrit dans le message de
news:%Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend
la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Trop merci pour l'immortalisation ;-)))
En fait, quand tu mets :
Workbooks.Open Fichier
le chemin est le chemin par défaut, celui que tu obtiens avec CurDir.
Quand j'ai fait mes tests, le chemin par défaut était par hasard celui qui
était indiqué dans "Dossier", donc, je n'ai pas eu de problème. Dans le
cas contraire, il faut spécifier le chemin, sinon Excel est perdu et il le
dit.
Fichier=Dir sert à récupérer le nom du fichier suivant (et là, Excel a
conservé les paramètres passésdans : Fichier = Dir(Dossier & "*.xls")).
Hum je ne sais pas si j'ai été très clair...
Cordialement.
Daniel
"jps" a écrit dans le message de news:suite....
mais c'est quand même bizarre que le message d'alerte dise "fichier
introuvable" alors qu'il manquait le close du fichier en question (et des
autres pris dans le...looping)
juste une petite question : le Fichier = Dir juste avant le Loop, il sert
à quoi?
merci
jps
"Daniel" a écrit dans le message de news:
%Bien sûr. Au temps pour moi. Et il manquait le "close des fichiers :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel"
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Dossier & Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Workbooks(Fichier).Close False
Fichier = Dir
Loop
End Sub
Daniel
"jps" a écrit dans le message de news:bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et
qui est bien le premier de ceux contenus dans le répertoire concerné)
qui s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" a écrit dans le message de news:Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" a écrit dans le message de news:Merci, cela pourrait etre parfait mais il ya une erreur à la
tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" a écrit dans le message de
news:%Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend
la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Trop merci pour l'immortalisation ;-)))
En fait, quand tu mets :
Workbooks.Open Fichier
le chemin est le chemin par défaut, celui que tu obtiens avec CurDir.
Quand j'ai fait mes tests, le chemin par défaut était par hasard celui qui
était indiqué dans "Dossier", donc, je n'ai pas eu de problème. Dans le
cas contraire, il faut spécifier le chemin, sinon Excel est perdu et il le
dit.
Fichier=Dir sert à récupérer le nom du fichier suivant (et là, Excel a
conservé les paramètres passésdans : Fichier = Dir(Dossier & "*.xls")).
Hum je ne sais pas si j'ai été très clair...
Cordialement.
Daniel
"jps" <vaderetrosp@mas> a écrit dans le message de news:
eR5GQhFmHHA.4032@TK2MSFTNGP02.phx.gbl...
suite....
mais c'est quand même bizarre que le message d'alerte dise "fichier
introuvable" alors qu'il manquait le close du fichier en question (et des
autres pris dans le...looping)
juste une petite question : le Fichier = Dir juste avant le Loop, il sert
à quoi?
merci
jps
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23giVcTFmHHA.3736@TK2MSFTNGP03.phx.gbl...
Bien sûr. Au temps pour moi. Et il manquait le "close des fichiers :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel"
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Dossier & Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Workbooks(Fichier).Close False
Fichier = Dir
Loop
End Sub
Daniel
"jps" <vaderetrosp@mas> a écrit dans le message de news:
uH0RZHFmHHA.4772@TK2MSFTNGP05.phx.gbl...
bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et
qui est bien le premier de ceux contenus dans le répertoire concerné)
qui s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OtFuNEFmHHA.4876@TK2MSFTNGP03.phx.gbl...
Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" <Fan@NOSPAM> a écrit dans le message de news:
ONset1AmHHA.1216@TK2MSFTNGP03.phx.gbl...
Merci, cela pourrait etre parfait mais il ya une erreur à la
tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%239dwWm8lHHA.4624@TK2MSFTNGP04.phx.gbl...
Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend
la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" <Fan@NOSPAM> a écrit dans le message de news:
%23dj%23ye8lHHA.3496@TK2MSFTNGP03.phx.gbl...
Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Trop merci pour l'immortalisation ;-)))
En fait, quand tu mets :
Workbooks.Open Fichier
le chemin est le chemin par défaut, celui que tu obtiens avec CurDir.
Quand j'ai fait mes tests, le chemin par défaut était par hasard celui qui
était indiqué dans "Dossier", donc, je n'ai pas eu de problème. Dans le
cas contraire, il faut spécifier le chemin, sinon Excel est perdu et il le
dit.
Fichier=Dir sert à récupérer le nom du fichier suivant (et là, Excel a
conservé les paramètres passésdans : Fichier = Dir(Dossier & "*.xls")).
Hum je ne sais pas si j'ai été très clair...
Cordialement.
Daniel
"jps" a écrit dans le message de news:suite....
mais c'est quand même bizarre que le message d'alerte dise "fichier
introuvable" alors qu'il manquait le close du fichier en question (et des
autres pris dans le...looping)
juste une petite question : le Fichier = Dir juste avant le Loop, il sert
à quoi?
merci
jps
"Daniel" a écrit dans le message de news:
%Bien sûr. Au temps pour moi. Et il manquait le "close des fichiers :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel"
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Dossier & Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Workbooks(Fichier).Close False
Fichier = Dir
Loop
End Sub
Daniel
"jps" a écrit dans le message de news:bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et
qui est bien le premier de ceux contenus dans le répertoire concerné)
qui s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" a écrit dans le message de news:Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" a écrit dans le message de news:Merci, cela pourrait etre parfait mais il ya une erreur à la
tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" a écrit dans le message de
news:%Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend
la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Trop merci pour l'immortalisation ;-)))
En fait, quand tu mets :
Workbooks.Open Fichier
le chemin est le chemin par défaut, celui que tu obtiens avec CurDir.
Quand j'ai fait mes tests, le chemin par défaut était par hasard celui qui
était indiqué dans "Dossier", donc, je n'ai pas eu de problème. Dans le
cas contraire, il faut spécifier le chemin, sinon Excel est perdu et il le
dit.
Fichier=Dir sert à récupérer le nom du fichier suivant (et là, Excel a
conservé les paramètres passésdans : Fichier = Dir(Dossier & "*.xls")).
Hum je ne sais pas si j'ai été très clair...
Cordialement.
Daniel
"jps" a écrit dans le message de news:suite....
mais c'est quand même bizarre que le message d'alerte dise "fichier
introuvable" alors qu'il manquait le close du fichier en question (et des
autres pris dans le...looping)
juste une petite question : le Fichier = Dir juste avant le Loop, il sert
à quoi?
merci
jps
"Daniel" a écrit dans le message de news:
%Bien sûr. Au temps pour moi. Et il manquait le "close des fichiers :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel"
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Dossier & Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Workbooks(Fichier).Close False
Fichier = Dir
Loop
End Sub
Daniel
"jps" a écrit dans le message de news:bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et
qui est bien le premier de ceux contenus dans le répertoire concerné)
qui s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" a écrit dans le message de news:Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" a écrit dans le message de news:Merci, cela pourrait etre parfait mais il ya une erreur à la
tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" a écrit dans le message de
news:%Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend
la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Trop merci pour l'immortalisation ;-)))
En fait, quand tu mets :
Workbooks.Open Fichier
le chemin est le chemin par défaut, celui que tu obtiens avec CurDir.
Quand j'ai fait mes tests, le chemin par défaut était par hasard celui qui
était indiqué dans "Dossier", donc, je n'ai pas eu de problème. Dans le
cas contraire, il faut spécifier le chemin, sinon Excel est perdu et il le
dit.
Fichier=Dir sert à récupérer le nom du fichier suivant (et là, Excel a
conservé les paramètres passésdans : Fichier = Dir(Dossier & "*.xls")).
Hum je ne sais pas si j'ai été très clair...
Cordialement.
Daniel
"jps" <vaderetrosp@mas> a écrit dans le message de news:
eR5GQhFmHHA.4032@TK2MSFTNGP02.phx.gbl...
suite....
mais c'est quand même bizarre que le message d'alerte dise "fichier
introuvable" alors qu'il manquait le close du fichier en question (et des
autres pris dans le...looping)
juste une petite question : le Fichier = Dir juste avant le Loop, il sert
à quoi?
merci
jps
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23giVcTFmHHA.3736@TK2MSFTNGP03.phx.gbl...
Bien sûr. Au temps pour moi. Et il manquait le "close des fichiers :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel"
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Dossier & Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Workbooks(Fichier).Close False
Fichier = Dir
Loop
End Sub
Daniel
"jps" <vaderetrosp@mas> a écrit dans le message de news:
uH0RZHFmHHA.4772@TK2MSFTNGP05.phx.gbl...
bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et
qui est bien le premier de ceux contenus dans le répertoire concerné)
qui s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OtFuNEFmHHA.4876@TK2MSFTNGP03.phx.gbl...
Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" <Fan@NOSPAM> a écrit dans le message de news:
ONset1AmHHA.1216@TK2MSFTNGP03.phx.gbl...
Merci, cela pourrait etre parfait mais il ya une erreur à la
tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%239dwWm8lHHA.4624@TK2MSFTNGP04.phx.gbl...
Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend
la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" <Fan@NOSPAM> a écrit dans le message de news:
%23dj%23ye8lHHA.3496@TK2MSFTNGP03.phx.gbl...
Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance
Trop merci pour l'immortalisation ;-)))
En fait, quand tu mets :
Workbooks.Open Fichier
le chemin est le chemin par défaut, celui que tu obtiens avec CurDir.
Quand j'ai fait mes tests, le chemin par défaut était par hasard celui qui
était indiqué dans "Dossier", donc, je n'ai pas eu de problème. Dans le
cas contraire, il faut spécifier le chemin, sinon Excel est perdu et il le
dit.
Fichier=Dir sert à récupérer le nom du fichier suivant (et là, Excel a
conservé les paramètres passésdans : Fichier = Dir(Dossier & "*.xls")).
Hum je ne sais pas si j'ai été très clair...
Cordialement.
Daniel
"jps" a écrit dans le message de news:suite....
mais c'est quand même bizarre que le message d'alerte dise "fichier
introuvable" alors qu'il manquait le close du fichier en question (et des
autres pris dans le...looping)
juste une petite question : le Fichier = Dir juste avant le Loop, il sert
à quoi?
merci
jps
"Daniel" a écrit dans le message de news:
%Bien sûr. Au temps pour moi. Et il manquait le "close des fichiers :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel"
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Dossier & Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Workbooks(Fichier).Close False
Fichier = Dir
Loop
End Sub
Daniel
"jps" a écrit dans le message de news:bonjour daniel
j'ai le même problème
le message est "fichier introuvable" et pourtant le nom du fichier (et
qui est bien le premier de ceux contenus dans le répertoire concerné)
qui s'affiche dans l'avertissement est bien le bon....
le mystère reste entier...
jps
"Daniel" a écrit dans le message de news:Bonjour.
Peut-être que le fichier est protégé par un mot de passe ? Quel est le
message ?
Daniel
"Fan" a écrit dans le message de news:Merci, cela pourrait etre parfait mais il ya une erreur à la
tentative
d'ouverture du 1er fichier.
Une idée ?
Merci
"Daniel" a écrit dans le message de
news:%Bonjour.
En supposant que chaque classeur n'a qu'une feuille, sinon, on prend
la
feuille active :
Sub test()
Dim Dossier As String, Ctr As Long, Fichier As String
Dossier = "e:donneesdaniel" '********* A changer
Ctr = 1
Fichier = Dir(Dossier & "*.xls")
Do While Fichier <> ""
Workbooks.Open Fichier
ThisWorkbook.Sheets("Feuil1").Cells(Ctr, 1) = [A1]
Ctr = Ctr + 1
Fichier = Dir
Loop
End Sub
Cordialement.
Daniel
"Fan" a écrit dans le message de news:
%23dj%Bonjour,
Comment à partir d'un code VBA, rechercher dans tous les fichiers
d'un
même
répertoire la valeur contenu par exemple dans la cellule A1 de
ceux-ci.
Puis rappatrier l'ensemble des valeurs dans une colonne d'un autre
fichier.
Je vous remercie par avance