Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Chdir inopérant

Chdir inopérant

10 réponses
Avatar
René Delcourt
Bonjour,

Mon code prévoit un changement de répertoire :
>ChDir RepertExp
La ligne suivante m'ouvre cependant le dernier répertoire utilisé (qui n'est
pas celui demandé).
>FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
Où est l'erreur?
Merci
--
René Delcourt
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
...Patrick
Salut,

il faut pas sélectionner le lecteur avant ?
CurDir "c:"

Bye

"René Delcourt" a écrit dans le message de news:

Bonjour,

Mon code prévoit un changement de répertoire :
ChDir RepertExp
La ligne suivante m'ouvre cependant le dernier répertoire utilisé (qui

n'est
pas celui demandé).
FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
Où est l'erreur?

Merci
--
René Delcourt



Avatar
lSteph
Bonjour,

Réponse hier sur ton fil presque semblable,
peux tu donner le "bout" de code "pas forcément tout"
mais complet en ce qui concerne l'obtension de cet inconvénient.

lSteph

"René Delcourt" a écrit dans le message de news:

Bonjour,

Mon code prévoit un changement de répertoire :
ChDir RepertExp
La ligne suivante m'ouvre cependant le dernier répertoire utilisé (qui

n'est
pas celui demandé).
FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
Où est l'erreur?

Merci
--
René Delcourt



Avatar
lSteph
...sinon hypothèses:
le chdir porte sur une autre unité
(ou si réseau //emplacement local différent.Solution, dans explorateur
assigner une lettre d'unité à cet espace réseau )
pour changer d'unité utiliser chdrive, exemple

chdrive "G:"
chdir "G:totomonrep"

lSteph
"René Delcourt" a écrit dans le message de news:

Bonjour,

Mon code prévoit un changement de répertoire :
ChDir RepertExp
La ligne suivante m'ouvre cependant le dernier répertoire utilisé (qui

n'est
pas celui demandé).
FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
Où est l'erreur?

Merci
--
René Delcourt



Avatar
Ange Ounis
Si tu cherches à atteindre un lecteur réseau, ChDir échoue dans ce cas. Il faut
utiliser des fonctions personnalisées basées sur l'API SetCurrentDirectoryA.
Un exemple ici :

http://frederic.sigonneau.free.fr/code/Excel/ChDirReseau.txt

----------
Ange Ounis
----------

Bonjour,

Mon code prévoit un changement de répertoire :
ChDir RepertExp
La ligne suivante m'ouvre cependant le dernier répertoire utilisé (qui n'est

pas celui demandé).
FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
Où est l'erreur?

Merci



Avatar
René Delcourt
Merci de ton intérêt.
RepertAct = ActiveWorkbook.Path
RepertExp = ActiveWorkbook.Path & "Fichiers Export"
RepertTra = ActiveWorkbook.Path & "Fichiers traités"

Exemple d'utilisation :

Sub RecupFich()
Dim AFermer As String
ChDir RepertExp
FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If FileToOpen <> "Faux" Then
Application.ScreenUpdating = False
Workbooks.Open FileToOpen
AFermer = ActiveWorkbook.Name
ChDir RepertAct
ActiveSheet.Copy After:=Workbooks("Programme Relations
Clients.xls").Sheets("Intro")
Workbooks(AFermer).Close (False)
Application.ScreenUpdating = True
TCD_GRAPH
End If
End Sub
--
René Delcourt



Bonjour,

Réponse hier sur ton fil presque semblable,
peux tu donner le "bout" de code "pas forcément tout"
mais complet en ce qui concerne l'obtension de cet inconvénient.

lSteph

"René Delcourt" a écrit dans le message de news:

Bonjour,

Mon code prévoit un changement de répertoire :
ChDir RepertExp
La ligne suivante m'ouvre cependant le dernier répertoire utilisé (qui

n'est
pas celui demandé).
FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
Où est l'erreur?

Merci
--
René Delcourt








