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