...l'indice n'appartient pas a la selection... [VB - Exel] - VB/VBA/VBS - Programmation
Marsh Posté le 09-09-2003 à 10:54:31
T'as ouvert le classeur "Base de données" ?
Marsh Posté le 09-09-2003 à 10:56:32
ben qu y soit ouvert ou fermé c pareil ca radote le meme message ...
Marsh Posté le 09-09-2003 à 11:18:37
Citation : .Cells(i, 1) Then |
Si i = 0 ça pose problème, as tu vérifié la valeur de i ?
Marsh Posté le 09-09-2003 à 11:26:33
oui de ce cote po de prob ...
la syntaxe : 'workbooks("" ).worksheets...' est elle bonne ?
Marsh Posté le 09-09-2003 à 13:29:26
si les 2 feuilles ne sont pas ds le même classeur ton truc marche po
Marsh Posté le 09-09-2003 à 13:36:33
ben g l'impression aussi que ca marche po mais ca doit bien être possible... tu saurais pas de quoi ca peut venir ??
Marsh Posté le 09-09-2003 à 13:42:31
il fo charger les 2 classeurs ds l'objet excell
puis faire un truc du genre :
If Workbooks("MyClasseur" ).Worksheets("8D français" ).Cells(1,6).Value = Workbooks("Base de données" ).Worksheets("Listing" ).Cells(i, 1) Then ...
Marsh Posté le 09-09-2003 à 13:48:30
qu entend tu par charger les 2 classeur dans l'objet exel ??
... je crois que ca vien de la -> http://www.microsoft.com/france/msdn/support/kb.asp
Marsh Posté le 09-09-2003 à 13:50:24
Citation : Worksheets("8D français" ) |
ne fonctionne que si le classeur ouvert et actif (à l'écran) contient un onglet nommé "8D français". San précision c'est le classeur actif qui est pris par défaut.
Si le classeur actif est "Base de données" avec l'onglet "Listing", la référence à "8D français" ne fonctionne pas.
Citation : Workbooks("Base de données" ).Worksheets("Listing" ) |
fonctionne quelque soit le classeur ouvert car la référence au classeur est explicitement écrite
Lors de tes essais:
- classeur "Base de données" fermé, Workbooks("Base de données" ) ne fonctionne pas.
- classeur "Base de données" ouvert et actif, Worksheets("8D français" ) ne fonctionne pas.
Confirme moi que c'est bien ton classeur contenant la feuille "8D français" qui est actif au moment où la ligne de code est exécutée
Marsh Posté le 09-09-2003 à 13:54:41
oui c bien le classeur contenant la feuille '8D francais' du fichier 'rappord 8d' qui est active
(Au cas ou une feuille '8D francais' existe aussi dans le fichier 'Base de données')
Marsh Posté le 09-09-2003 à 14:56:14
il fo que tu ouvres les 2
et ke tu utilises les full qualified names
Marsh Posté le 09-09-2003 à 14:59:21
ben desole mais c est quoi des 'full qualified names' ...
Marsh Posté le 09-09-2003 à 15:06:14
Workbooks("MyClasseur" ).Worksheets("8D français" ).Cells(1,6).Value ET Workbooks("Base de données" ).Worksheets("Listing" ).Cells(i, 1).Value
Marsh Posté le 09-09-2003 à 15:21:17
...donc voila j ai mis ca :
If Workbooks("MyClasseur" ).Worksheets("8D français" ).Cells(1, 6).Value = Workbooks("Base de données" ).Worksheets("Listing" ).Cells(i, 1) Then
mais toujours la meme chose ... je crois que le probleme viens d'autre part ...
Marsh Posté le 09-09-2003 à 15:27:34
t'as fait un truc du genre oXLS.open("Base de données" )
et oXLS.open("MyClasseur" )
?
Marsh Posté le 09-09-2003 à 15:35:31
nan g po mis de truc de ce genre ...
Serait-ce pour charger les 2 classeurs ds l'objet excel comme tu me l'a dit plus tot??
En tout cas pour : oXLS.Open ("Base de données" ) il me dit "OBJET REQUIS"
(la syntaxe doit pas etre bonne)
Marsh Posté le 09-09-2003 à 15:40:05
ça dépend comment t'as appelé ton objet excell...
Workbooks.Open("Classeur" )
ptet....
Marsh Posté le 09-09-2003 à 15:48:36
je comprend pas ...
tu veux que j'ouvre le classeur 'Base de données' ca daccord mais j ai pas besoin d'ouvrir le classeur dans lequel se trouve mon code (qui fait -bip-) puis qu il est deja ouvert ... nan??
(je suis lourd a te poser des question con mais fau absolument que je finissent avant la fin de la semaine ...)
Marsh Posté le 09-09-2003 à 15:54:37
non pas celui que t'as déjà ouvert
(scuse j'pensais pas ke T T en VBA)
Marsh Posté le 09-09-2003 à 10:48:28
je comprend pas c'qui va pô ...
Le message d'erreur dit "l'indice n'appartient pas a la selection" et selectionne cette ligne :
If Worksheets("8D français" ).Cells(1,6).Value = Workbooks("Base de données" ).Worksheets("Listing" ).Cells(i, 1) Then ...
Le probleme peu venir que de 'workbooks' parceque lorsque '8d francais' est dans 'base de donnees' ca fonction tres bien (sans le 'workbooks')
Si vous avez une idée ... (et j'en doute pas )
Merci