IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

L'indice n'appartient pas à la selection


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre très actif
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    472
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2007
    Messages : 472
    Par défaut L'indice n'appartient pas à la selection
    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

  2. #2
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    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é.

  3. #3
    Membre très actif
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    472
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2007
    Messages : 472
    Par défaut
    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

  4. #4
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    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é.

  5. #5
    Membre très actif
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    472
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2007
    Messages : 472
    Par défaut
    J'ai mis la variable à False mais j'ai eu un message qui disait qu'il y a une incompatibilité de type

  6. #6
    Invité
    Invité(e)
    Par défaut
    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
    Dernière modification par AlainTech ; 30/03/2013 à 14h21. Motif: Suppression de la citation

  7. #7
    Membre très actif
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    472
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2007
    Messages : 472
    Par défaut
    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

  8. #8
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    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é.

  9. #9
    Membre très actif
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    472
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2007
    Messages : 472
    Par défaut
    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

  10. #10
    Invité
    Invité(e)
    Par défaut
    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.

Discussions similaires

  1. l'indice n'appartient pas à la selection erreur 9
    Par sof78 dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 10/08/2011, 11h19
  2. [XL-2003] Problème VBA générant du code VBA "l'indice n'appartient pas à la selection"
    Par Access Newbie dans le forum Macros et VBA Excel
    Réponses: 17
    Dernier message: 21/06/2011, 09h46
  3. [XL-2003] Erreur '0' : l'indice n'appartient pas à la selection
    Par Benjycool dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 29/04/2010, 15h51
  4. Erreur d'execution '9'. L'indice n'appartient pas à la selection
    Par goby45 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 26/02/2010, 15h09
  5. L'indice n'appartient pas à la selection (Close)
    Par Elijah37 dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 31/07/2008, 14h37

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo