j'ai un problème sur la seconde ligne avec une erreur d'exécution 9:
"l'indice n'appartient pas à la sélection".
j'ai un problème sur la seconde ligne avec une erreur d'exécution 9:
"l'indice n'appartient pas à la sélection".
j'ai un problème sur la seconde ligne avec une erreur d'exécution 9:
"l'indice n'appartient pas à la sélection".
j'ai un problème sur la seconde ligne avec une erreur d'exécution 9:
"l'indice n'appartient pas à la sélection".
Vérifie l'existence et l'orthographe exacte des noms de fichiers et feuilles
AV
j'ai un problème sur la seconde ligne avec une erreur d'exécution 9:
"l'indice n'appartient pas à la sélection".
Vérifie l'existence et l'orthographe exacte des noms de fichiers et feuilles
AV
j'ai un problème sur la seconde ligne avec une erreur d'exécution 9:
"l'indice n'appartient pas à la sélection".
Vérifie l'existence et l'orthographe exacte des noms de fichiers et feuilles
AV
j'ai un problème sur la seconde ligne avec une erreur d'exécution 9:
"l'indice n'appartient pas à la sélection".
Vérifie l'existence et l'orthographe exacte des noms de fichiers et feuilles
AV
j'ai un problème sur la seconde ligne avec une erreur d'exécution 9:
"l'indice n'appartient pas à la sélection".
Vérifie l'existence et l'orthographe exacte des noms de fichiers et feuilles
AV
j'ai un problème sur la seconde ligne avec une erreur d'exécution 9:
"l'indice n'appartient pas à la sélection".
Vérifie l'existence et l'orthographe exacte des noms de fichiers et feuilles
AV
Bonjour Claire,
La structure syntaxique avec laquelle tu as écrite ta macro aurait besoin de certaines mises au point :
A ) Au moment d'exécuter ta macro, si tu sais que tu as plus d'un classeur ouvert, l'utilisation "ActiveWorkbook" dans du code est
très dangereux car es-tu réellement sûre que ce sera le bon classeur qui sera actif à chaque fois que tu lanceras ta macro... si ce
n'est pas le cas, ta macro va planter parce que les objets (l'existence des objets de même que leur nom) de "Activeworkbook" ne
concorde pas avec ceux décrites dans la macro. Pour éviter de se faire prendre au jeu, il faut faire une référence complète dans sa
syntaxe au classeur spécifique sur lequel l'action doit avoir lieu. Pour ce faire, tu peux utiliser ce type de syntaxe longue :
Workbooks("Charge_V1").Worksheets("projets").Range("B1").Value , ou, utiliser cette technique pour faire référence aux objets :
With Workbooks("Charge_V1")
a = .Worksheets("projets").Range("B1").Value
'Toutes les actions sur les objets faisant référence à ce classeur.
End with
B ) Toujours en faisant référence de "A", pourquoi les condition 2 et 3, tu n'utilises pas une référence complète comme tu le fais
pour la condition 1. Je fais référence à ceci :
ElseIf Range("numéro_projet").Value < 100 Then
Est-ce que la cellule nommée : "numéro_projet") est la même que B1 dans la condition1. Est-ce que c'est 2 cellules appartiennent
à la même feuille ? au même classeur ?
Si à la lecture de ton code, on parvient difficilement à situer les objets ... comment penses-tu qu'excel fait pour résoudre ces
dilemmes ? Il t'affiche des messages d'erreur te disant : "une erreur d'exécution 9: "l'indice n'appartient pas à la sélection".
C ) Ton code faire référence à ceci : numéro_projet.Value
Quel type d'objet représente : "numéro_projet"
D ) L'utilisation de Variables peut rendre le code plus accessible :
Dim Chemin as String
Chemin = "pars0001SapOngoing Live90-projets" & _
" 'évolution applicative'" & _
"Projet Bases ACCES50-Expression de besoin" & _
"base plan de chargeprojet_"
Tu remplaces dans ton code la section équivalente par la variable.
E ) L'indentation du code améliore aussi de beaucoup la lecture et la compréhension du code.
if conditon Then
solution
elseif condition1 then
solution1
elseif condition2 then
solution2
End if
Je n'ai pas joint de solution de rechange au code, car tel qu'il est écrit, il est très difficile de savoir quel est l'objet visé
par le code pour l'exécution de certaines actions.
Salutations!
ICI >>>>> If
Workbooks("Charge_V1").Worksheets("projets").Range("B1").Value < 10 Then
ActiveWorkbook.SaveAs Filename:="pars0001SapOngoing
Live90-projets 'évolution applicative'Projet Bases ACCES50-Expression de
besoinbase plan de chargeprojet_000" & numéro_projet.Value + 1 & ".xls"
ElseIf Range("numéro_projet").Value < 100 Then
ActiveWorkbook.SaveAs Filename:="pars0001SapOngoing
Live90-projets 'évolution applicative'Projet Bases ACCES50-Expression de
besoinbase plan de chargeprojet_00" & numéro_projet.Value + 1 & ".xls"
ElseIf Range("numéro_projet").Value < 1000 Then
ActiveWorkbook.SaveAs Filename:="pars0001SapOngoing
Live90-projets 'évolution applicative'Projet Bases ACCES50-Expression de
besoinbase plan de chargeprojet_0" & numéro_projet.Value + 1 & ".xls"
End If
ici c'est le même endroit que je désigne et il ne le reconnait pas!
Ici >>>>>Workbooks("Charge_V1").Save
Et dans encore un autre ceci
Workbooks("Charge_V1").Worksheets("BDB").Range("A2:P1000").Clear
je ne comprends pas du tout.
Si ce n'est pas l'orthograaphe où l'existance qu'est-ce que cela pourrait il
être??
Merci encore d'avance
"AV" wrote:j'ai un problème sur la seconde ligne avec une erreur d'exécution 9:
"l'indice n'appartient pas à la sélection".
Vérifie l'existence et l'orthographe exacte des noms de fichiers et feuilles
AV
Bonjour Claire,
La structure syntaxique avec laquelle tu as écrite ta macro aurait besoin de certaines mises au point :
A ) Au moment d'exécuter ta macro, si tu sais que tu as plus d'un classeur ouvert, l'utilisation "ActiveWorkbook" dans du code est
très dangereux car es-tu réellement sûre que ce sera le bon classeur qui sera actif à chaque fois que tu lanceras ta macro... si ce
n'est pas le cas, ta macro va planter parce que les objets (l'existence des objets de même que leur nom) de "Activeworkbook" ne
concorde pas avec ceux décrites dans la macro. Pour éviter de se faire prendre au jeu, il faut faire une référence complète dans sa
syntaxe au classeur spécifique sur lequel l'action doit avoir lieu. Pour ce faire, tu peux utiliser ce type de syntaxe longue :
Workbooks("Charge_V1").Worksheets("projets").Range("B1").Value , ou, utiliser cette technique pour faire référence aux objets :
With Workbooks("Charge_V1")
a = .Worksheets("projets").Range("B1").Value
'Toutes les actions sur les objets faisant référence à ce classeur.
End with
B ) Toujours en faisant référence de "A", pourquoi les condition 2 et 3, tu n'utilises pas une référence complète comme tu le fais
pour la condition 1. Je fais référence à ceci :
ElseIf Range("numéro_projet").Value < 100 Then
Est-ce que la cellule nommée : "numéro_projet") est la même que B1 dans la condition1. Est-ce que c'est 2 cellules appartiennent
à la même feuille ? au même classeur ?
Si à la lecture de ton code, on parvient difficilement à situer les objets ... comment penses-tu qu'excel fait pour résoudre ces
dilemmes ? Il t'affiche des messages d'erreur te disant : "une erreur d'exécution 9: "l'indice n'appartient pas à la sélection".
C ) Ton code faire référence à ceci : numéro_projet.Value
Quel type d'objet représente : "numéro_projet"
D ) L'utilisation de Variables peut rendre le code plus accessible :
Dim Chemin as String
Chemin = "\pars0001SapOngoing Live90-projets" & _
" 'évolution applicative'" & _
"Projet Bases ACCES50-Expression de besoin" & _
"base plan de chargeprojet_"
Tu remplaces dans ton code la section équivalente par la variable.
E ) L'indentation du code améliore aussi de beaucoup la lecture et la compréhension du code.
if conditon Then
solution
elseif condition1 then
solution1
elseif condition2 then
solution2
End if
Je n'ai pas joint de solution de rechange au code, car tel qu'il est écrit, il est très difficile de savoir quel est l'objet visé
par le code pour l'exécution de certaines actions.
Salutations!
ICI >>>>> If
Workbooks("Charge_V1").Worksheets("projets").Range("B1").Value < 10 Then
ActiveWorkbook.SaveAs Filename:="\pars0001SapOngoing
Live90-projets 'évolution applicative'Projet Bases ACCES50-Expression de
besoinbase plan de chargeprojet_000" & numéro_projet.Value + 1 & ".xls"
ElseIf Range("numéro_projet").Value < 100 Then
ActiveWorkbook.SaveAs Filename:="\pars0001SapOngoing
Live90-projets 'évolution applicative'Projet Bases ACCES50-Expression de
besoinbase plan de chargeprojet_00" & numéro_projet.Value + 1 & ".xls"
ElseIf Range("numéro_projet").Value < 1000 Then
ActiveWorkbook.SaveAs Filename:="\pars0001SapOngoing
Live90-projets 'évolution applicative'Projet Bases ACCES50-Expression de
besoinbase plan de chargeprojet_0" & numéro_projet.Value + 1 & ".xls"
End If
ici c'est le même endroit que je désigne et il ne le reconnait pas!
Ici >>>>>Workbooks("Charge_V1").Save
Et dans encore un autre ceci
Workbooks("Charge_V1").Worksheets("BDB").Range("A2:P1000").Clear
je ne comprends pas du tout.
Si ce n'est pas l'orthograaphe où l'existance qu'est-ce que cela pourrait il
être??
Merci encore d'avance
"AV" wrote:
j'ai un problème sur la seconde ligne avec une erreur d'exécution 9:
"l'indice n'appartient pas à la sélection".
Vérifie l'existence et l'orthographe exacte des noms de fichiers et feuilles
AV
Bonjour Claire,
La structure syntaxique avec laquelle tu as écrite ta macro aurait besoin de certaines mises au point :
A ) Au moment d'exécuter ta macro, si tu sais que tu as plus d'un classeur ouvert, l'utilisation "ActiveWorkbook" dans du code est
très dangereux car es-tu réellement sûre que ce sera le bon classeur qui sera actif à chaque fois que tu lanceras ta macro... si ce
n'est pas le cas, ta macro va planter parce que les objets (l'existence des objets de même que leur nom) de "Activeworkbook" ne
concorde pas avec ceux décrites dans la macro. Pour éviter de se faire prendre au jeu, il faut faire une référence complète dans sa
syntaxe au classeur spécifique sur lequel l'action doit avoir lieu. Pour ce faire, tu peux utiliser ce type de syntaxe longue :
Workbooks("Charge_V1").Worksheets("projets").Range("B1").Value , ou, utiliser cette technique pour faire référence aux objets :
With Workbooks("Charge_V1")
a = .Worksheets("projets").Range("B1").Value
'Toutes les actions sur les objets faisant référence à ce classeur.
End with
B ) Toujours en faisant référence de "A", pourquoi les condition 2 et 3, tu n'utilises pas une référence complète comme tu le fais
pour la condition 1. Je fais référence à ceci :
ElseIf Range("numéro_projet").Value < 100 Then
Est-ce que la cellule nommée : "numéro_projet") est la même que B1 dans la condition1. Est-ce que c'est 2 cellules appartiennent
à la même feuille ? au même classeur ?
Si à la lecture de ton code, on parvient difficilement à situer les objets ... comment penses-tu qu'excel fait pour résoudre ces
dilemmes ? Il t'affiche des messages d'erreur te disant : "une erreur d'exécution 9: "l'indice n'appartient pas à la sélection".
C ) Ton code faire référence à ceci : numéro_projet.Value
Quel type d'objet représente : "numéro_projet"
D ) L'utilisation de Variables peut rendre le code plus accessible :
Dim Chemin as String
Chemin = "pars0001SapOngoing Live90-projets" & _
" 'évolution applicative'" & _
"Projet Bases ACCES50-Expression de besoin" & _
"base plan de chargeprojet_"
Tu remplaces dans ton code la section équivalente par la variable.
E ) L'indentation du code améliore aussi de beaucoup la lecture et la compréhension du code.
if conditon Then
solution
elseif condition1 then
solution1
elseif condition2 then
solution2
End if
Je n'ai pas joint de solution de rechange au code, car tel qu'il est écrit, il est très difficile de savoir quel est l'objet visé
par le code pour l'exécution de certaines actions.
Salutations!
ICI >>>>> If
Workbooks("Charge_V1").Worksheets("projets").Range("B1").Value < 10 Then
ActiveWorkbook.SaveAs Filename:="pars0001SapOngoing
Live90-projets 'évolution applicative'Projet Bases ACCES50-Expression de
besoinbase plan de chargeprojet_000" & numéro_projet.Value + 1 & ".xls"
ElseIf Range("numéro_projet").Value < 100 Then
ActiveWorkbook.SaveAs Filename:="pars0001SapOngoing
Live90-projets 'évolution applicative'Projet Bases ACCES50-Expression de
besoinbase plan de chargeprojet_00" & numéro_projet.Value + 1 & ".xls"
ElseIf Range("numéro_projet").Value < 1000 Then
ActiveWorkbook.SaveAs Filename:="pars0001SapOngoing
Live90-projets 'évolution applicative'Projet Bases ACCES50-Expression de
besoinbase plan de chargeprojet_0" & numéro_projet.Value + 1 & ".xls"
End If
ici c'est le même endroit que je désigne et il ne le reconnait pas!
Ici >>>>>Workbooks("Charge_V1").Save
Et dans encore un autre ceci
Workbooks("Charge_V1").Worksheets("BDB").Range("A2:P1000").Clear
je ne comprends pas du tout.
Si ce n'est pas l'orthograaphe où l'existance qu'est-ce que cela pourrait il
être??
Merci encore d'avance
"AV" wrote:j'ai un problème sur la seconde ligne avec une erreur d'exécution 9:
"l'indice n'appartient pas à la sélection".
Vérifie l'existence et l'orthographe exacte des noms de fichiers et feuilles
AV
Set Rg = Workbooks("Charge_V1"). _
Worksheets("projets").Range("numéro_projet")
Workbooks(.Parent.Name).Save
--> Ici ne devrais je pas mettre un truc du genre
Set Rg = Workbooks("Charge_V1"). _
Worksheets("projets").Range("numéro_projet")
Workbooks(.Parent.Name).Save
--> Ici ne devrais je pas mettre un truc du genre
Set Rg = Workbooks("Charge_V1"). _
Worksheets("projets").Range("numéro_projet")
Workbooks(.Parent.Name).Save
--> Ici ne devrais je pas mettre un truc du genre
