Discussion :

[doowy38]

Bonjour,

Grâce à vous, à la lecture de cette discussion, je peux traiter l'erreur provoquée en cas d'annulation quand on a la fenêtre pour ouvrir un fichier, merci beaucoup.
J'aurais cependant voulu savoir, par curiosité, ce qu'il faudrait mettre derrière Dim DocChoisi As comme type ?
Est-ce un String ?

Cordialement.

[Krovax]

Regarde ce que tu dit l'aide sur getopenfilename.... je voulais copier le morceau en question mais ca dessu ce n'est pas très explicite.
Bon tu as donc très bien fait de poser la question, la réponse est bien string

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim DocChoisi As String

En fait cela renvoie le chemin d'acces au fichier choisie sous forme de chaine de caractère.

[doowy38]

D'accord.

Par contre si ce qui est renvoyé est False (ma version est en anglais) et non pas le chemin du fichier, et si on définit DocChoisi comme un String, cela ne pose-t-il pas un problème : If Not DocChoisi = False Then ?
En effet, False n'est pas un String...
D'où le fait de ne pas mettre de type à DocChoisi... ?

Merci de ton aide.

[Krovax]

Ce que tu peux utiliser toujours en variable string
pour gérer version anglaise ou francaise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If DocChoisi = "False" Or DocChoisi = "Faux" Then Exit Sub

[doowy38]

Tu es sûr ?

Quand je fais ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Dim Choice As String
    Choice = Application.GetOpenFilename
    If Not Choice = "False" Then
        Application.Workbooks.Open (Choice)
    Else
        MsgBox "What the fuck ?"
        ' variable annulation : permet d'aller à la fin du code (à mettre en place)
    End If

et que je fais annuler, j'ai une erreur et la ligne surlignée est Application.Workbooks.Open (Choice), donc a priori suite à une annulation, ce qui est renvoyé (False, ou Faux) n'est pas un String.
Du coup If Not Choice = "False" Then ne marche pas...

[Krovax]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Dim Choice As String
    Choice = Application.GetOpenFilename
    MsgBox  Choice 
    If Not Choice = "False" Then
        Application.Workbooks.Open (Choice)
    Else
        MsgBox "What the fuck ?"
        ' variable annulation : permet d'aller à la fin du code (à mettre en place)
    End If

Le code que je t'ai donné fonctionne du moins pour la versions française
Vérifie que choice contient bien False avec majuscule et tout

Le code utilisé pour le test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Dim test As String
    test = Application.GetOpenFilename
    If test = "False" Or test = "Faux" Then Exit Sub

Une autre solution de aales que je n'ai pas testé mais je lui fait confiance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim QuelFichier As Variant
QuelFichier = Application.GetOpenFilename("Excel Files (*.xls),*.xls")
If VarType(QuelFichier) = vbBoolean Then
      Exit Sub
End If
 
Workbooks.Open Filename:= QuelFichier

Par contre je n'aime pas trop les déclaration en variant quand ce n'est pas nécessaire mais bon