Ouverture d'un dossier pour sélection manuelle d'un fichier
Résolu
geo3701
Messages postés
60
Statut
Membre
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
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
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
4 réponses
-
-
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.. -
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. -
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
