Discussion :

[sab_info]

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 :

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

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

[Theze]

Bonjour,

Ton erreur est où ? Sur cette ligne ?

Code :

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

1
2
 
Set SrcWorkbook = Workbooks.Open(Filename:=FileToOpen)

Hervé.

[sab_info]

Bonjour,

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

Code :

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

If CStr(FileToOpen) = "Faux" Then

[Theze]

Re,

Ta variable doit être de type Variant :

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
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é.

[sab_info]

J'ai mis la variable à False mais j'ai eu un message qui disait qu'il y a une incompatibilité de type

[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

[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

[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 :

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

1
2
 
If CStr(FileToOpen) = "Faux" Then

Pour voir si ça fonctionne en ayant bien sûr effectué une sélection.

Hervé.

[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

[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.