Erreur d'exécution 9,l'indice n'appartient pas à la selectio
Bonjour,
Comme cité dans le titre , j'ai une erreur de type 9 qui apparaît lors de l'exécution de mon code.
voici mon code :
Sub historisationindicateurqualité1()
NomClasseurSource = ActiveWorkbook.Name
NomFeuilleSource = "Projets"
NumPremLigneSource = 10
FeuilleSource = NomFeuilleSource
FenetreSource = NomClasseurSource
MonChemin = ActiveWorkbook.Path
'définir classeur cible
NomClasseurCible = "base de donné historisations.xlsm"
FenetreCible = NomClasseurCible
FeuilleCible = "base info"
'definir ma feuille cible
ChDir MonChemin
NumPremLigneCible = 5
NumPremColoneCible = 3
ClasseurSource = MonChemin + "\" + NomClasseurSource
ClasseurCible = MonChemin + FenetreCible ' MonChemin +
Windows(FenetreCible).Activate
Sheets(FeuilleCible).Select
'Initialisation
NumPremLigneCible = 5
NumPremColoneCible = 3
NBLigneCible = Sheets(FeuilleCible).Cells(NumPremLigneCible, 3).CurrentRegion.Rows.Count
Windows(FenetreSource).Activate
Sheets(FeuilleSource).Select
NBLigneSource = Sheets(FeuilleSource).Cells(NumPremLigneSource, 10).CurrentRegion.Rows.Count
ISource = NumPremLigneSource
ICible = NumPremLigneCible + NBLigneCible - 2 'modifié le 18/03/11
Dim DemandeFaite As Boolean
Do Until ISource = NBLigneSource + 6 'Modifié le 18/03/11
Cells(ISource, 2).Select
ChargerProjet
Dim aa
If DemandeFaite = False Then
aa = InputBox("Saisie de la date d'historisation sous format jj/mm/aa ", "date_historisation")
' que se passe t'il si pas une date ?
If IsDate(aa) Then DateHisto = CDate(aa)
MsgBox "OK"
DemandeFaite = True
End If
Calculindicateur
Windows(FenetreCible).Activate
Sheets(FeuilleCible).Select
'Remplissage de la feuille Cible
Cells(ICible, 3) = LibelléProjet
Cells(ICible, 4) = MajeurProjet
Cells(ICible, 5) = MineurProjet
Cells(ICible, 6) = EtatAvancementProjet
Cells(ICible, 7) = Round(IONoteCompletude)
Cells(ICible, 8) = Round(IONoteRespectJalons)
Cells(ICible, 9) = Round(IONoteFraicheur)
Cells(ICible, 10) = IONotesynthése
Cells(ICible, 11) = TypeDeProjet
Cells(ICible, 12) = DateDeCalcul
ICible = ICible + 1
If COLDate = Now Then FenetreCible.Show
Windows(FenetreSource).Activate
Sheets(FeuilleSource).Select
ISource = ISource + 1
Loop
DateHisto = DateHisto = CDate("00:00:00")
End Sub
merci d'avance de votre aide
je suis désolée j'ai oublié de mentionner l'enplacement de l'erreur
Sub historisationindicateurqualité1()
NomClasseurSource = ActiveWorkbook.Name
NomFeuilleSource = "Projets"
NumPremLigneSource = 10
FeuilleSource = NomFeuilleSource
FenetreSource = NomClasseurSource
MonChemin = ActiveWorkbook.Path
'définir classeur cible
NomClasseurCible = "base de donné historisations.xlsm"
FenetreCible = NomClasseurCible
FeuilleCible = "base info"
'definir ma feuille cible
ChDir MonChemin
NumPremLigneCible = 5
NumPremColoneCible = 3
ClasseurSource = MonChemin + "\" + NomClasseurSource
ClasseurCible = MonChemin + FenetreCible ' MonChemin +
Windows(FenetreCible).Activate
Sheets(FeuilleCible).Select => c'est la ou il s'arrete
'Initialisation
NumPremLigneCible = 5
NumPremColoneCible = 3
NBLigneCible = Sheets(FeuilleCible).Cells(NumPremLigneCible, 3).CurrentRegion.Rows.Count
Windows(FenetreSource).Activate
Sheets(FeuilleSource).Select
NBLigneSource = Sheets(FeuilleSource).Cells(NumPremLigneSource, 10).CurrentRegion.Rows.Count
ISource = NumPremLigneSource
ICible = NumPremLigneCible + NBLigneCible - 2
Dim DemandeFaite As Boolean
Do Until ISource = NBLigneSource + 6
Cells(ISource, 2).Select
ChargerProjet
Dim aa
If DemandeFaite = False Then
aa = InputBox("Saisie de la date d'historisation sous format jj/mm/aa ", "date_historisation")
' que se passe t'il si pas une date ?
If IsDate(aa) Then DateHisto = CDate(aa)
MsgBox "OK"
DemandeFaite = True
End If
Calculindicateur
Windows(FenetreCible).Activate
Sheets(FeuilleCible).Select
'Remplissage de la feuille Cible
Cells(ICible, 3) = LibelléProjet
Cells(ICible, 4) = MajeurProjet
Cells(ICible, 5) = MineurProjet
Cells(ICible, 6) = EtatAvancementProjet
Cells(ICible, 7) = Round(IONoteCompletude)
Cells(ICible, 8 ) = Round(IONoteRespectJalons)
Cells(ICible, 9) = Round(IONoteFraicheur)
Cells(ICible, 10) = IONotesynthése
Cells(ICible, 11) = TypeDeProjet
Cells(ICible, 12) = DateDeCalcul
ICible = ICible + 1
If COLDate = Now Then FenetreCible.Show
Windows(FenetreSource).Activate
Sheets(FeuilleSource).Select
ISource = ISource + 1
Loop
DateHisto = DateHisto = CDate("00:00:00")
End Sub
Bonjour,
Vérifie si la feuille "base info" est bien orthographiée de cette façon (onglet) !
Hervé.