Ouverture d'un dossier pour sélection manuelle d'un fichier
Résolu
geo3701
Messages postés
58
Date d'inscription
Statut
Membre
Dernière intervention
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Ouverture d'un dossier pour sélection manuelle d'un fichier
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier bin - Guide
- Fichier rar - Guide
- Dossier appdata - Guide
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..
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.
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.