Bonjour ,

j'ai de nouveau un probleme lors de mon importation de données
En gros, je fais une importation d'une feuille excel d'un autre document vers mon document en cours.

Pour se faire, en cliquant sur un bouton, je parcours mes fichiers en affichant les fichiers excel.

Tout marche bine quand je séléctionne un fichier excel, cependant, si je fais "annuler", cela met une erreur

le code :

 FileToOpen = Application.GetOpenFilename("Tout les fichiers Excel (*.xl*;*.xls;*.xla;*.xml;*.xlm;*.xlc;*.xlw),")
    If Not FileToOpen = vbNullString Then Workbooks.Open FileToOpen Else
    If FileToOpen = vbNullString Then
    MsgBox mes1
    End If
    Exit Sub


Erreur d'execution '1004'
il me met en erreur qu'il n'a pas pu trouver le fichier : "faux.xls"

mes1 est une message disant qu'il y a eu une annulation de l'importation

Salut

 FileToOpen = Application.GetOpenFilename("Tout les fichiers Excel (*.xl*;*.xls;*.xla;*.xml;*.xlm;*.xlc;*.xlw),")
    If Not FileToOpen = false Then
        Workbooks.Open FileToOpen
    Else
        MsgBox mes1
    End If
    Exit Sub

si false ne marche pas ajoute MsgBox FileToOpen avant la condition if, pour voir ce que contient la variable FileToOpen quand tu cliques sur cancel

A+

salut,

ton code est bizarre, voilà ce qu'il faudrait faire :

 FileToOpen = Application.GetOpenFilename("Tout les fichiers Excel (*.xl*;*.xls;*.xla;*.xml;*.xlm;*.xlc;*.xlw),")
    If FileToOpen <> vbNullString Or FileToOpen Then
        Workbooks.Open FileToOpen
    Else
    MsgBox mes1
    End If
    Exit Sub

annuler renvoi non pas une chaine de caractère nulle, mais false

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

J'ai modifié, mais un probleme persiste.

Maintenant, quand je fais annuler , cela marche, mais lorsque je choisi un fichier pour l'importation , cela plante

Il met que le type est incompatible, erreur d'execution '13'

PS : je croyais que cétait VbNullString et non pas False ?
Enfin c'est ce qu'a dit Mortalino

VbNullstring = si rien n'est choisi, mais appuie sur Valider
false = annuler.
(cf F1, je viens de le lire)

elle est sur quelle ligne ton erreur ?

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

J'ai essayé ta methode Mortalino, mais il y a un probleme, cela bug quand je séléctionne un fichier et aussi quand j'annule

Il me dit que le probleme vient de cette ligne là :

FileToOpen = Application.GetOpenFilename("Tout les fichiers Excel (*.xl*;*.xls;*.xla;*.xml;*.xlm;*.xlc;*.xlw),")
    If FileToOpen <> vbNullString Or FileToOpen Then
        Workbooks.Open FileToOpen
    Else
    MsgBox mes1
    End If
    Exit Sub


Dans les 2 cas : erreur d'execution '13'
Incompatibilité des types

grrr

c'est bon j'ai vu, mais il y a conflit dans les types de données..
Je cherche

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

essai comme ça pour voir

FileToOpen = Application.GetOpenFilename("Tout les fichiers Excel (*.xl*;*.xls;*.xla;*.xml;*.xlm;*.xlc;*.xlw),")
    If FileToOpen <> "" Or FileToOpen = True Then
        Workbooks.Open FileToOpen
    Else
    MsgBox mes1
    End If
    Exit Sub

pardon

If FileToOpen <> "" Or Not FileToOpen = False Then

Nop,

If FileToOpen Then

Tout bêtement, car le bouton ouvrir est grisé tant qu'il n'y a pas de fichier de sélectionné.

Par contre, si un filou mets quelque chose dans la barre d'adresse, et qui ne correspond pas à un fichier valide, ça plantera.
(vérifier avec Dir)

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA