macro pour ouvrir des fichiers toujours dans le même répertoire

[gbdos]

Bonjour,

Je suis en train d'écrire une macro et je me trouve bloquer.
Je dois ouvrir un fichier (jamais le même) qui se trouve dans un répertoire bien précis (toujours le même). Je n'arrive pas à écrire le code qui m'affiche la boite de dialogue OUVRIR directement sur le répertoire qui va bien.

Est-ce que quelqu'un aurait une solution pour moi?

Par avance merci

 

[WILFRIED]

Re : macro pour ouvrir des fichiers toujours dans le même répertoire

Salut,

Voici un code pour gerer l'ouverture de la fenêtre "ouvrir" avec choix du chemin :

Sub ouvrir_rep()
Dim reponse As Variant
  ChDrive "C"
  ChDir "C:\Users"
  MsgBox CurDir
  reponse = Application.GetOpenFilename("fichier *.xls,*.xls")
  MsgBox (reponse)
End Sub

Chdrive change le lecteur courant.
chdir change le dossier mais pas le lecteur.

A+

 

[gbdos]

Re : macro pour ouvrir des fichiers toujours dans le même répertoire

Bonjour Wilfried,

Je viens d'essayer le code, ça marche pour ouvrir des fichiers .xls
Cependant, j'ai oublié de préciser dans mon message que le fichier que je dois ouvrir est un fichier .txt
Quand j'essaie de remplacer xls par txt dans le code, il me met une erreur

A+

 

[WILFRIED]

Re : macro pour ouvrir des fichiers toujours dans le même répertoire

Re,

essaye comme cela :

Sub ouvrir_rep()
Dim reponse As Variant
  ChDrive "C"
  ChDir "C:\Users"
  MsgBox CurDir
  reponse = Application.GetOpenFilename("fichier *.txt,*.txt")
  MsgBox (reponse)
  If reponse <> False Then
    Workbooks.Open reponse
  End If
End Sub

JE ne suis pas sur pour open ton fichier à t il des séparateurs, essaye de l'ouvrir manuellement en créant une macro(grace à l'enregisteur de macro) pour avoir la syntaxe exact.

A+

 

[gbdos]

Re : macro pour ouvrir des fichiers toujours dans le même répertoire

Ca marche Nickel !!!

Merci d'avoir pris le temps de regarder mon problème

 

[WILFRIED]

Re : macro pour ouvrir des fichiers toujours dans le même répertoire

Pas de problème, le forum est là pour ça.

A+