recuperer les informations d'un autre document excel

bonjour à tous, :D

j'aimerai créer un document qui resemble à ca

Code:

---

1 2	nom doc__________%_____liste c8hf7-8-45-15 ___ 5 ____ 586, 984, 745

---

le nom du document je le rentre moi-même (avec un lien dessus)
mais j'aimerais pouvoir recuperer le % et ma liste qui se trouve dans un autre document (qui porte le nom qui se situe dans ma colonne "nom doc")

je voudrai faire ça de façon automatique (avec juste un appuie sur un bouton)

mon % se trouve toujours dans la même cellules
et ma liste dans la même colonne

Pour voir si ma colonne "nom doc" est vide j'utilise ce code

Code:

---

Range("A5").EntireColumn.SpecialCells(xlCellTypeConstants).Select <> ""

---

c'est le seul truc que j'ai reussi à faire pour l'instant et ça marche :D

mais comment faire pour affecter à la colonne E (à partir de E5) une valeur si il y a quelque chose dans la colonne A de la même ligne??:?

et comment faire pour recuperer les valeurs dans un autre document??:?


j'espere que j'ai été assez claire
et merci d'avance de m'aider

j'ai reussi à affecter une valeur sur ma colonne C en fonction de la colonne A (si elle est rempli ou pas) :yaisse:

