Récupérer valeur cellule dans classeur

Version imprimable

Bonjour,

J'essaye de récupérer des valeurs dans un classeur, le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub Macro1() Dim disk, doss, doss2 As String Dim chem1, chem2 As String Workbooks.Open Filename:="C:\e\a.xls" disk = Range("A1").Value doss = Range("A2").Value doss2 = Range("A3").Value chem1 = "c:\e\list.xls" chem2 = disk & ":\" & doss & "\" & doss2 & "\list.xls" FileCopy chem1, chem2 Workbooks.Close End Sub
Nota : dans le classeur "a.xls", cellule A1 contient le chemin (exemple c), A2 le nom du dossier (e), A3 le nom du sous dossier (ee)

Le code fonctionne bien, mais il m'oblige d'ouvrir à chaque fois le classeur "a.xls", n'est-il pas possible de récupérer ces valeurs sans ouvrir le classeur ?

Merci
A+

15/03/2008, 10h47
ouskel'n'or
Citation:

Envoyé par ericdev

Le code fonctionne bien, mais il m'oblige d'ouvrir à chaque fois le classeur "a.xls", n'est-il pas possible de récupérer ces valeurs sans ouvrir le classeur ?

Si ! Pour cela, regarde ici
Mais tu peux aussi tester
Code:

1 2 3 4 5 Dim CL1 as workbook Application.screenUpdatig = false Set CL1 = Workbooks.Open Filename:="C:\e\a.xls" Windows(CL1.name).visible = false '... ton code
15/03/2008, 11h06
ericdev67
Salut Ouskel'n'or,

J'avais fait un tour sur ce forum , mais quand j'ai essayé :
Code:

1 2 'Lecture de la cellule A1 dans la Feuil1 du classeur fermé MsgBox ExecuteExcel4Macro("'C:\e\[a.xls]Feuil1'!R1C1")
Ca n'a pas fonctionné....le code se met en erreur, j'ai pas compris pourquoi, c'est pourquoi j'ai essayé ma méthode....
Si je comprends bien ton code, en fait tu ouvres aussi le classeur, mais ne le fait pas apparaitre...bien vu (sans mauvais jeux de mots....)

Je voulais essayer de chercher directement la valeur de la cellule dans le classeur a.xls, qui me sert de référence pour les chemins, et donc ces valeurs sont toujours les mêmes.

A+
15/03/2008, 11h15
ouskel'n'or

As-tu tout lu ? Entre autres, cette ligne

Citation:

Envoyé par SilkyRoad

Vous devez préalablement activer la référence Microsoft ActiveX Data Objects x.x Library pour utiliser les exemples présentés dans ce tutoriel.

;)
15/03/2008, 12h25
ericdev67

Oui, j'ai bien mis la référence,
mais quand je mets tout seul

Code:

MsgBox ExecuteExcel4Macro("'C:\e\[a.xls]Feuil1'!R1C1")

, il ne se passe rien, et je sais pas où le mettre dans mon code...j'ai essayé d'attribuer la variable c'est à dire cette instruction :

Code:

disk = MsgBox ExecuteExcel4Macro("'C:\e\[a.xls]Feuil1'!R1C1")

Et visual me repond :

Citation:

erreur de compilation

....comprend pas

Merci
A+

Alors je te suggère une solution de rechange :
Dans le classeur contenant ta macro, mets "simplement"

Code:

1
2
3
4
5
6
7
8
9
10
    Thisworkbook.worksheets("feuil1").range("IV65633").FormulaLocal = "='C:\e\[a.xls]Feuil1'!A1"
    Thisworkbook.worksheets("feuil1").range("IV65635").FormulaLocal = "='C:\e\[a.xls]Feuil1'!A2"
    Thisworkbook.worksheets("feuil1").range("IV65635").FormulaLocal = "='C:\e\[a.xls]Feuil1'!A3"
 
    disk = Thisworkbook.worksheets("feuil1").Range("IV65633").Value
    doss = Thisworkbook.worksheets("feuil1").Range("IV65635").Value
    doss2 = Thisworkbook.worksheets("feuil1").Range("IV65635").Value
 
    Thisworkbook.worksheets("feuil1").range("IV65633") = ""    Thisworkbook.worksheets("feuil1").range("IV65635") = ""
    Thisworkbook.worksheets("feuil1").range("IV65635") = ""

Pas très élégant mais en attendant que Silkyroad explique le pb que tu as rencontré... ;)

15/03/2008, 13h43
ericdev67

t'es trop top ouskel'n'or,

Mais dans l'absolu, finalement, ton code d'ouverture "masquée" est plus cool... : j'ai créé un ensemble de macros et je pensais garder en mémoire et/ ou les variables "disk, doss, doss2", mais je vois qu'il va falloir que je les appelle à chaque fois, donc...je pense que je vais prendre ton code + le mien à chaque fois....

Sage résolution pour toi ??

A+
15/03/2008, 14h09
ouskel'n'or

Citation:

Sage résolution pour toi ??

Bôf ! Je pense que SilkyRoad serait d'avis d'utiliser son code (adapté à ta demande) mais pour ce qui me concerne, hors réseau, le tps d'accès étant très court si le fichier ouvert n'est pas important, j'ouvre les fichiers. Je crois vraiment que c'est une question de choix personnel.
Bon week-end
15/03/2008, 16h19
ericdev67

Je te rejoins, je pars du C:\, je n'ouvre qu'un seul classeur, le temps d'accès est donc très court.
Par conte, Silkyroad, si tu vois ce forum, n'hésite pas à m'envoyer un mail sur l'espace perso....

Encore Merci Ouskel'n'or,
A la prochaine,
Bon week-end
A+

Salut, peut-être

Code:

1
2
3
4
5
6
7
8
 
Private Function ExtraireValeur(ByVal Dossier As String, ByVal Fichier As String, ByVal Feuille As String, ByVal Cellule As String)
Dim Argument As String
    Dossier = Replace(Dossier, "'", "''")
    Fichier = Replace(Fichier, "'", "''")
    Argument = "'" & Dossier & "[" & Fichier & "]" & Feuille & "'!" & Range(Cellule).Address(, , xlR1C1)
    ExtraireValeur = ExecuteExcel4Macro(Argument)
End Function

15/03/2008, 22h30
ouskel'n'or

Merci kiki, ça mérite d'être placé dans Contribuez. As-tu testé ton code, que je copie ta discussion dans ce forum ?
A+
16/03/2008, 11h28
ericdev67

merci à tous les deux, mais comme j'ai dit à KIKI29, j'ai avancé dans mon code et finalement, c'est pas un gros soucis si le dossier s'ouvre.

Par contre, une fois que j'aurai fini toute ma macro (et qu'elle fonctionnera (j'espère...)), j'essayerai de reprendre ce code. Il me semble assez cool, par contre, je sais pas où le placer (=comment l'appeler dans la macro)

Merci
A+

Soir Bon
Code:

1 2 3 4 ... Cells(4, 4) = ExtraireValeur(Dossier, NomFichier, NomFeuille, "AB23") ...
avec un petit exemple l'utilisant