Sélectionner et ouvrir un fichier

[siocnarf]

Bonjour,

Comment pourrais-je faire apparaître une boite de dialogue demandant à l'utilisateur de sélectionner ou d'ouvrir un classeur Excel?

Merci,

 

[Dranreb]

Re : Sélectionner et ouvrir un fichier

Bonjour.
Formellement: utiliser Application.GetOpenFilename
Il existe aussi la possibilité de lancer le dialogue qui ouvre un fichier.
Celle ci affiche seulement la boîte sans rien ouvrir et rend le nom complet choisi ou le booleen False dans un variant.
Cordialement

 

[siocnarf]

Re : Sélectionner et ouvrir un fichier

Bonjour,

Intéressant. Est-il possible de trapper si l'utilisateur renonce en faisant annuler?

Merci,

 

[Dranreb]

Re : Sélectionner et ouvrir un fichier

Oui, hé hé, j'ai répondu dans une modif de mon message.
À+

 

[siocnarf]

Re : Sélectionner et ouvrir un fichier

Bonjour,

Je dois programmer mon application afin qu'il puisse ouvrir les xls et xlsx tant dans office 2003 que Office 2007. Le script fonctionne maintenant! Toutefois, il ne me donne que les xls et non pas les xlsx dans le filtre....

Dim sfiltre As String
Dim STitre As String
Dim SNomDossier As String
Dim IntFilterIndex As Integer
Dim Filename As Variant

'http://www.tek-tips.com/faqs.cfm?fid=4114
'sfiltre = "Fichiers Excel (*.xls),*.xls;*.xlsx" 'Filtre à appliquer
sfiltre = "Fichiers Office (*.xls),*.xls;*.xlsx" 'Filtre à appliquer
'sfiltre = "Fichiers Excel (*.xls),*.xls" 'Filtre à appliquer
IntFilterIndex = 1

STitre = "Choisissez un fichier contenant les données à recompiler" 'Titre de la boite
SNomDossier = Application.ActiveWorkbook.Path 'Chemin initial
SNomDossier = SNomDossier & "\Data"
StrDrive = Mid(SNomDossier, 1, 1)

'On applique l'emplacement des fichiers.
ChDrive (StrDrive)
ChDir (SNomDossier)
With Application
    ' Set File Name to selected File
    Filename = .GetOpenFilename(sfiltre, IntFilterIndex, STitre)
    ' Reset Start Drive/Path
    ChDrive (Left(.DefaultFilePath, 1))
    ChDir (.DefaultFilePath)
End With

If Filename = False Then
    MsgBox "Pas de fichier sélectionné"
    Exit Sub
End If

' Open File
Workbooks.Open Filename
MsgBox Filename, vbInformation, "File Opened" ' This can be removed

End SubMerci,

 

[Dranreb]

Re : Sélectionner et ouvrir un fichier

Bonjour.
Votre paramètre sfiltre me paraît correctement initialisé. Dans une appli j'en utilise un bien plus compliqué qui marche aussi :
"Tous,*.bmp;*.jpg;*.gif;*.ico;*.cur;*.dib;*.emf;*.wmf,Images,*.bmp;*.jpg;*.gif,Bitmaps,*.bmp;*.dib,Joint Photographic (Experts) Group,*.jpg,Graphics Interchange File,*.gif,Icône,*.ico,Curseur fixe,*.cur,Métafichiers,*.emf;*.wmf"
Mais je suis chaque fois obligé de re-chercher quand je dois en mettre un au point.
Par contre je ne spécifie pas le paramètre 2, FilterIndex.
À+