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