créer liste + ouvrir fichiers à partir liste + copier données
2 réponses
danielrv
Bonjour,
Je viens pour poser une question qui en comprend 3.....
J'ai parcouru différents messages et je n'ai pas trouvé ou pas su
l'appliquer.
1er je souhaiterais ouvrir des fichiers à partir d'une liste de ce type
(sur un réseau : un sous-dossier principal qui comprend différents dossiers
dans lesquels se trouvent différents fichiers identiques, mais les noms
n'ont aucun rapport)
N:\collecte\report\[Recap 01.xls]Liste'
N:\collecte\report\[Région 01.xls]Liste'
N:\collecte\stat\[test 02.xls]Liste'
N:\collecte\stat\[DENO.xls]Liste'
2ème, s'il était possible de créer cette liste par VBA (accessoirement)
3ème La boucle pour recopier les données des onglets liste pour les recopier
dans un classeur principal avec des onglets qui correspondent aux
sous-répertoires du sous-dossier "collecte".
Les onglets "liste" sont tous identiques en colonnes, mais avec des nombres
de lignes différents...
Cest une demande un peu longue et très complète, mais c'est pour un boulot
que l'on me demande et le faire avec le peu que je connais, j'aboutirais à
une macro vraiment énorme (en taille).
Merci par avance, déjà d'avoir lu jusqu'ici, et pour les réponses que vous
pourrez m'apporter.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Clément Marcotte
Bonjour,
1er je souhaiterais ouvrir des fichiers à partir d'une liste de ce type (sur un réseau : un sous-dossier principal qui comprend différents dossiers dans lesquels se trouvent différents fichiers identiques, mais les noms n'ont aucun rapport)
En supposant que la liste se trouve en colonne "A" d'une feuille de calcul (Pas testé)
Sub ouvrelaliste() dim derniereligne as long, i as long 'Rechercher le numéro 'de la dernière ligne occupée derniereligne range("a65536").end(xlup).row for i = 1 to derniereligne workbooks.open cells(i,1).value next end sub
2ème, s'il était possible de créer cette liste par VBA (accessoirement)
Il y a quelques exemples sur le site de Frédéric Sigonneau:
http://frederic.sigonneau.free.fr/Fichiers.htm
et probablement aussi sur Excelabo:
http://www.excelabo.net
Ou sur la FAQ:
http://dj.joss.free.fr/faq.htm
Bonjour,
1er je souhaiterais ouvrir des fichiers à partir d'une liste de ce type
(sur un réseau : un sous-dossier principal qui comprend différents
dossiers dans lesquels se trouvent différents fichiers identiques, mais
les noms n'ont aucun rapport)
En supposant que la liste se trouve en colonne "A" d'une feuille de calcul
(Pas testé)
Sub ouvrelaliste()
dim derniereligne as long, i as long
'Rechercher le numéro
'de la dernière ligne occupée
derniereligne range("a65536").end(xlup).row
for i = 1 to derniereligne
workbooks.open cells(i,1).value
next
end sub
2ème, s'il était possible de créer cette liste par VBA (accessoirement)
Il y a quelques exemples sur le site de Frédéric Sigonneau:
1er je souhaiterais ouvrir des fichiers à partir d'une liste de ce type (sur un réseau : un sous-dossier principal qui comprend différents dossiers dans lesquels se trouvent différents fichiers identiques, mais les noms n'ont aucun rapport)
En supposant que la liste se trouve en colonne "A" d'une feuille de calcul (Pas testé)
Sub ouvrelaliste() dim derniereligne as long, i as long 'Rechercher le numéro 'de la dernière ligne occupée derniereligne range("a65536").end(xlup).row for i = 1 to derniereligne workbooks.open cells(i,1).value next end sub
2ème, s'il était possible de créer cette liste par VBA (accessoirement)
Il y a quelques exemples sur le site de Frédéric Sigonneau:
http://frederic.sigonneau.free.fr/Fichiers.htm
et probablement aussi sur Excelabo:
http://www.excelabo.net
Ou sur la FAQ:
http://dj.joss.free.fr/faq.htm
danielrv
Bonjour et merci pour la macro et les infos, mais comme je l'ai dis, je suis débutant et adapter des macros c'est vraiment pas évident. Je viens d'aller voir sur le site http://frederic.sigonneau.free.fr/Fichiers.htm que je ne connaissais pas (encore une mine d'or), j'en ai profité pour télécharger tous les modules (97) et j'en ai vu un qui correspond pour le détail d'un dossier (sous-dossiers et fichiers), je vais voir, mais pour le reste, s'il était possbile de m'aiguiller, car là ma question est je pense pointue et avant de trouver exactement ce à quoi je veux arriver, on va changer de version d'excel au boulot (2000) ;-). Bonne soirée.
"Clément Marcotte" a écrit dans le message de news: %
Bonjour,
1er je souhaiterais ouvrir des fichiers à partir d'une liste de ce type (sur un réseau : un sous-dossier principal qui comprend différents dossiers dans lesquels se trouvent différents fichiers identiques, mais les noms n'ont aucun rapport)
En supposant que la liste se trouve en colonne "A" d'une feuille de calcul (Pas testé)
Sub ouvrelaliste() dim derniereligne as long, i as long 'Rechercher le numéro 'de la dernière ligne occupée derniereligne range("a65536").end(xlup).row for i = 1 to derniereligne workbooks.open cells(i,1).value next end sub
2ème, s'il était possible de créer cette liste par VBA (accessoirement)
Il y a quelques exemples sur le site de Frédéric Sigonneau:
http://frederic.sigonneau.free.fr/Fichiers.htm
et probablement aussi sur Excelabo:
http://www.excelabo.net
Ou sur la FAQ:
http://dj.joss.free.fr/faq.htm
Bonjour et merci pour la macro et les infos, mais comme je l'ai dis, je suis
débutant et adapter des macros c'est vraiment pas évident.
Je viens d'aller voir sur le site
http://frederic.sigonneau.free.fr/Fichiers.htm que je ne connaissais pas
(encore une mine d'or), j'en ai profité pour télécharger tous les modules
(97) et j'en ai vu un qui correspond pour le détail d'un dossier
(sous-dossiers et fichiers), je vais voir, mais pour le reste, s'il était
possbile de m'aiguiller, car là ma question est je pense pointue et avant de
trouver exactement ce à quoi je veux arriver, on va changer de version
d'excel au boulot (2000) ;-).
Bonne soirée.
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news: %236F2fXWFGHA.1312@TK2MSFTNGP09.phx.gbl...
Bonjour,
1er je souhaiterais ouvrir des fichiers à partir d'une liste de ce type
(sur un réseau : un sous-dossier principal qui comprend différents
dossiers dans lesquels se trouvent différents fichiers identiques, mais
les noms n'ont aucun rapport)
En supposant que la liste se trouve en colonne "A" d'une feuille de calcul
(Pas testé)
Sub ouvrelaliste()
dim derniereligne as long, i as long
'Rechercher le numéro
'de la dernière ligne occupée
derniereligne range("a65536").end(xlup).row
for i = 1 to derniereligne
workbooks.open cells(i,1).value
next
end sub
2ème, s'il était possible de créer cette liste par VBA (accessoirement)
Il y a quelques exemples sur le site de Frédéric Sigonneau:
Bonjour et merci pour la macro et les infos, mais comme je l'ai dis, je suis débutant et adapter des macros c'est vraiment pas évident. Je viens d'aller voir sur le site http://frederic.sigonneau.free.fr/Fichiers.htm que je ne connaissais pas (encore une mine d'or), j'en ai profité pour télécharger tous les modules (97) et j'en ai vu un qui correspond pour le détail d'un dossier (sous-dossiers et fichiers), je vais voir, mais pour le reste, s'il était possbile de m'aiguiller, car là ma question est je pense pointue et avant de trouver exactement ce à quoi je veux arriver, on va changer de version d'excel au boulot (2000) ;-). Bonne soirée.
"Clément Marcotte" a écrit dans le message de news: %
Bonjour,
1er je souhaiterais ouvrir des fichiers à partir d'une liste de ce type (sur un réseau : un sous-dossier principal qui comprend différents dossiers dans lesquels se trouvent différents fichiers identiques, mais les noms n'ont aucun rapport)
En supposant que la liste se trouve en colonne "A" d'une feuille de calcul (Pas testé)
Sub ouvrelaliste() dim derniereligne as long, i as long 'Rechercher le numéro 'de la dernière ligne occupée derniereligne range("a65536").end(xlup).row for i = 1 to derniereligne workbooks.open cells(i,1).value next end sub
2ème, s'il était possible de créer cette liste par VBA (accessoirement)
Il y a quelques exemples sur le site de Frédéric Sigonneau:
