récup infos identiques plusieurs fichiers

[Nico]

Bonjour,
Je souhaite monter une petite 'base de données'. J'ai actuellement une centaine de fichiers xl identiques dans lesquels je veux récupérer uniquement les infos de certaines cellules (toutes placées au même endroit dans chacun des fichiers!).
Est il possible d'automatiser la récup' dans un seul tableau ?
Merci d'avance pour votre aide

 

[ERIC S]

Bonjour

un autre fil qui peut peut-être t'aider

Ce lien n'existe plus

A+

 

[NICO]

Merci Eric,
Je t'avoue être totalement débutant et je suis un brin perdu. Ci joint des données type, si quelqu'un à le temps de 'bidouiller' là dessus.

 

[ERIC S]

re

pas de fichier joint

zippé, moins de 50k et sans caractères spéciaux

A+

 

[NICO]

sorry,
il y avait un espace dans le nom... (houuuu) [file name=fichierstypes.zip size=6382]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/fichierstypes.zip[/file]

 

[ERIC S]

re

petites questions:

tu veux récupérer les champs en jaune ?

penses-tu dépasser les 65000 lignes à récupérer?

A+

 

[NICO]

Seulement 200 environ, je n'ai besoin de tout cela que ponctuellement car une fois mes infos récupérées, je ne travaillerai plus que sur ma 'bdd'

 

[NICO]

et oui uniquement les cases jaunes....
@+

 

[ERIC S]

re

tu dézippes le fichier joint et tu le mets dans un répertoire

tu mets tes fiches dans un sous-répertoire que tu nommes 'Données'

tu ouvres le fichier et tu lances la macro

!!!!les fichiers que tu as joint ne sont pas tous identiques, loulou diffère des 2 autres

A+ [file name=recueilbdd.zip size=12938]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/recueilbdd.zip[/file]

 

[ERIC S]

re

contrairement à ce qui est écrit sur la feuille lisez-moi, le sous-répertoire Données est impératif

 

[Hervé]

Bonjour nico, eric


un autre code possible :

Sub Bouton1_QuandClic()
Dim chemin As String, rep As String, fichier As String
Dim ligne As Integer
Dim colonne As Byte
Dim cel

Application.ScreenUpdating = False

chemin = ActiveWorkbook.Path & '\\\\\\\\'
rep = Dir(chemin)

While Not rep = ''
If Not rep = ThisWorkbook.Name Then
ligne = ligne + 1
fichier = chemin & '[' & rep & ']'
colonne = 1
For Each cel In Array('A4', 'D4', 'A9', 'b11', 'd11', 'b13')
With Cells(ligne, colonne)
.Formula = '='' & fichier & 'Feuil1'!' & cel
.Value = .Value
End With
colonne = colonne + 1
Next cel
End If
rep = Dir
Wend

End Sub

largement inspiré d'une démo de l'ami MichelXLD, merci à lui

le fichier zip doit etre dézipper dans le meme répertoire que les fichiers sources.

salut [file name=essai_20060419145305.zip size=8989]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20060419145305.zip[/file]

Message édité par: hervé, à: 19/04/2006 15:00

 

[NICO]

Une galère de 2 h en moins de manip à la main,
Merci les gars vous êtes des chefs !

 

[NICO]

Et pour supprimer une partie du text dans X cellules (toujours le même text)en conservant seulement la fin, qq aurait un tips?

 

[ERIC S]

re

dans mon exemple, pour le nom et la ref client je supprime le début (lignes avec right())

A+

 

[ERIC S]

re

si ton fichier est déjà récupéré,
si tu veux supprimer 13 caractères

tu insères une colonne (ex en B)
tu écris = droite(A1,nbcar(A1)-13)
tu tires vers le bas
tu sélectionnes ta colonne B
tu fais copier/collage spécial/valeurs
tu vérifies
tu supprime A qui ne te sert plus

A+