Avatar
lSteph
Bonjour René,
(Là, je vais peut-être faire des suppositions hors contexte car n'ayant pas
tout sous les yeux
d'où les questions qui suivent mais si tu le souhaites donnes tout le code
qui a besoin de ces variables ou mets le classeur en http://cjoint.com)

Amha ceci uniquement tel qu'écrit ainsi ne peut pas fonctionner:
RepertAct = ActiveWorkbook.Path
RepertExp = ActiveWorkbook.Path & "Fichiers Export"
RepertTra = ActiveWorkbook.Path & "Fichiers traités"
Déjà l'objectif est-il de récupèrer le chemin d'un classeur quelconque qui

se trouverait actif "Activeworkbook.path"
ou le chemin de ce classeur présent qui contient le code
"Thisworkbook.path"

1-As-tu besoins de variables pour cela, car il suffirait d'écrire dans le
code:
ChDir Thisworkbook.path & "Fichiers Export"

2-Ensuite pourquoi mettre cela dans le thisworkbook même si celui-ci prévoit
une macro au démarrage qui appellerait les mêmes variables
donc même si besoin aussi dans thisworkbook, il vaut mieux les déclarer dans
un module standard et en plus l'attribution de leur valeur
devra être déterminée par une exécution:

Soit, si elles doivent avoir une portée dans plusieurs projets et/ou modules
yc thisworkbook

en haut du module standard ex
Public RepertExp
..dans la macro , le cas échéant dans Thisworkbook celle du Workbook_Open()
:

RepertExp = thisworkbook.Path & "Fichiers Export"

Soit, elles n'ont de portée que dans plusieurs macros du module en cours
en haut du module
Dim RepertExp
..dans la macro RecupFich()
RepertExp = thisworkbook.Path & "Fichiers Export"

Soit, la portée est exclusive à la macro (mais on en revient à la question
1)
Sub RecupFich()
Dim RepertExp
RepertExp = thisworkbook.Path & "Fichiers Export"
....

Cordialement.

lSteph
(accessoirement as-tu vu ma réponse d'avant-hier?)

"René Delcourt" a écrit dans le message de news:

Merci de ton intérêt.
RepertAct = ActiveWorkbook.Path
RepertExp = ActiveWorkbook.Path & "Fichiers Export"
RepertTra = ActiveWorkbook.Path & "Fichiers traités"

Exemple d'utilisation :

Sub RecupFich()
Dim AFermer As String
ChDir RepertExp
FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If FileToOpen <> "Faux" Then
Application.ScreenUpdating = False
Workbooks.Open FileToOpen
AFermer = ActiveWorkbook.Name
ChDir RepertAct
ActiveSheet.Copy After:=Workbooks("Programme Relations
Clients.xls").Sheets("Intro")
Workbooks(AFermer).Close (False)
Application.ScreenUpdating = True
TCD_GRAPH
End If
End Sub
--
René Delcourt



Bonjour,

Réponse hier sur ton fil presque semblable,
peux tu donner le "bout" de code "pas forcément tout"
mais complet en ce qui concerne l'obtension de cet inconvénient.

lSteph

"René Delcourt" a écrit dans le message de news:

Bonjour,

Mon code prévoit un changement de répertoire :
ChDir RepertExp
La ligne suivante m'ouvre cependant le dernier répertoire utilisé (qui

n'est
pas celui demandé).
FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
Où est l'erreur?

Merci
--
René Delcourt










Avatar
lSteph
... par ailleurs j'ai oublié de typer, ajouter As string

Dim RepertExp as string


"lSteph" a écrit dans le message de news:

Bonjour René,
(Là, je vais peut-être faire des suppositions hors contexte car n'ayant
pas tout sous les yeux
d'où les questions qui suivent mais si tu le souhaites donnes tout le code
qui a besoin de ces variables ou mets le classeur en http://cjoint.com)

Amha ceci uniquement tel qu'écrit ainsi ne peut pas fonctionner:
RepertAct = ActiveWorkbook.Path
RepertExp = ActiveWorkbook.Path & "Fichiers Export"
RepertTra = ActiveWorkbook.Path & "Fichiers traités"
Déjà l'objectif est-il de récupèrer le chemin d'un classeur quelconque qui

se trouverait actif "Activeworkbook.path"
ou le chemin de ce classeur présent qui contient le code
"Thisworkbook.path"

1-As-tu besoins de variables pour cela, car il suffirait d'écrire dans le
code:
ChDir Thisworkbook.path & "Fichiers Export"

2-Ensuite pourquoi mettre cela dans le thisworkbook même si celui-ci
prévoit une macro au démarrage qui appellerait les mêmes variables
donc même si besoin aussi dans thisworkbook, il vaut mieux les déclarer
dans un module standard et en plus l'attribution de leur valeur
devra être déterminée par une exécution:

Soit, si elles doivent avoir une portée dans plusieurs projets et/ou
modules yc thisworkbook

en haut du module standard ex
Public RepertExp
..dans la macro , le cas échéant dans Thisworkbook celle du
Workbook_Open() :

RepertExp = thisworkbook.Path & "Fichiers Export"

Soit, elles n'ont de portée que dans plusieurs macros du module en cours
en haut du module
Dim RepertExp
..dans la macro RecupFich()
RepertExp = thisworkbook.Path & "Fichiers Export"

Soit, la portée est exclusive à la macro (mais on en revient à la question
1)
Sub RecupFich()
Dim RepertExp
RepertExp = thisworkbook.Path & "Fichiers Export"
....

Cordialement.

lSteph
(accessoirement as-tu vu ma réponse d'avant-hier?)

"René Delcourt" a écrit dans le message de news:

Merci de ton intérêt.
RepertAct = ActiveWorkbook.Path
RepertExp = ActiveWorkbook.Path & "Fichiers Export"
RepertTra = ActiveWorkbook.Path & "Fichiers traités"

Exemple d'utilisation :

Sub RecupFich()
Dim AFermer As String
ChDir RepertExp
FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If FileToOpen <> "Faux" Then
Application.ScreenUpdating = False
Workbooks.Open FileToOpen
AFermer = ActiveWorkbook.Name
ChDir RepertAct
ActiveSheet.Copy After:=Workbooks("Programme Relations
Clients.xls").Sheets("Intro")
Workbooks(AFermer).Close (False)
Application.ScreenUpdating = True
TCD_GRAPH
End If
End Sub
--
René Delcourt



Bonjour,

Réponse hier sur ton fil presque semblable,
peux tu donner le "bout" de code "pas forcément tout"
mais complet en ce qui concerne l'obtension de cet inconvénient.

lSteph

"René Delcourt" a écrit dans le message de news:

Bonjour,

Mon code prévoit un changement de répertoire :
ChDir RepertExp
La ligne suivante m'ouvre cependant le dernier répertoire utilisé (qui

n'est
pas celui demandé).
FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
Où est l'erreur?

Merci
--
René Delcourt














Avatar
René Delcourt
Salut et merci de tes réponses qui ne me font pas avancer :
Voilà ce qui se passe...

--Dans Workbook Open
RepTra = ThisWorkbook.Path & "Traité"
RepImp = ThisWorkbook.Path & "import"
RepAct = ThisWorkbook.Path
--Dans module
Public RepImp, RepAct, RepTra As String
ChDir RepImp
MsgBox (CurDir)
Le message n'est pas du tout la valeur de ThisWorkbook.Path & "import"

--
René Delcourt



Bonjour René,
(Là, je vais peut-être faire des suppositions hors contexte car n'ayant pas
tout sous les yeux
d'où les questions qui suivent mais si tu le souhaites donnes tout le code
qui a besoin de ces variables ou mets le classeur en http://cjoint.com)

Amha ceci uniquement tel qu'écrit ainsi ne peut pas fonctionner:
RepertAct = ActiveWorkbook.Path
RepertExp = ActiveWorkbook.Path & "Fichiers Export"
RepertTra = ActiveWorkbook.Path & "Fichiers traités"
Déjà l'objectif est-il de récupèrer le chemin d'un classeur quelconque qui

se trouverait actif "Activeworkbook.path"
ou le chemin de ce classeur présent qui contient le code
"Thisworkbook.path"

1-As-tu besoins de variables pour cela, car il suffirait d'écrire dans le
code:
ChDir Thisworkbook.path & "Fichiers Export"

2-Ensuite pourquoi mettre cela dans le thisworkbook même si celui-ci prévoit
une macro au démarrage qui appellerait les mêmes variables
donc même si besoin aussi dans thisworkbook, il vaut mieux les déclarer dans
un module standard et en plus l'attribution de leur valeur
devra être déterminée par une exécution:

Soit, si elles doivent avoir une portée dans plusieurs projets et/ou modules
yc thisworkbook

en haut du module standard ex
Public RepertExp
...dans la macro , le cas échéant dans Thisworkbook celle du Workbook_Open()
:

RepertExp = thisworkbook.Path & "Fichiers Export"

Soit, elles n'ont de portée que dans plusieurs macros du module en cours
en haut du module
Dim RepertExp
...dans la macro RecupFich()
RepertExp = thisworkbook.Path & "Fichiers Export"

Soit, la portée est exclusive à la macro (mais on en revient à la question
1)
Sub RecupFich()
Dim RepertExp
RepertExp = thisworkbook.Path & "Fichiers Export"
.....

Cordialement.

lSteph
(accessoirement as-tu vu ma réponse d'avant-hier?)

"René Delcourt" a écrit dans le message de news:

Merci de ton intérêt.
RepertAct = ActiveWorkbook.Path
RepertExp = ActiveWorkbook.Path & "Fichiers Export"
RepertTra = ActiveWorkbook.Path & "Fichiers traités"

Exemple d'utilisation :

Sub RecupFich()
Dim AFermer As String
ChDir RepertExp
FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If FileToOpen <> "Faux" Then
Application.ScreenUpdating = False
Workbooks.Open FileToOpen
AFermer = ActiveWorkbook.Name
ChDir RepertAct
ActiveSheet.Copy After:=Workbooks("Programme Relations
Clients.xls").Sheets("Intro")
Workbooks(AFermer).Close (False)
Application.ScreenUpdating = True
TCD_GRAPH
End If
End Sub
--
René Delcourt



Bonjour,

Réponse hier sur ton fil presque semblable,
peux tu donner le "bout" de code "pas forcément tout"
mais complet en ce qui concerne l'obtension de cet inconvénient.

lSteph

"René Delcourt" a écrit dans le message de news:

Bonjour,

Mon code prévoit un changement de répertoire :
ChDir RepertExp
La ligne suivante m'ouvre cependant le dernier répertoire utilisé (qui

n'est
pas celui demandé).
FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
Où est l'erreur?

Merci
--
René Delcourt















Avatar
lSteph
Bonsoir,

Salut et merci de tes réponses qui ne me font pas avancer :


Une relecture des réponses et solutions proposées me paraîtrait pourtant
propice
au vu de ce que tu confirmes:
--Dans Workbook Open
RepImp = ThisWorkbook.Path & "import"
--Dans module
Public RepImp, RepAct, RepTra As String
ChDir RepImp
MsgBox (CurDir)
Le message n'est pas du tout la valeur de ThisWorkbook.Path & "import"


c'est expressément pour cette raison que j'ai pris soin de détailler ce
message ci
et de rajouter dans le message suivant ceci:
...sinon hypothèses:
le chdir porte sur une autre unité
(ou si réseau //emplacement local différent.Solution, dans explorateur
assigner une lettre d'unité à cet espace réseau )
pour changer d'unité utiliser chdrive, exemple

chdrive "G:"
chdir "G:totomonrep"

Par ailleurs, je reprécise la question qui en découle, le nom
thisworkbook.path c'est quoi exactement (unité incluse)
le Curdir répertoire courant, si cela ne vient pas de là alors je réitère au
cas où, donneplus de détails sinon
effectivement il est normal de ne pas avancer.

:-[

lSteph

"René Delcourt" a écrit dans le message de news:

Salut et merci de tes réponses qui ne me font pas avancer :
Voilà ce qui se passe...

--Dans Workbook Open
RepTra = ThisWorkbook.Path & "Traité"
RepImp = ThisWorkbook.Path & "import"
RepAct = ThisWorkbook.Path
--Dans module
Public RepImp, RepAct, RepTra As String
ChDir RepImp
MsgBox (CurDir)
Le message n'est pas du tout la valeur de ThisWorkbook.Path & "import"

--
René Delcourt



Bonjour René,
(Là, je vais peut-être faire des suppositions hors contexte car n'ayant
pas
tout sous les yeux
d'où les questions qui suivent mais si tu le souhaites donnes tout le
code
qui a besoin de ces variables ou mets le classeur en http://cjoint.com)

Amha ceci uniquement tel qu'écrit ainsi ne peut pas fonctionner:
RepertAct = ActiveWorkbook.Path
RepertExp = ActiveWorkbook.Path & "Fichiers Export"
RepertTra = ActiveWorkbook.Path & "Fichiers traités"
Déjà l'objectif est-il de récupèrer le chemin d'un classeur quelconque

qui
se trouverait actif "Activeworkbook.path"
ou le chemin de ce classeur présent qui contient le code
"Thisworkbook.path"

1-As-tu besoins de variables pour cela, car il suffirait d'écrire dans le
code:
ChDir Thisworkbook.path & "Fichiers Export"

2-Ensuite pourquoi mettre cela dans le thisworkbook même si celui-ci
prévoit
une macro au démarrage qui appellerait les mêmes variables
donc même si besoin aussi dans thisworkbook, il vaut mieux les déclarer
dans
un module standard et en plus l'attribution de leur valeur
devra être déterminée par une exécution:

Soit, si elles doivent avoir une portée dans plusieurs projets et/ou
modules
yc thisworkbook

en haut du module standard ex
Public RepertExp
...dans la macro , le cas échéant dans Thisworkbook celle du
Workbook_Open()
:

RepertExp = thisworkbook.Path & "Fichiers Export"

Soit, elles n'ont de portée que dans plusieurs macros du module en cours
en haut du module
Dim RepertExp
...dans la macro RecupFich()
RepertExp = thisworkbook.Path & "Fichiers Export"

Soit, la portée est exclusive à la macro (mais on en revient à la
question
1)
Sub RecupFich()
Dim RepertExp
RepertExp = thisworkbook.Path & "Fichiers Export"
.....

Cordialement.

lSteph
(accessoirement as-tu vu ma réponse d'avant-hier?)

"René Delcourt" a écrit dans le message de news:

Merci de ton intérêt.
RepertAct = ActiveWorkbook.Path
RepertExp = ActiveWorkbook.Path & "Fichiers Export"
RepertTra = ActiveWorkbook.Path & "Fichiers traités"

Exemple d'utilisation :

Sub RecupFich()
Dim AFermer As String
ChDir RepertExp
FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If FileToOpen <> "Faux" Then
Application.ScreenUpdating = False
Workbooks.Open FileToOpen
AFermer = ActiveWorkbook.Name
ChDir RepertAct
ActiveSheet.Copy After:=Workbooks("Programme Relations
Clients.xls").Sheets("Intro")
Workbooks(AFermer).Close (False)
Application.ScreenUpdating = True
TCD_GRAPH
End If
End Sub
--
René Delcourt



Bonjour,

Réponse hier sur ton fil presque semblable,
peux tu donner le "bout" de code "pas forcément tout"
mais complet en ce qui concerne l'obtension de cet inconvénient.

lSteph

"René Delcourt" a écrit dans le message de news:

Bonjour,

Mon code prévoit un changement de répertoire :
ChDir RepertExp
La ligne suivante m'ouvre cependant le dernier répertoire utilisé

(qui
n'est
pas celui demandé).
FileToOpen = Application.GetOpenFilename("Excel Files (*.xls),
*.xls")
Où est l'erreur?

Merci
--
René Delcourt

















Avatar
lSteph
...j'ajouterais que Frédéric sur le même registre ,
en cas de changement d'emplacement réseau, t'a aussi donné une piste bien
intéressante.
Sinon, dans ces cas là, idem, donner un retour.

Cordialement.

LSteph

"lSteph" a écrit dans le message de news:
ej%
Bonsoir,

Salut et merci de tes réponses qui ne me font pas avancer :


Une relecture des réponses et solutions proposées me paraîtrait pourtant
propice
au vu de ce que tu confirmes:
--Dans Workbook Open
RepImp = ThisWorkbook.Path & "import"
--Dans module
Public RepImp, RepAct, RepTra As String
ChDir RepImp
MsgBox (CurDir)
Le message n'est pas du tout la valeur de ThisWorkbook.Path & "import"


c'est expressément pour cette raison que j'ai pris soin de détailler ce
message ci
et de rajouter dans le message suivant ceci:
...sinon hypothèses:
le chdir porte sur une autre unité
(ou si réseau //emplacement local différent.Solution, dans explorateur
assigner une lettre d'unité à cet espace réseau )
pour changer d'unité utiliser chdrive, exemple

chdrive "G:"
chdir "G:totomonrep"

Par ailleurs, je reprécise la question qui en découle, le nom
thisworkbook.path c'est quoi exactement (unité incluse)
le Curdir répertoire courant, si cela ne vient pas de là alors je réitère
au cas où, donneplus de détails sinon
effectivement il est normal de ne pas avancer.

:-[

lSteph

"René Delcourt" a écrit dans le message de news:

Salut et merci de tes réponses qui ne me font pas avancer :
Voilà ce qui se passe...

--Dans Workbook Open
RepTra = ThisWorkbook.Path & "Traité"
RepImp = ThisWorkbook.Path & "import"
RepAct = ThisWorkbook.Path
--Dans module
Public RepImp, RepAct, RepTra As String
ChDir RepImp
MsgBox (CurDir)
Le message n'est pas du tout la valeur de ThisWorkbook.Path & "import"

--
René Delcourt



Bonjour René,
(Là, je vais peut-être faire des suppositions hors contexte car n'ayant
pas
tout sous les yeux
d'où les questions qui suivent mais si tu le souhaites donnes tout le
code
qui a besoin de ces variables ou mets le classeur en http://cjoint.com)

Amha ceci uniquement tel qu'écrit ainsi ne peut pas fonctionner:
RepertAct = ActiveWorkbook.Path
RepertExp = ActiveWorkbook.Path & "Fichiers Export"
RepertTra = ActiveWorkbook.Path & "Fichiers traités"
Déjà l'objectif est-il de récupèrer le chemin d'un classeur quelconque

qui
se trouverait actif "Activeworkbook.path"
ou le chemin de ce classeur présent qui contient le code
"Thisworkbook.path"

1-As-tu besoins de variables pour cela, car il suffirait d'écrire dans
le
code:
ChDir Thisworkbook.path & "Fichiers Export"

2-Ensuite pourquoi mettre cela dans le thisworkbook même si celui-ci
prévoit
une macro au démarrage qui appellerait les mêmes variables
donc même si besoin aussi dans thisworkbook, il vaut mieux les déclarer
dans
un module standard et en plus l'attribution de leur valeur
devra être déterminée par une exécution:

Soit, si elles doivent avoir une portée dans plusieurs projets et/ou
modules
yc thisworkbook

en haut du module standard ex
Public RepertExp
...dans la macro , le cas échéant dans Thisworkbook celle du
Workbook_Open()
:

RepertExp = thisworkbook.Path & "Fichiers Export"

Soit, elles n'ont de portée que dans plusieurs macros du module en cours
en haut du module
Dim RepertExp
...dans la macro RecupFich()
RepertExp = thisworkbook.Path & "Fichiers Export"

Soit, la portée est exclusive à la macro (mais on en revient à la
question
1)
Sub RecupFich()
Dim RepertExp
RepertExp = thisworkbook.Path & "Fichiers Export"
.....

Cordialement.

lSteph
(accessoirement as-tu vu ma réponse d'avant-hier?)

"René Delcourt" a écrit dans le message de news:

Merci de ton intérêt.
RepertAct = ActiveWorkbook.Path
RepertExp = ActiveWorkbook.Path & "Fichiers Export"
RepertTra = ActiveWorkbook.Path & "Fichiers traités"

Exemple d'utilisation :

Sub RecupFich()
Dim AFermer As String
ChDir RepertExp
FileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If FileToOpen <> "Faux" Then
Application.ScreenUpdating = False
Workbooks.Open FileToOpen
AFermer = ActiveWorkbook.Name
ChDir RepertAct
ActiveSheet.Copy After:=Workbooks("Programme Relations
Clients.xls").Sheets("Intro")
Workbooks(AFermer).Close (False)
Application.ScreenUpdating = True
TCD_GRAPH
End If
End Sub
--
René Delcourt



Bonjour,

Réponse hier sur ton fil presque semblable,
peux tu donner le "bout" de code "pas forcément tout"
mais complet en ce qui concerne l'obtension de cet inconvénient.

lSteph

"René Delcourt" a écrit dans le message de news:

Bonjour,

Mon code prévoit un changement de répertoire :
ChDir RepertExp
La ligne suivante m'ouvre cependant le dernier répertoire utilisé

(qui
n'est
pas celui demandé).
FileToOpen = Application.GetOpenFilename("Excel Files (*.xls),
*.xls")
Où est l'erreur?

Merci
--
René Delcourt