Ouvrir fichier *.xls dans 1 repertoire specifique

[ennida]

Bonjour,

j'ai besoin d'ouvrir un fichier excel dont le nom change dans un dosssier dont le chemin ne change pas de type J:
Quand je lance GetOpenFilename je me retrouve toujours sur mon répertoire par défaut sous C:

MERCI

 

[skoobi]

Re : Ouvrir fichier *.xls dans 1 repertoire specifique

Bonjour,

pour changer de lecteur, utilise "ChDrive":

chdrive("J:")

 

[Pierrot93]

Re : Ouvrir fichier *.xls dans 1 repertoire specifique

Bonjour Ennida,

regarde le code ci-dessous, si cela peut t'aider :

'Change le lecteur courant
ChDrive "J"
'Change le dossier courant
ChDir "j:\DOSSIER1\DOSSIER2\DOSSIER3"

bonne journée
@+

Edition : Aarf, bonjour Skoobi, plus rapide....

 

[ennida]

Re : Ouvrir fichier *.xls dans 1 repertoire specifique

merci pour l'aide mais j'arrive pas à ouvrir mon fichier
voici mon code

Dim NomFichier
Application.DisplayAlerts = False
ChDrive ("J:")
ChDir ("J:\Achats\APPROVISIONNEMENT\Tableau bord MQ\MQ SAP 800")
NomFichier = Application.GetOpenFilename("(*.xls),*.xls")

 

[skoobi]

Re : Ouvrir fichier *.xls dans 1 repertoire specifique

Re,
salut Pierrot,

Je comprend pas quel est ton problème.
Tu veux ouvrir un fichier automatiquement ou alors choisir un fichier via la boite de dialogue?

 

[Pierrot93]

Re : Ouvrir fichier *.xls dans 1 repertoire specifique

Re,

pour ouvrir le fichier :

Dim NomFichier As String
ChDrive ("J")
ChDir  "J:\Achats\APPROVISIONNEMENT\Tableau bord MQ\MQ SAP 800"
NomFichier = Application.GetOpenFilename("(*.xls),*.xls")
If NomFichier <> "" Then Workbooks.Open NomFichier

bon après midi
@+

 

[ennida]

Re : Ouvrir fichier *.xls dans 1 repertoire specifique

Un grand merci à tous les 2 !!!! ca fonctionne

 

[Pierrot93]

Re : Ouvrir fichier *.xls dans 1 repertoire specifique

Re

aarf, pour gérer l'annulation dans la boite de dialogue, préférable de coder comme ceci :

Dim NomFichier As Variant
ChDrive "J"
ChDir  "J:\Achats\APPROVISIONNEMENT\Tableau bord MQ\MQ SAP 800"
NomFichier = Application.GetOpenFilename("(*.xls),*.xls")
If NomFichier <> False Then Workbooks.Open NomFichier

@+