Apparition de "FALSE" si on fait "ouvrir" sans choisir de chemin d'accès
Résolu
Eleasias
Messages postés
36
Date d'inscription
mardi 18 mars 2008
Statut
Membre
Dernière intervention
31 mars 2008
-
20 mars 2008 à 15:06
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 - 21 mars 2008 à 22:16
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 - 21 mars 2008 à 22:16
A voir également:
- Apparition de "FALSE" si on fait "ouvrir" sans choisir de chemin d'accès
- L'accès au chemin d'accès est refusé - Forum VB.NET
- Acces au repertoire refusé - Forum ASP / ASP.NET
- Violation d'accès à l'adresse ✓ - Forum Delphi / Pascal
- Ouvrir la boîte de dialogue - Forum C++ & C++ .NET
- Directory.GetFiles et accès refusé ✓ - Forum VB.NET
21 réponses
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
17 août 2018
23
21 mars 2008 à 22:16
21 mars 2008 à 22:16
Personnellement, je me suis créé une petite Function pour traiter les ouvertures de fichiers
Public Function OuvrirFichier(Optional Extension As String) As String
Dim FileToOpen As String
If Extension = "xls" Then
FileToOpen = Application.GetOpenFilename("Fichiers Excel (*.xls),*.xls,Tous (*.*),*.*")
ElseIf Extension = "txt" Then
FileToOpen = Application.GetOpenFilename("Fichiers Texte (*.txt),*.txt,Tous (*.*),*.*")
Else
FileToOpen = Application.GetOpenFilename("Tous (*.*),*.*")
End If
If FileToOpen Then OuvrirFichier = FileToOpen
End Function
Si on appuie sur "Annuler", FileToOpen "Faux", tel quel avec les guillemets et la Function ne passe pas par le "Then OuvrirFichier FileToOpen" et retourne ""
Donc, pour l'appel, je procède ainsi
Filename = OuvrirFichier("txt")
If Filename = "" Then Exit Sub
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Public Function OuvrirFichier(Optional Extension As String) As String
Dim FileToOpen As String
If Extension = "xls" Then
FileToOpen = Application.GetOpenFilename("Fichiers Excel (*.xls),*.xls,Tous (*.*),*.*")
ElseIf Extension = "txt" Then
FileToOpen = Application.GetOpenFilename("Fichiers Texte (*.txt),*.txt,Tous (*.*),*.*")
Else
FileToOpen = Application.GetOpenFilename("Tous (*.*),*.*")
End If
If FileToOpen Then OuvrirFichier = FileToOpen
End Function
Si on appuie sur "Annuler", FileToOpen "Faux", tel quel avec les guillemets et la Function ne passe pas par le "Then OuvrirFichier FileToOpen" et retourne ""
Donc, pour l'appel, je procède ainsi
Filename = OuvrirFichier("txt")
If Filename = "" Then Exit Sub
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
