récup infos identiques plusieurs fichiers

ERIC S

XLDnaute Barbatruc

• 19 Avril 2006

• #2

Bonjour

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

Ce lien n'existe plus

A+

 

Vote positif 0 Vote négatif

N

NICO

Guest

• 19 Avril 2006

• #3

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.

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 19 Avril 2006

• #4

re

pas de fichier joint

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

A+

 

Vote positif 0 Vote négatif

N

NICO

Guest

• 19 Avril 2006

• #5

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]

 

Pièces jointes

• fichierstypes.zip

  6.2 KB · Affichages: 15

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 19 Avril 2006

• #6

re

petites questions:

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

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

A+

 

Vote positif 0 Vote négatif

N

NICO

Guest

• 19 Avril 2006

• #7

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'

 

Vote positif 0 Vote négatif

N

NICO

Guest

• 19 Avril 2006

• #8

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

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 19 Avril 2006

• #9

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]

 

Pièces jointes

• recueilbdd.zip

  12.6 KB · Affichages: 23

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 19 Avril 2006

• #10

re

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 19 Avril 2006

• #11

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

Cliquez pour agrandir...

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

 

Pièces jointes

• essai_20060419145305.zip

  8.8 KB · Affichages: 16

Vote positif 0 Vote négatif

N

NICO

Guest

• 19 Avril 2006

• #12

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

 

Vote positif 0 Vote négatif

N

NICO

Guest

• 19 Avril 2006

• #13

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

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 19 Avril 2006

• #14

re

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

A+

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 19 Avril 2006

• #15

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+

 

Vote positif 0 Vote négatif