Discussion :

[Runsh63]

Bonjour,

J'ai un problème tout bête mais que je n'arrive pas à résoudre... Je cherche à ouvrir un fichier Excel pour y importer des données.
Après avoir cherché sur le net, voilà ce que j'ai pu taper :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Compile_AEM_Data()
 
Dim DataSource As String
 
Application.ScreenUpdating = False
 
DataSource = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , "Sélectionnez le fichier source")
 
    If DataSource = False Then
       MsgBox "Vous n'avez pas sélectionner de fichier, veuillez relancer la procédure SVP.", vbCritical, "Erreur dans la sélection du fichier source"
       Exit Sub
    Else
       Workbooks.Open DataSource
    End If

Lorsque je sélectionne un fichier Excel, j'ai un "Run-time error '13': Type mismatch.

Qu'ai-je mal fait ?

Merci d'avance pour votre patience et votre réponse.

[joe.levrai]

Bonjour,

Datasource est un String et pas un booléen.
Si tu choisis un fichier, DataSource contiendra le chemin complet du fichier
Si tu ne choisis rien, Datasource contiendra la chaine "Faux"


il faut donc tester, non pas sur l'opérateur booléen False, mais sur le String "Faux"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Compile_AEM_Data()
Dim DataSource As String
 
Application.ScreenUpdating = False
DataSource = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , "Sélectionnez le fichier source")
 
If DataSource = "Faux" Then
   MsgBox "Vous n'avez pas sélectionner de fichier, veuillez relancer la procédure SVP.", vbCritical, "Erreur dans la sélection du fichier source"
   Exit Sub
Else
   Workbooks.Open DataSource
End If
 
End Sub

[pasdechances]

Bonjour,

Datasource est un String et pas un booléen.
Si tu choisis un fichier, DataSource contiendra le chemin complet du fichier
Si tu ne choisis rien, Datasource contiendra la chaine "Faux"


il faut donc tester, non pas sur l'opérateur booléen False, mais sur le String "Faux"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Compile_AEM_Data()
Dim DataSource As String
 
Application.ScreenUpdating = False
DataSource = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , "Sélectionnez le fichier source")
 
If DataSource = "Faux" Then
   MsgBox "Vous n'avez pas sélectionner de fichier, veuillez relancer la procédure SVP.", vbCritical, "Erreur dans la sélection du fichier source"
   Exit Sub
Else
   Workbooks.Open DataSource
End If
 
End Sub

lors du test de son code l'erreur d'écrite premierement ne met pas apparu.
l'erreur que tu cite la est une erreur de type.

son erreur run time doit etre du a une autorisation ou un probleme de fichier je pense.

[joe.levrai]

Pour t'en convaincre, regarde ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Compile_AEM_Data()
 
Dim DataSource
 
Application.ScreenUpdating = False
 
DataSource = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , "Sélectionnez le fichier source")
 
    If DataSource = False Then
       MsgBox "Vous n'avez pas sélectionner de fichier, veuillez relancer la procédure SVP.", vbCritical, "Erreur dans la sélection du fichier source"
       Exit Sub
    Else
       Workbooks.Open DataSource
    End If
End Sub

si je ne type pas Datasource ... il n'y a plus de problème !

DataSource non typé :

- sera un booléen (False) si on ne choisis pas de fichier
- sera un variant (string du chemin complet du fichier) si on choisi un fichier


voici pour te convaincre une seconde fois :

Code :

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

1
2
3
4
Sub ioi()
a = Application.GetOpenFilename("Feuilles de calcul (*.xlsx;*.xls), *.xls; *.xlsx", , , , True)
MsgBox TypeName(a)
End Sub

essaye deux fois :

- en choisissant un fichier
- sans choisir de fichier

[pasdechances]

Excuse moi, j'ai mal compris l'erreur, effectivement la seule erreur qu'il y avais était le type de datasource.
je pensais en réalité qu'elle était ailleur.

[Runsh63]

Mes excuses pour ma tardive réponse. Merci beaucoup pour la solution, qui fonctionne à merveille, et surtout pour l'explication, qui est un plus car ça m'a permis de comprendre, et ainsi éviter ce genre d'erreur à l'avenir.

Encore mille fois merci, bonne journée à vous tous !

[pasdechances]

Bonjour,

etrange erreur que tu as la.
Personnelement j'ai tester ton bout de code et l'erreur que j'ai rencontré est lier au type de ta variable datasource.
ta condition devrai tester une difference vide

Code :

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

if datasource <> "" then

ou

Code :

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

if datasource = "" then

apres je ne me suis pas attardé sur la fonction Application.GetOpenFilename, mais dans le cas present, elle ne tien guere compte de ton filtre "*.xls" .
cela dit apres avoir corrigé la petite erreur de type je n'ai pas eu d'erreur, le probleme ne vien peut etre pas de ton code.