[VBA-E]récupérer donnée autre fichier

Salut à tous,
Je suis actuellement en train de reprendre une base de donné sur du matériel, actuellement chaque appareil est placé dans un dossier à son nom et puis dans un autre dossier qui représente la famille du matériel ( exemple : pour le matérielle K012 qui est une alimentation : C:\...\Alimentation\K012\K012.xls), mon travail est de faire une base commune plus précise.
Je recherche donc un moyen de récupérer une donné ( toujours placé au même endroit dans les fiches ).
J'ai commencé par concaténer certaine info pour faire des hyperliens vers les fiches, et je pensais faire = et cliquer dans la cellule qui correspondait à l'info recherché, pour récupérer celle ci, mais sur plus de 2000 matériels ce n'est pas envisageable, on m'a donc conseillé de faire une macro permettant de récupérer l'info, mais je n'y connais rien :j'ai trouvé

Code:

---

1 2 3 4 5 6 7 8

Sub Macro3() Workbooks.Open Filename:= _ "C:\........\K012\K012.xls" Windows("Monfichier.xls").Activate Range("B2").Select ActiveCell.FormulaR1C1 = "=[K012.xls]ENR030!R18C3" Workbooks("K012.xls").Close End Sub

---

j'ai trouvé cela en manipulant et allant voir l'info sur VB6
Je cherche donc un moyen de faire une boucle permettant pour chaque ligne d'aller chercher l'info dans le fichier spécifique.
si quelqu'un à une idée merci d'avance.
ferronimus

Tu es sur Excel (VBA-E) ou sur VB6 ? Parce que ta macro, là c'est du VBA Excel, pas du VB6 ;)

salut
ça dépend aussi si tu veux
récuperer tes fichier et en faire un fichier avec les alimentations ( k012, k..)
ou récuperer tt les fichiers Ko12 pour avoir tout ce qui compose le k012.
mais sinon, tu as tout interet a ne pas lier tout ça, mais a recréer des fichier.
et après ça dépend si tout tes vieux fichiers ont la même organistion interne
si par exemple c'est une fiche par fichier, avec le nom k012 toujour dans la même cellule, ou si c'est plus complexe, et que pour chaque materiel, tu soit obligé de le visionner. mais en gros

Code:

---

1 2 3 4 5 6

for each fichier in tel répertoire fichier open ma fiche copie mon fichier. colle vieux fichier close next fichier

---

un peu simpliste ce que je te dis là, mais à la fois on en sait pas assez

je suis en effet en Excel (VBA-E) et je cherche à récupérer une info toujours placé dans la même cellule dans chaque fichier de matériel, pour la placé dans mon fichier final

Mais est-il possible d'utiliser des liens hypertexte qui mène à mes fiches pour récupérer l'info rechercher
du genre

Code:

---

1 2 3 4 5 6 7

Sub Macro3() Workbooks.Open Filename:= lien hypertexte de la cellule A3 vers ma fiche Windows("monfichier.xls").Activate Range("B3").Select ActiveCell.FormulaR1C1 = "=[MAFICHE.xls]ENR030!R18C3" Workbooks("MAFICHE.xls").Close End Sub

---

et je n'aurais plus qu'a faire une boucle pour faire cela à tous lesfichier

Tu mets une adresse pour le lien hypertexte mais tous tes liens ne sont pas à la même adresse, ou alors tu ouvres toujours le même fichier...
Comment sont organisés ces liens ?

Ensuite, tu mets

Citation:

---

Windows("monfichier.xls").Activate
Range("B3").Select
ActiveCell.FormulaR1C1 = "=[MAFICHE.xls]ENR030!R18C3"

---

et je ne pense pas que tu places toujours cette formule dans la même cellule. Tu incrémentes le No de ligne pour chaque formule ?

en effet chaque matériel à un lien hypertexte différent et ils ne sont pas dans le même dossier
si on prend un exemple le matériel K012 qui est une alimentation
il se trouve dans C:\...\matériel\alimentation\k012\k012.xls
la partie en rouge est commune à chaque matériel
par contre chaque fiche matériel est fait de la même façon, l'information recherché est toujours dans la même cellule
j'ai pencer à une structure ( désolé pour la synthaxe)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

sub macro() Dim i As Integer For i = 1 To 2000 Step 1   Workbooks.Open Filename:= lien hypertexte de la cellule Ai Windows("Monfichier.xls").Activate Range(Bi).Select ActiveCell.FormulaR1C1 = "=[Ai.xls]ENR030!R18C3" Workbooks("Ai.xls").Close   Next i End Sub

