Ouverture de fichier dans un répertoire

Emcy wrote:

Bonjours,

je voudrais :
1- ouvrir une fenetre qui me permette de selectionner un repertoire
2- rechercher tous les fichiers avec l'extention .sch

3-s'il y a plusieurs fichiers, me demander lequel je veux ouvrir.
3-s'il n'y a aucun fichiers, arreter la macro en me disant qu'il n'y
a pas de fichier .sch
3- s'il y a un fichier, l'ouvrir

Bonjour,

Essaie un truc du genre :
nom_fic = Application.GetOpenFilename("Fichier sch (*.sch),*.sch")
If nom_fic Then
Workbooks.Open nom_fic
Else
MsgBox "Désolé, aucun fichier disponible", vbExclamation + vbOKOnly, "Recherche de fichier .sch"
End If

Ca ne correspond pas à 100% à ton cahier des charges, mais ça permet de naviguer dans les dossiers en n'affichant que les .sch.


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...

le fichier que je veux ouvrir n'est pas un fichier excel
comment faire pour selectionner le fichier à ouvrir ?

"Rai" <raimondpointschmidt@berlin.de> a écrit dans le message de
news:ca1g6g$oht$1@news-reader4.wanadoo.fr...
Emcy wrote:

Bonjours,

je voudrais :
1- ouvrir une fenetre qui me permette de selectionner un repertoire
2- rechercher tous les fichiers avec l'extention .sch

3-s'il y a plusieurs fichiers, me demander lequel je veux ouvrir.
3-s'il n'y a aucun fichiers, arreter la macro en me disant qu'il n'y
a pas de fichier .sch
3- s'il y a un fichier, l'ouvrir

Bonjour,

Essaie un truc du genre :
nom_fic = Application.GetOpenFilename("Fichier sch (*.sch),*.sch")
If nom_fic Then
Workbooks.Open nom_fic
Else
MsgBox "Désolé, aucun fichier disponible", vbExclamation + vbOKOnly,
"Recherche de fichier .sch"
End If

Ca ne correspond pas à 100% à ton cahier des charges, mais ça permet de
naviguer dans les dossiers en n'affichant que les .sch.


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...

Emcy wrote:

le fichier que je veux ouvrir n'est pas un fichier excel
comment faire pour selectionner le fichier à ouvrir ?

'GetOpenFilename" gère la navigation parmi les dossiers, et l'affichage des fichiers dont tu spécifies l'extension :
nom_fic = Application.GetOpenFilename("Fichier sch (*.sch),*.sch")

"Fichier sch (*.sch)" correspond au descriptif que tu vois dans la ligne 'type' de ta boîte de dialogue.
"*.sch" spécifie le filtre à appliquer.

Je te conseille un petit 'F1' sur l'instruction pour avoir accès à toutes les options.

------

Pour ce qui est de l'ouverture de ton fichier .sch
"Workbooks.Open nom_fic" ne peut ouvrir qu'un classeur Excel (avec une extension hors normes, mais il s'en fiche)

Pour ouvrir un fichier avec une autre application ... je pense qu'il faudra passer par une commande 'shell', mais là je passe la main aux spécialistes du genre.


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...