Discussion :

[ericdev67]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ericdev67]

Salut Ouskel'n'or,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[ouskel'n'or]

As-tu tout lu ? Entre autres, cette ligne

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.

[ericdev67]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et visual me repond :

erreur de compilation

....comprend pas

Merci
A+

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é...

[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+

[ouskel'n'or]

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

[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+

[kiki29]

Salut, peut-être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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+

[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+

[kiki29]

Soir Bon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
...
Cells(4, 4) = ExtraireValeur(Dossier, NomFichier, NomFeuille, "AB23")
...

avec un petit exemple l'utilisant