chemin courant pour ouvrir/sauver un fichier

[nimbus le truand]

Bonjour les gens du forum,

Je suis en train de mettre en place une macro permettant de récupérer un fichier excel à un endroit précis sur un réseau Microsoft, pour qu’une fenêtre ‘ouvrir’ se place dessus. De même pour l’enregistrement qui se fait sur un autre endroit sur le réseau. Cependant, avec la commande VBA ci-dessous, cela ne marche pas !!

' Définit le répertoire courant
ChDir "Y:\Exploitation" ‘ Y est la lettre réseau du disque distant
FileToOpen = Application.GetOpenFilename("Fichier Excel (*.xls), *.xls")

Comment puis-je faire ?

Merci d’avance

nimbus

 

[@+Thierry]

Bonjour Nimbus, le Forum

Drôle de Nick !

Voici un exemple :
Sub TheDriveChange ()
Dim TheFile As Variant
Dim ThePath As String
Dim UserDir As String
Dim UserDrive As String

UserDrive = Left(CurDir, 1) 'On Mémorise les Paramètres du User
UserDir = CurDir ' idem

TempDrive = "D"
ThePath = "D:\Mes Photos " 'à ajuster au répertoire contenant tes images

ChDrive TempDrive
ChDir ThePath

TheFile = Application.GetOpenFilename("Fichier Excel (*.xls), *.xls")
If TheFile = False Then ChDrive UserDrive: ChDir UserDir: Exit Sub

'blah blah blah blah la macro'cro'cro

ChDrive UserDrive 'On remet les paramètres du User
ChDir UserDir 'idem
End Sub

PS la Variable "FileToOpen" me rappelle un truc ...

Bon App
@+Thierry

PS : Si tu tournes avec Excel XP, un commentaire interressant (comme toujours) de Ti : (Post du Lien supprimé

va voir du côté de l'objet FileDialog, c'est vraiment très puissant, et on peut définir absolument tout ce qu'on veut dedans. Pour l'utiliser la première fois, fais comme moi : copie les exemples de Microsoft dans un classeur vierge et fais différents tests jusqu'à ce que tu comprennes la philosophie du truc. Ensuite on regrette de devoir le laisser tomber pour revenir à la compatibilité XL 2000.

 

[nimbus le truand]

Bonjour Thierry et gens du forum,

Tout d’abord, merci ! Ta façon est la bonne, ça marche du tonnerre sur ma macro.

A une autre fois sur le forum

Nimbus