L'indice n'appartient pas à la selection

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

J'ai un souci avec ma feuille excel qui est alimenté depuis une autre feuille excel.

Quand je clique sur le bouton qui me sert à ouvrir le fichier excel source et que je fais ouvrir j'ai un message d'erreur : l'indice n'appartient pas à la selection

Avez vous une idée sur le problème ?

Merci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub OpenIt() Dim FileToOpen As String FileToOpen = Application.GetOpenFilename(Title:="Choisissez un document excel à importer.", _ FileFilter:="Excel Files *.xlsx (*.xlsx),") If CStr(FileToOpen) = "Faux" Then Call MsgBox("Pas de document spécifié.", vbExclamation, "Importation annulée") Set SrcWorkbook = Nothing Exit Sub Else Set SrcWorkbook = Workbooks.Open(Filename:=FileToOpen) End If End Sub

13/03/2013, 13h48
Theze
Bonjour,

Ton erreur est où ? Sur cette ligne ?
Code:

1 2 Set SrcWorkbook = Workbooks.Open(Filename:=FileToOpen)
Hervé.
13/03/2013, 14h29
sab_info

Bonjour,

Quand je débogue le curseur se pointe sur cette ligne

Code:

If CStr(FileToOpen) = "Faux" Then

Re,

Ta variable doit être de type Variant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub OpenIt()
 
    Dim FileToOpen
 
    FileToOpen = Application.GetOpenFilename(Title:="Choisissez un document excel à importer.", _
                                             FileFilter:="Excel Files *.xlsx (*.xlsx),")
 
    If FileToOpen = False Then
 
        Call MsgBox("Pas de document spécifié.", vbExclamation, "Importation annulée")
        Set SrcWorkbook = Nothing
        Exit Sub
    Else
 
        Set SrcWorkbook = Workbooks.Open(Filename:=FileToOpen)
    End If
 
End Sub

Hervé.

13/03/2013, 15h12
sab_info

J'ai mis la variable à False mais j'ai eu un message qui disait qu'il y a une incompatibilité de type
13/03/2013, 15h25
Invité

Bonjour,
J’ai pris ton code en l’état et chez moi il fonctionne sans problème.
Si tu l’exécute direct sans passer par le bouton ??

exécute pas a pas
13/03/2013, 16h19
sab_info

Bonjour,

Et du coup le problème vient de où exactement ? Je n'ai pas pu déboguer le code de A à Z car il y a pas mal de fonctions où je peux pas faire un débog pas à pas
13/03/2013, 17h34
Theze
Re,

Chez moi le code marche dans les deux cas, de ce fait il est difficile de savoir !!!
Vire ton blocde test If Then Else :
Code:

1 2 If CStr(FileToOpen) = "Faux" Then
Pour voir si ça fonctionne en ayant bien sûr effectué une sélection.

Hervé.
14/03/2013, 02h31
sab_info

Re,

Je viens de le faire et j'ai toujours le même message d'erreur.

Du coup vu le contenu du message qui n'est pas précis ça va être dur de détecter le problème.

Pour vous donner une idée j'ai un fichier excel qui contient un tableau et ses colonnes sont alimenté depuis un autre fichier excel après avoir cliqué sur un bouton.

Les données source vont être traité et affichées d'une autre manière.

Voilà voilou je me retrouve coincée
14/03/2013, 08h44
Invité

Bonjour,
Dans VB, positionne toi dans Private Sub OpenIt()et click sur la touche [F8] à plusieurs reprise, tu verras exactement où ce situ l’erreur.
14/03/2013, 10h33
sab_info

Bonjour et merci pour ton aide.

C'est ce que j'ai fait et quand j'ai choisi mon fichier excel à charger j'ai eu le message d'erreur et mon curseur s'est pointé sur la ligne :

Code:

If CStr(FileToOpen) = "Faux" Then
14/03/2013, 10h59
Invité

Menu->Outils- >Références
Supprime les librairies manquantes.
14/03/2013, 12h46
sab_info

Je viens de regarder je n'ai pas de librairies manquantes :(
14/03/2013, 13h00
Invité

Désolé il arrive quand une appli passe de version (Excel) en version !
14/03/2013, 13h02
sab_info

Il n'y a pas de soucis t'as pas à être désolé.

C'est vrai que avoir des messages d'erreur comme ça nous aide pas beaucoup à résoudre le problème.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub OpenIt()
 
    Dim FileToOpen As String
 
    FileToOpen = Application.GetOpenFilename(Title:="Choisissez un document excel à importer.", _
                                             FileFilter:="Excel Files *.xlsx (*.xlsx),")
 
'*****************************************************
 Debug.Print FileToOpen 'pour voire le réultat [Ctrl] + [G]
'*****************************************************
 
    If CStr(FileToOpen) = "Faux" Then
 
        Call MsgBox("Pas de document spécifié.", vbExclamation, "Importation annulée")
        Set SrcWorkbook = Nothing
        Exit Sub
    Else
 
        Set SrcWorkbook = Workbooks.Open(Filename:=FileToOpen)
    End If
 
End Sub

14/03/2013, 13h49
sab_info

Le nom de mon fichier est bien récupéré

Du coup c'est peut être le contenu de ce fichier là qui fait planter ma feuille
14/03/2013, 14h00
Invité

Copy le et colle le dans la barre d’adresse d’un Windows exploreur !

Test non ca marche pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub OpenIt()
 
    Dim FileToOpen As String
 
    FileToOpen = Application.GetOpenFilename(Title:="Choisissez un document excel à importer.", _
                                             FileFilter:="Excel Files *.xlsx (*.xlsx),")
 
 If FileToOpen = False Then
 
        Call MsgBox("Pas de document spécifié.", vbExclamation, "Importation annulée")
        Set SrcWorkbook = Nothing
        Exit Sub
    Else
 
        Set SrcWorkbook = Workbooks.Open(Filename:=FileToOpen)
    End If
 
End Sub

14/03/2013, 14h06
Invité

J'ai testé ça ça marche chez moi!!!!!

Code:

If Trim("" & FileToOpen) = "Faux" Then

Voir 40 message(s) de cette discussion en une page