il me reste donc à aller chercher une valeur dans un autre classeur.:(

quelqu'un peux m'aider? :help:

merci d'avance

Je me dévoue :(
Déjà, je ne comprends pas ta ligne

Citation:

---

Range("A5").EntireColumn.SpecialCells(xlCellTypeConstants).Select <> ""

---

Pour voir si ta colonne est vide, si tu sélectionnes A5 et que A4 est renseignée, tu ne le sauras pas. Ensuite, inutile de sélectionner la dernière ligne renseignée pour savoir si elle est renseignée. Si c'est A5 et que A5 n'est pas renseigné, tu auras un message d'erreur.
Enfin, évite d'utiliser Select

Je vais supposer que A5 est toujours renseigné, tu obtiendras la même chose en faisant :

Code:

---

1 2	Vide = Range("A5").EntireColumn.SpecialCells(xlCellTypeConstants).Row = 5 msgbox Vide 'Juste pour que tu puisses voir que je dis vrai ^^

---

Pour le reste, peux-tu reformuler ton pb, j'ai peur de ne pas avoir compris :(
A+

J'ai enlever ce morceau de code

Code:

---

Range("A5").EntireColumn.SpecialCells(xlCellTypeConstants).Select <> ""

---

je voulais juste savoir si mes cellules de A5 à A35 etait vide ou non (le reste je m'en fiche) et si elles ne sont pas vide je remplis mes cellules C5 à C35 (celle qui correspond au case non vide)

pour cela j'ai fais ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim val, compteur   For compteur = 5 To 35 Range("A" & compteur).Select Range("C" & compteur).Select If Range("A" & compteur).Value <> "" Then nom = Range("A" & compteur).Value & (".xsl") Range("C" & compteur).Value = "OK" End If   Next

---

ca marche tres bien :D

maintenant ce que je voudrai
c'est pouvoir remplir ma cellule C ( à la place du "OK" ) avec une donnée qui se trouve dans un autre classeur (et qui se situe toujours dans la même colonne).
le nom de ce classeur je le recupere dans ma variable "nom" (ca marche aussi :D )

Mais comment faire maintenant pour recupere la valeur dans l'autre classeur?

j'espere que je suis un peu plus clair
n'hesitez pas à me poser des questions sinon

Il suffit que tu désignes l'autre classeur ;)

Code:

---

1 2 3 4

If Range("A" & compteur).Value <> "" Then nom = Range("A" & compteur).Value & (".xsl") Range("C" & compteur).Value = Workbooks("NomDeLautreClasseur.xls").worksheets("NomDeLaFeuille").cells(NoLigne,NoColonne).value End If

---

Je suppose que tu es dans le classeur devant recevoir la donnée et que l'autre classeur a été ouvert au préalable.
Tu dis

PS - Oui, c'était plus clair :lol:

donc oui je suis dans le classeur qui doit recevoir la donnée
mais l'autre classeur n'est pas forcement ouvert

j'ai essayé ton code mais ca bug
j'ai ce message :

Code:

---

1 2	Erreur d'execution '9': l'indice n'appartient pas à la sélection

---

et il coince sur :

Code:

---

Range("B" & compteur).Value = Workbooks(nom).Worksheets("résumé").Cells(16, 13).Value

---

c'est peut etre à cause de "nom"

car j'ai un classeur par ligne donc j'ai mis le nom du classeur dans une variable
(j'ai fait le teste avec les classeurs ouverts)

Avant ta ligne, vérifie ce que tu as dans "nom" (debugprint ou msgbox nom)
Sinon, vérifie le nom de ta feuille, sinon, assure-toi que ton classeur est ouvert, sinon... :( j'vois pas :(
Un conseil : Donne plus de code qu'on y voit plus clair. Où ouvres-tu ton classeur ? Où prends-tu son nom ? dans la même procédure ? etc...

bah il me recupere bien le bon nom de classeur
et ma feuille a bien le bon nom
:cry:

voila mon code entier :

Code:

---

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

Sub Bouton1_QuandClic() Dim val, compteur   For compteur = 5 To 35 Range("A" & compteur).Select Range("B" & compteur).Select Range("C" & compteur).Select If Range("A" & compteur).Value <> "" Then nom = Range("A" & compteur).Value & (".xls") Range("B" & compteur).Value = Workbooks(nom).Worksheets("Résumé").Cells(16, 13).Value Range("C" & compteur).Value = "ok" End If   Next   End Sub

---

je trouve le nom du classeur à ouvrir dans la colonne A (du classeur dans lequel je dois recevoir les données)

sur les noms dans la colonne A, j'ai créé un lien hypertexte pour ouvrir mes classeurs (si besoin)

est ce que je dois forcer l'ouverture des autres classeurs (avec ensuite leurs fermetures)??
ou bien indiquer dans mon code comment il doit acceder au classeur??

J'ai fait deux fois allusion à un fichier ouvert au préalable... Oui, le fichier contenant la données à récupérer doit être ouvert au préalable.
Tu récupères son nom, c'est bien... Tu dois également avoir son chemin (!)... Tu l'ouvres... et enfin tu peux lire ce qu'il y a dedans.

j'ai essayé ca

Code:

---

Application.Workbooks.Open ("T:\Projet Protéomique Externe\Brest\EDITH-I-05121\Résultats Clinprotools 3\C8\TEST Laetitia\C8 HCCA validation ter\" & nom)

---

mais j'ai une erreur dans le "nom"
il me met qui ne le trouve pas, c'est bizarre car il m'ouvre bien le bon document

mais il me prend le nom qui se trouve dans une des cellules du document qu'il vien d'ouvrir

je dois pas avoir la bonne formule pour l'ouverture

Je crois que tu as vérifier nom... et qu'il possède bien l'extension .xls... alors essaie ça :

Code:

---

Application.Workbooks.Open filename:="T:\Projet Protéomique Externe\Brest\EDITH-I-05121\Résultats Clinprotools 3\C8\TEST Laetitia\C8 HCCA validation ter\" & nom

---

Tu dis

j'ai essayé et j'ai toujours la même erreur

c'est à dire qu'il m'ouvre bien le bon document pour la premiere ligne
mais apres il prend le nom dans le document que je vient d'ouvrir donc il me met une erreur
et il me prend pas la donnée à remettre dans l'autre document

je sais pas si je suis tres clair

je remet mon code (j'ai peut etre mis Application.Workbooks au mauvais endroit) :

Code:

---

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

Dim val, compteur   For compteur = 5 To 35 Range("A" & compteur).Select Range("B" & compteur).Select Range("C" & compteur).Select If Range("A" & compteur).Value <> "" Then nom = Range("A" & compteur).Value & (".xls") Application.Workbooks.Open Filename:="T:\Projet Protéomique Externe\Brest\EDITH-I-05121\Résultats Clinprotools 3\C8\TEST Laetitia\C8 HCCA validation ter\" & nom Range("B" & compteur).Value = Workbooks(nom).Worksheets("Résumé").Cells(16, 13).Value Range("C" & compteur).Value = "ok" End If   Next

---

j'ai pas tout lu mais ton probléme doit venir du fait que tu utilise le classeur actif.. !
sans rien devant
range(...
te permet d'accéder au classeur actif..! et lorsque tu ouvre un classeur tu change de classeur actif... ! ... d'ou au retour de ta boucle..probléme tu n'est pas dans le bon classeur...

soit tu précéde tous tes range... d'un ThisWorkBook.Range.... ou si tu trouve trop long utilise un with ..

Code:

---

1 2 3 4 5

with ThisWorbook   .Range("A2"). end With

---

dans ce cas la tu met un . à la place de ThisWorbook.

oui tu as bien compris le probléme :D

j'ai essayé en mettant ThisWorbook devant tous mes Range
mais il me met:

Code:

---

membre de méthode ou de données introuvable

---

y a une reference à mettre?
ou ca vient d'autre chose?

Aïe ! Pauvre... :aie:
Dim val, compteur

Code:

---

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

For compteur = 5 To 35 Range("A" & compteur).Select Range("B" & compteur).Select Range("C" & compteur).Select If Range("A" & compteur).Value <> "" Then nom = Range("A" & compteur).Value & (".xls") Application.Workbooks.Open Filename:="T:\Projet Protéomique Externe\Brest\EDITH-I-05121\Résultats Clinprotools 3\C8\TEST Laetitia\C8 HCCA validation ter\" & nom DoEvents 'Laisse le temps au fichier de s'ouvrir 'Là, tu es dans le fichier que tu viens d'ouvrir, donc... Thisworkbook.Range("B" & compteur).Value = Workbooks(nom).Worksheets("Résumé").Cells(16, 13).Value Thisworkbook.Range("C" & compteur).Value = "ok" End If   Next 'Thisworkbook est le fichier contenant la macro

---

Essaie de comprendre la démarche
Tu es dans le fichier contenant la macro : Tu lis le nom du fichier à ouvrir -> nom
Quand ce fichier est ouvert tu es dans le fichier nom
Donc, pour faire référence au fichier contenant la macro, soit tu le nommes (Workbooks(NomDuFichierAmacro).range etc
soit tu utilises Thisworkbook ;)
Tu dis

ca ne passait pas avec thisworkbook mais en mettant Workbooks(NomDuFichierAmacro).range ca marche bien

merci bcp :D

une derniere petite question :D

il me met une erreur en me disant qu'il ne trouve pas le classeur (normal puisque la colonne est vide)

j'ai donc mis ca :

Code:

---

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

For compteur = 5 To 35 Range("A" & compteur).Select Range("B" & compteur).Select Range("C" & compteur).Select If Range("A" & compteur).Value <> "" Then nom = Workbooks("C8HCCA resultats ter.xls").Worksheets("non classes").Range("A" & compteur).Value & (".xls") Application.Workbooks.Open Filename:="T:\Projet Protéomique Externe\Brest\EDITH-I-05121\Résultats Clinprotools 3\C8\TEST Laetitia\C8 HCCA validation ter\" & nom Workbooks("C8HCCA resultats ter.xls").Worksheets("non classes").Range("B" & compteur).Value = Workbooks(nom).Worksheets("Résumé").Cells(16, 13).Value Workbooks("C8HCCA resultats ter.xls").Worksheets("non classes").Range("C" & compteur).Value = "ok" Else Exit For End If Next

---

mais il me met toujours le même message
comment lui faire comprendre que si il n'y a rien il s'arrete?

Oui, c'est une solution... Personnellement, j'utilise la gestion d'erreur éventuellement associé à Resume

Code:

---

1 2 3 4 5 6 7 8 9

On error resume next nom = Workbooks("C8HCCA resultats ter.xls").Worksheets("non classes").Range("A" & compteur).Value & (".xls") Application.Workbooks.Open Filename:="T:\Projet Protéomique Externe\Brest\EDITH-I-05121\Résultats Clinprotools 3\C8\TEST Laetitia\C8 HCCA validation ter\" & nom if err <> 0 then exit for Workbooks("C8HCCA resultats ter.xls").Worksheets("non classes").Range("B" & compteur).Value = Workbooks(nom).Worksheets("Résumé").Cells(16, 13).Value Workbooks("C8HCCA resultats ter.xls").Worksheets("non classes").Range("C" & compteur).Value = "ok" End If Next On error goto 0

---

L'intérêt n'est pas ici mais dans certains cas, cela peut être intéressant.
Imagine que tu veuilles écrire dans un fichier fermé, tu as une erreur, si (if err then) tu as une erreur tu ouvres ton fichier sur la ligne suivante. Associé avec Resume, placé après ouverture du fichier, tu retournes sur l'instruction ayant généré l'erreur et tu peux écrire dans le fichier maintenant ouvert.
Bref, j'ai pris cette habitude mais ce que tu as fait est parfaitement adapté à ton cas ;)