Ouverture d'un dossier pour sélection manuelle d'un fichierRésolu/Fermé

Question

Bonjour, 

Voilà, je souhaite faire une macro qui ouvre un dossier et où je n'aurai plus qu'à sélectionner manuellement (et c'est nécessaire dans ma manip') le fichier Excel à ouvrir.

J'ai essayé avec le ChDir, mais ça n'a pas l'air d'être sa fonction.

Avez-vous une idée?

Merci d'avance

Configuration: Windows Vista / Firefox 29.0

Polux31 · Answer

Bonjour,

En utilisant :
Application.GetOpenFilename 

Voir ici pour plus d'informations

geo3701 · Answer

Merci,

Mais cela ne fonctionne pas, alors surement que je me débrouille mal.


public chemin as string

chemin = "monchemin"

chemin = Application.GetOpenFilename

et cela ne m'ouvre pas le dossier chemin..

geo3701 · Answer

J'ai trouvé

Public fld As FileDialog

  Set fld = Application.FileDialog(msoFileDialogOpen)
  With fld
    .InitialFileName = "monchemin"
    .Show
  End With
  monfichier= fld.SelectedItems(1)
  Workbooks.Open Filename:=monfichier

Et ça fonctionne.

Polux31 · Answer

Pour ouvrir sur un dossier particulier il faut mettre avant le ChDir !!!

Dim monFichier As Variant

ChDir "C:\CCM"
monFichier = Application.GetOpenFilename("(*.xls),*.xls")
 
 
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» 
Nicolas Boileau

Ouverture d'un dossier pour sélection manuelle d'un fichier

4 réponses

Newsletters