Bonjour,
J'ai le code ci-dessous :
Qui ouvre un fichier texte et inscrit des données à l'ouverture du fichier B.xls
Jusque là ca marche :
---------------------------
Private Sub Workbook_Open()
'Suivi des Connections
'Num : 00001
Dim Usager As String, Machine As String
Dim NomFichier As String
NomFichier = ThisWorkbook.Name
Usager = OSUserName()
Machine = OSMachineName()
Open "C:\Documents and Settings\mayol\Bureau\tableaux de bord\CompteRendu.txt" For Append As #1
Write #1, Usager; Machine; Now; NomFichier
Close #1
End Sub
----------------------
Mon pb est le suivant :
Cela concerne l'adresse qui suit le "open"
L'adresse sera variable par la suite.
Vu que avant l'ouverture de B.xls, l'utilisateur devar ouvrir A.xls, j'ai donc pensé aller récupérer l'adresse du fichier .txt dans une cellule de ce lasseur A.xls. (Ce qui me semble, pour mon apli, la meilleure solution).
on m'a proposé d'aller chercher l'adresse en utilisant ce code :
chemin = workbooks(TdB).Worksheets(Adresses).Range(F14).Value
En suposant justement que le classeur Tdb soit ouvert.
par contre je n'arrive pas a faire marcher la macro avec ce code.
Y-a-t-il une erreur?
Comment l'insérer dans ma macro?
Merci
fred
J'ai le code ci-dessous :
Qui ouvre un fichier texte et inscrit des données à l'ouverture du fichier B.xls
Jusque là ca marche :
---------------------------
Private Sub Workbook_Open()
'Suivi des Connections
'Num : 00001
Dim Usager As String, Machine As String
Dim NomFichier As String
NomFichier = ThisWorkbook.Name
Usager = OSUserName()
Machine = OSMachineName()
Open "C:\Documents and Settings\mayol\Bureau\tableaux de bord\CompteRendu.txt" For Append As #1
Write #1, Usager; Machine; Now; NomFichier
Close #1
End Sub
----------------------
Mon pb est le suivant :
Cela concerne l'adresse qui suit le "open"
L'adresse sera variable par la suite.
Vu que avant l'ouverture de B.xls, l'utilisateur devar ouvrir A.xls, j'ai donc pensé aller récupérer l'adresse du fichier .txt dans une cellule de ce lasseur A.xls. (Ce qui me semble, pour mon apli, la meilleure solution).
on m'a proposé d'aller chercher l'adresse en utilisant ce code :
chemin = workbooks(TdB).Worksheets(Adresses).Range(F14).Value
En suposant justement que le classeur Tdb soit ouvert.
par contre je n'arrive pas a faire marcher la macro avec ce code.
Y-a-t-il une erreur?
Comment l'insérer dans ma macro?
Merci
fred
