L'indice n'appartient pas à la sélection

Résolu/Fermé
siamens_duj
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
- 30 mai 2016 à 09:18
Pierre1310
Messages postés
8554
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
- 30 mai 2016 à 14:03
Bonjour,

Je fais appel à votre aide car je suis coincé sur un problème.
J'ai une erreur 9 "L'indice n'appartient pas à la sélection" à la ligne Sheets("Recap").Select en bas du code.
Je ne comprends pas pourquoi ! J'ai essayé de la commenter, mais si je fais cela, j'ai la même erreur sur Sheets("Base").Select.

Quelqu'un pourrait m'aider svp.

Merci d'avance.


[/contents/446-fichier-sub sub] creation()

Dim Nom_Fiche, Fiche, Nom_Fichier, Intitule, Ind, Article, Fiche_Compt as string
Dim CheminFICHE as string

CheminFICHE = "D:\Users\moi\Documents\Perso"

Dim Verifier as Boolean
Dim p as Long

p = 2

Sheets("Recap").Select
    
    
For Each Cell In Sheets("Recap").UsedRange.Columns("A").Cells
    
    If Cell.Row > 1 Then

	Ind = Range("K" & Cell.Row).Value
        Intitule = Range("A" & Cell.Row).Value
        Article = Range("B" & Cell.Row).Value

	Fiche_Compt = Ind & ".xlsx"

	
	 Sheets("Base").Select
            
            For Each Ligne In Sheets("Base").UsedRange.Columns("A").Cells

		Nom_Fichier = Ind & "_" & Intitule & "_" & Article & ".xlsx"

		If Nom_Fichier = Ligne.Value Then
                
                    'Si le fichier existe déjà
                    Verifier = True
                    Nom_Fichier = ""
                    Exit For
                    
                Else
                    Verif = False
                End If
            Next

		 If Verifier = False Then

pen:                Sheets("Base").Select
                
                    If Cells(p, 2).Value = "" Then
               
                        Cells(p, 2).Value = Nom_Fichier
            
                    Else
                    
                    p = p + 1
                    GoTo pen
                    
                  End If

		 'On ouvre le classeur à copier
               Workbooks.Open (CheminFICHE & Fiche_Compt)
                
                'On ouvre la fiche pour sélectionner la feuille
                Application.DisplayAlerts = False

		 ActiveWorkbook.SaveCopyAs CheminFICHE & Nom_Fichier

		 Workbooks.Open (CheminFICHE & Nom_Fichier)

		 Workbooks(Nom_Fichier).Close (True)

	end if
    
    end if

Sheets("Recap").Select

next

End sub

1 réponse

Pierre1310
Messages postés
8554
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
641
30 mai 2016 à 09:27
Salut,

Mets activate à la place de select.
0
siamens_duj
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
8
30 mai 2016 à 09:30
Merci pour votre réponse rapide mais ça me fait exactement la même erreur :(
0
Pierre1310
Messages postés
8554
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
641
30 mai 2016 à 09:43
Tu veux travailler sur quoi?
X feuilles d'un même classeur?
X feuilles de x classeurs?
x classeurs?
0
siamens_duj
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
8
30 mai 2016 à 09:44
Toutes mes feuilles sont dans le même classeur.
0
Pierre1310
Messages postés
8554
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
641
30 mai 2016 à 10:06
tous tes noms de feuille sont bien exacts?
0
siamens_duj
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
8
30 mai 2016 à 10:39
oui, les noms de feuilles, le chemin etc ..
0