Discussion :

[jackfred]

Bonjour

J'ai ceci dans une de mes codes :

Code :

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

Open "C:\Documents and Settings\mayol\Bureau\tableaux de bord\CompteRendu.txt"

En fait vu que l'adresse du fichier "CompteRendu.txt" est sancée changer de tps en tps, je souhaite trouver un moyen pour que le fichier soit encore accéssible.

J'ai pensé que le "Open" aille checrher l'adresse dans une cellule d'un autre fichier ouvert.


En gros ma question c'est comment récupérer la valeur d'une cellule d'un autre fichier.


Merci

fred

[ouskel'n'or]

Dans l'autre fichier, je suppose que tu connais l'adresse de la donnée que tu cherches, auquel cas, tu peux faire

Code :

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

Chemin = Workbooks(AutreFichier).Worksheets(LaFeuille).range(Ladresse).value

et là, je suppose aussi que "AutreFichier" est ouvert

[jackfred]

c'est fou se que tu comprend bien se que j'ai mal expliqué .

Je pense que ca doit etre ca.
toutefois, faut-il creer la variable "chemin"?

Et
faut-il écrire ensuite : "Open chemin"


Voici le code en entier au cas ou :

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
21
Private Sub Workbook_Open()
'Suivi des Connections
'Num : 00001
 
    Dim Usager As String, Machine As String
    Dim NomFichier As String
    'Dim chemin As String
 
'chemin = Workbooks(Tdb.xls).Worksheets(Adresses).Range(F14).Value
 
NomFichier = ThisWorkbook.Name
Usager = OSUserName()
Machine = OSMachineName()
 
Open chemin For Append As #1
 
 
Write #1, Usager; Machine; Now; NomFichier
Close #1
 
End sub

Merci