---

pas besoin d'ouvrir tes fichier pour faire des liens hypertexte qui i menent

Code:

---

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Monfichier.xls"

---

mais ce n'est pas ça dont tu as besoin

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim stFichier stFichier = Application.GetOpenFilename With Application.FileSearch .NewSearch .LookIn = chemin(stFichier) .Execute On Error Resume Next Application.ScreenUpdating = False For Each f In .FoundFiles Workbooks.Open f

---

apres ça diverge
cells (ma detination) = range("a3")
ou cells(ma detination) = range("a3") avec une liaison
ou tu veux juste ouvrir le fichier
ou juste copier coller

salut
il n'est pas nécessaire d'ouvrir lefichier il faut seulement récupérer la valeur d'une certaine cellule et faire en sorte qu'elle change automatiquement si lefichier source change
mais personne ne ma répondu si on pouvait utilisé un lien hypertexte (présent dans ma feuille de calcul), dans le macro, pour récupérer la dite valeur
ferronimus

Oui, tu peux récupérer la valeur si la mise à jour est automatique. C'est comme pour les autres cellules.
Dans Excel -> Menu Edition -> Liaisons -> Mise à jour automatique (par défaut)

Voila, j'ai un peu travaillé sur mon projet de refaire une nouvelle base de donnée,
en incorporant des données d'autre fichier.
J'ai donc refais un programme

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Macro1()   Dim fichxl As String Dim i As Integer   For i = 3 To 2000     fichxl = Dir("C:\...\" & Range("2,i").Select & "\" & Range("7,i").Select & "\" & Range("7,i").Select & ".XLS")   Workbooks.Open Filename:= _ fichxl Windows("nouvelle base.xls").Activate Range("17,i").Select ActiveCell.FormulaR1C1 = "=[fichxl]ENR030!R18C3" Workbooks(fichxl).Close     Next i End Sub

---

mais il ne fonctionne pas je comprend pas pourquoi si quelqu'un à une idée
merci d'avance
ferronimus

Citation:

---

Envoyé par ferronimus

mais il ne fonctionne pas je comprend pas pourquoi si quelqu'un à une idée

---

Non, on n'a pas d'idée...

Si tu ne nous dis pas ce qui ne fonctionne pas, on ne peut faire qu'essayer de deviner.
Et parfois, on n'en a pas le courage...

+1
Tout comme Alain, on ne peut que conjecturer mais déjà ferronimus t'a dit quelque chose, tu devrais lire, c'est intéressant pour ton problème.
Ensuite, après avoir inséré ton lien, ajoute cette ligne

Code:

---

Application.calculate

---

Ça mange pas de pain ;)

quand je parlais d'idée je pensais plus à un problème de synthaxe en effet mon problème vient de la ligne :

Code:

---

fichxl = Dir("C:\...\" & Range("2,i").Select & "\" & Range("7,i").Select & "\" & Range("7,i").Select & ".XLS")

---

problème débogage
Etant donnée que ces cette ligne la qui à un problème, rajouter Application.calculate ne donnerait rien.

Euh... Qu'espères-tu obtenir avec cette syntaxe:

Code:

---

Range("2,i")

---

Code:

---

Range("2,i")

---

je souhaiterais obtenir le texte qui est placé dans la cellule de la 2eme collone et de la ieme ligne afin de compléter mon adresse pour fichxl

Code:

---

fichxl = Dir("C:\...\" & Range("2,i").Select & "\" & Range("7,i").Select & "\" & Range("7,i").Select & ".XLS")

---

AlainTech t'a posé une question qui aurait dû "t'interpeler" :mouarf:
Si i est une variable et il me "semble" que c'est le cas, ce n'est pas [Range("2,i")] mais range("B" & i)
Ensuite ce n'est pas Select pour avoir le contenu de la cellule mais .value ;)
Bonne après-midi

Désoler mais je n'avais jamais fais de programation de ma vie avant la semaine dernière je ne connais pas toutes les synthaxe merci encore

En fait, tu y étais presque...

A la place de Range, utilise Cells.
Dans ce cas, tu peux écrire

Code:

---

Cells(i, 2) ' Les paramètres de Cells sont d'abord la ligne, puis la colonne

---

Merci beaucouppour votre aide cela fonctionne