OVH Cloud OVH Cloud

syntaxe pour chemin

1 réponse
Avatar
Claude HERRMANN
Bonjour,

Tout d'abord je m'excuse de n'avoir pas remercié Yann pour la réponse qu'il
m'a faite le 24/08/2004 à ma question syntaxe pour chemin
Ayant changé d'ordinateur il m'a été impossible de retrouver les messages
ouverts à cette date. L'art et la manière de retrouver tous les anciens
messages c'est quoi ?

Je reprends donc mon problème au début:

J'ai un logiciel qui comprend :
Un fichier principal"client" que j'ouvre par un clic
Un fichier "travail" qui est systématiquement ouvert au moyen d'une
instruction Open dans le Workbook de client (voir ci dessous svp)

'Ouverture des fichiers liés

Private Sub Workbook_Open()
Workbooks.Open Filename:="C:\Documents and Settings\CLAUDE\Mes
documents\LBCF\Enr_Der\travail.xls"
End Sub

Je désire pouvoir installer ceci dans n'importe quel ordinateur sans avoir a
connaître le nouveau chemin
Yann 'a indiqué la solution Active Workbook.Path
Je pensais être assez fort pour me débrouiller tout seul, mais il me faut
aussi songer à la rentrée des classes dans ce domaine là.

Voilà ce que j'ai essayé,mais cela ne marche pas. Où est la faute ?

'Ouverture des fichiers liés
Private Sub Workbook_Open()

Workbooks.Open Filename:="ActiveWorkbook.Path\travail.xls"
End Sub

Merci d'avance
Claude

1 réponse

Avatar
ru-th
Salut

pas testé
Workbooks.Open Filename:¬tiveWorkbook.Path & "travail.xls"

a+
rural thierry

"Claude HERRMANN" a écrit dans le message de
news: 412f1011$0$305$
Bonjour,

Tout d'abord je m'excuse de n'avoir pas remercié Yann pour la réponse
qu'il

m'a faite le 24/08/2004 à ma question syntaxe pour chemin
Ayant changé d'ordinateur il m'a été impossible de retrouver les messages
ouverts à cette date. L'art et la manière de retrouver tous les anciens
messages c'est quoi ?

Je reprends donc mon problème au début:

J'ai un logiciel qui comprend :
Un fichier principal"client" que j'ouvre par un clic
Un fichier "travail" qui est systématiquement ouvert au moyen d'une
instruction Open dans le Workbook de client (voir ci dessous svp)

'Ouverture des fichiers liés

Private Sub Workbook_Open()
Workbooks.Open Filename:="C:Documents and SettingsCLAUDEMes
documentsLBCFEnr_Dertravail.xls"
End Sub

Je désire pouvoir installer ceci dans n'importe quel ordinateur sans avoir
a

connaître le nouveau chemin
Yann 'a indiqué la solution Active Workbook.Path
Je pensais être assez fort pour me débrouiller tout seul, mais il me faut
aussi songer à la rentrée des classes dans ce domaine là.

Voilà ce que j'ai essayé,mais cela ne marche pas. Où est la faute ?

'Ouverture des fichiers liés
Private Sub Workbook_Open()

Workbooks.Open Filename:="ActiveWorkbook.Pathtravail.xls"
End Sub

Merci d'avance
Claude