Discussion :

[aweb]

Bonjour,
J'ai un fichier client composé d'environ 500 classeurs Excel.
Chaque classeur Excel correspond à un client différent.
Chaque classeur est créé de la même façon, c'est à dire le nom en A4, le prénom en B4, l'adresse en A5, etc.
Je voudrais récupérer toutes ces informations sur 1 seul classeur Excel, de manière à obtenir une liste récapitulative de mes clients pour pouvoir ensuite faire un publipostage.
Mon problème est de savoir comment je peux récupérer "automatiquement" les informations des 500 classeurs, sans avoir à les reprendre 1 par 1.
Espérant avoir été assez clair,
D'avance Merci pour votre aide,

[aweb]

Bonjour,
N'ayant pas eu de réponses, je voulais apporter des infos complémentaires et une intérrogation.
En fait, si je fais tout "à la main", le travail consisterait à ouvrir chaque classeur Excel, puis faire un copier/coller des cellules en question dans un classeur Excel "liste" qui me servira de base pour le publipostage.
Je pense qu'en faisant une macro c'est possible, mais avec l'enregistrement automatique de la macro, j'imagine que le nom du classeur Excel sera enregistré et que cela ne fonctionnera donc plus pour les suivants.
Je me demandais s'il était possible dans une macro de changer le nom du classeur en question et de la remplacer par une fonction, un nom... (ou autre) quelquonque qui permet d'enregistrer cette macro et qu'elle fonctionnera pour tous les classeurs Excel sur lesquels j'aurai à travailler.
Merci d'avance pour vos idées.

Voici la macro que je voudrais exécuter:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Client()
'
' Client Macro
'
    ActiveCell.Select
    ActiveCell.FormulaR1C1 = "='[Dupont J.xls]Feuil1'!R4C2"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "='[Dupont J.xls]Feuil1'!R5C2"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "='[Dupont J.xls]Feuil1'!R4C4"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "='[Dupont J.xls]Feuil1'!R5C4"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "='[Dupont J.xls]Feuil1'!R6C4"
    ActiveCell.Offset(-3, -4).Range("A1").Select
End Sub

Elle me permet de copier /coller différentes informations contenues dans le classeur "Dupont J.xls" dans mon classeur "Liste".

Mon idée est d'ouvrir un par un mes classeurs Excel Client, et d'exécuter la macro.
Le problème est que cette macro ne fonctionne que pour le classeur Excel nommé "Dupont J.xls".
Je voulais savoir comment remplacé "Dupont J.xls" par un nom commun qui fonctionnerait pour tous les classeurs Excel que j'ouvrirai un par un au fur et à mesure.
La procédure que je pensais utiliser.
J'ouvre le classeur Excel client Dupont, je lance la macro, cela me copie les données dans mon tableau final, puis je ferme le classeur Excel client Dupont.
Ensuite même chose pour le classeur Martin...
Merci pour votre aide

[Chipss]

Hmm tu reunis dans un classeur l'ensemble des noms de tes classeurs et avec une boucle tu stock à chaque fois le nom dans un variable. Pas sur ca marche mais bon.

Apres si tu boucle sur les 500 classeurs j'espere t'es pas pressé :p

[PPz78]

Regarde la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dir

elle permet de récupérer les noms des fichiers d'un répertoire durant une boucle.

Il suffit ensuite de recopier les informations utiles.

A+
PPz

[aweb]

Merci pour la réponse,
Je viens de regarder sur Internet des explications de la fonction Dir.
Je pense que çà devrait fonctionner.
Cependant, je ne suis pas assez calé... Je ne sais pas faire les boucles ou autres...
Quelqu'un pourrait me donner la macro à écrire pour que cela fonctionne.
Pour info, j'ai un dossier par lettre de l'alphabet, et à l'intérieur de chaque dossier, une multitude de classeur Excel pour chaque client.

Merci beaucoup

[Nako_lito]

dans l'ordre tu dois penser a faire ceci (j'ai fais la meme y'a quelque temps )

- pour tous les classeur de mon répertoire
- ouvrir le classeur
- copier les cellules voulues (ici A4, B4, A5 etc)
- copier dans l'activeworkbook les données en A & la derniereligne + 1
- fermer le classeur client
- fin pour

pour obtenir la derniere ligne d'une feuille, utilise la fonction 'end' de l'objet range.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("A65536").End(xlUp).Row

te donne la derniere ligne utilisé sur la colonne A.