Solution pour localiser des donnees dans un classeur

Version imprimable

29/03/2016, 15h34
lulu_MAHC

Solution pour localiser des donnees dans un classeur

Bonjour a tous ,

je suis confronte a plusieurs milliers de fichiers excels qui peuvent etre differents selon leur dates ou d'autres parametres, ce sont en fait des fiches produits . Le but final est de transferer certaines donnees contenues dans ses fiches produits dans une base de donnees . Je pense passer par une macro pour l'automatisation .. Le probleme actuel etant de savoir COMMENT localiser ses donnees ...

En effet si on compare un excel a du XML , les donnees d'un XML sont tous 'localisable' grace a leur balises correspondantes .... Je demande alors ici un tuyau, une astuce, une idee, une manipulation, un add-in excel ou tout autres outils qui pourrait me permettre de localiser ses donnees. Dans l'idee de base je cherchais a me rapprocher d'un format XML mais apparement ce n'est pas possible ..

Alors si quelqu'un a deja eu a faire face a ce genre de problematique ou qu'il connait quelque chose susceptible de m'interesser je prend tout ! Meme une micro idee ...

Pour tout vous dire je suis un peu desesperer face a ces fichiers Excels, la moindre aide sera la bienvenue !

Merci d'avance
29/03/2016, 16h27
Menhir

Une astuce peu connue : chaque cellule peut être repérée par son numéro de ligne et de colonne. :mrgreen:

Plus sérieusement, je ne vois pas comment il serait possible de t'aider avec une demande aussi vague.
On ne sait pas à quoi ressemble la structure de tes données source et tu voudrais qu'on t'indique comment y retrouver des données dont on ne connait pas la nature. :koi:

Peut-être y a-t-il une désignation dans tes feuilles que tu pourrais repérer et en déduire la position de données que tu souhaite extraire.
29/03/2016, 16h38
lulu_MAHC

1 pièce(s) jointe(s)

ahah oui tu as raison ... c'est vrai que ca me parait plus que clair vu que je suis dedans depuis des semaines mais en y repensant ca ne l'est pas du tout pour vous , voici alors un exemple de fichier, les donnees ( confidentielles) on ete grisees, mais elles sont contenues dans les case bleues ( qui sont devenues noires). Il peut s'agir aussi de vouloir recuperer si telle ou telle case est cochees..

Le truc c'est que suivant les dates et les clients , les donnees ne sont pas toutes a la meme positions ... Impossible donc de se servir des numero de lignes/colonnes ...

Pièce jointe 205310
29/03/2016, 17h25
Menhir

Le fait qu'il y ait des fuzions dans tous les sens ne va pas faciliter les chose. 8O

Pour les données comme le nom de client, tu peux demander à ta macro de rechercher le texte "Customer Name".
Une fois que tu as la cellule concernée, tu cherches la première cellule non vide vers la droite et tu auras ta donnée.

Si tu fais une liste des désignations de données à chercher, tu peux mettre ça dans une boucle, ce qui t'éviteras d'avoir à copier les lignes concernées autant de fois qu'il y a de données à chercher.

Pour les boutons, ça risque d'être plus coton.
Si les textes font partie du bouton, tu peux faire une boucle sur la collections Shapes de la feuille pour y chercher les textes en question avec la propriété Characters.Text (s'il s'agit d'un bouton de formulaire).
Si les texte ne font pas partie des boutons, il faudra trouver la cellule où il se trouve et ensuite faire une boucle sur tous les Shapes pour savoir lequel est le plus proche.

Un vrai casse-tête.
29/03/2016, 18h33
cerede2000

Je dirais même une belle usine à charbon en perspective :mouarf: Et va falloir pelleter :aie:
Tous les contrôles ActiveX placé sur les feuilles vont être une horreur à traiter....

Dans un premier temps tu devrais identifier de manière global les différents scénario en analysant les principales différences entre les versions de classeurs.
Ça te permettra d'y voir plus clair.

Ensuite tu prends le classeur le plus farfelu, avec le plus de contrôles...
Tu fait une macro de traitement propre de ce classeur et ensuite tu l'adapte pour qu'elle traite les différents cas que tu aura listé précédemment :)
29/03/2016, 18h52
kiki29

Salut, y a-t-il des plages nommées ?
30/03/2016, 08h58
lulu_MAHC

C'est en effet les reponses auxquelles je m'attendais .. J'avais effectivement pense a quelque chose comme ce que vient de proposer Menhir ... Et en effet cerede je pense que je ne suis pas au bout de mes peines .. Par contre, qu'appelles-tu controle Active X sur ce fichier ? Mais sinon je pense que je vais suivre ton conseil et essayer de faire tourner une macro sur le fichier le plus complexe et adapter par la suite pour le reste

Pour repondre a kiki29 .. malheureusement non .. aucune plage de cellules n'est nommee .. Ca aurait ete trop facile ahah

En tout cas, merci pour vos reponses
30/03/2016, 09h04
cerede2000

Tu as dans tes feuilles des RadiosButton, des ComboBox, des ChecksBox....
Ce sont des contrôles qui en générale sont en fait des ActiveX ;)
30/03/2016, 09h07
Menhir

Citation:

Envoyé par lulu_MAHC

qu'appelles-tu controle Active X sur ce fichier ?

Fais Ruban Développeur > Insérer
Tu verras qu'il y a deux groupes de boutons : les contrôles de formulaires et les contrôles ActiveX.
Dans chaque groupe se trouvent des éléments (plus ou moins) semblables (boutons, listes, etc.) qui font à peu près la même chose mais ne le font pas de la même manière. Au niveau VBA, en particulier, leurs traitements sont très différents, même si, d'un point de vue extérieur, les deux peuvent se ressembler beaucoup.

merci pour la reponse
J'ai commence a bidouiller un truc comme menhir me la conseille et je suis bloque sur la boucle permettrant de trouver la premiere cellule non vide . Je te montre ce que j'ai fait si tu peux me conseiller pour cette partie la ce serait sympa

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Sub TestExcel()
 Dim TabData(5)
 
 TabData(1) = "Husky Project": TabData(2) = "Customer Name":
Dim Localise
 
 Dim Compteur As Integer
 
    For Compteur = 1 To 2
        TabData(Compteur) = Cells.Find(What:=TabData(Compteur), LookAt:=xlPart)
        Cells.Find(What:=TabData(Compteur), LookAt:=xlPart).Activate
        Rows(ActiveCell.Row).Select   ' ici c'est un debut mais j ai toute la ligne et pas juste la partie qui m interesserais 
        MsgBox (TabData(Compteur))
 
            For Each Cell In ActiveRow ' ici je pense que l instruction ActiveRow ne fonctionne pas 
                If Cell <> 0 Then
                G = Cell.Value
                Exit For
                Else
                End If
            Next
 
 
 
Next
 
End Sub

merci d'avance