Ouverture d'un dossier pour sélection manuelle d'un fichier
Résolu/Fermé
geo3701
Messages postés
58
Date d'inscription
mardi 16 avril 2013
Statut
Membre
Dernière intervention
8 août 2017
-
2 juil. 2014 à 09:37
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 2 juil. 2014 à 13:52
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 2 juil. 2014 à 13:52
A voir également:
- Ouverture d'un dossier pour sélection manuelle d'un fichier
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Mettre un mot de passe sur un dossier - Guide
- Fichier host - Guide
4 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
2 juil. 2014 à 12:01
2 juil. 2014 à 12:01
Bonjour,
En utilisant :
Voir ici pour plus d'informations
En utilisant :
Application.GetOpenFilename
Voir ici pour plus d'informations
geo3701
Messages postés
58
Date d'inscription
mardi 16 avril 2013
Statut
Membre
Dernière intervention
8 août 2017
1
2 juil. 2014 à 13:38
2 juil. 2014 à 13:38
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..
geo3701
Messages postés
58
Date d'inscription
mardi 16 avril 2013
Statut
Membre
Dernière intervention
8 août 2017
1
2 juil. 2014 à 13:49
2 juil. 2014 à 13:49
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.
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
Modifié par Polux31 le 2/07/2014 à 13:52
Modifié par Polux31 le 2/07/2014 à 13:52
Pour ouvrir sur un dossier particulier il faut mettre avant le ChDir !!!
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
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