Error VBA déclaration

Version imprimable

05/12/2013, 15h57
idhmida

Error VBA déclaration
Bonjour le forum,

Pourrait quelqu'un m'aider à corriger ce petit bout de programme ci-dessous svp?
Code:

1 2 3 4 5 6 Public Sub test() Dim NbLigne, i, j As Integer Dim sas, toto As String Set toto = Workbooks("\\....\toto.xlsm").Worksheets("RECUP")
l'error afficher(au niveau de la SET toto) : Objet requis

:cry::cry:

Merci d'avance de votre aide!
05/12/2013, 16h39
parmi

Dans tes déclarations, tu dois mettre As Integer (ou autre) à chaque variable sinon ce seront des Variant par défaut

Tu dois donner une cellule à ton appel

Code:

Set toto = Workbooks("\\....\toto.xlsm").Worksheets("RECUP").Range("A2")

Et lorsque tu travailles avec des lignes (ex: NbLigne), déclare-les en Long parce que tu vas avoir des erreurs de dépassement de capacité éventuellement...
05/12/2013, 17h08
Invité

Salut,

Worksheets("xxxx") est équivalent à Worksheets.item("xxxx")
L'item d'une collection est un object. Tu dois au minimum typer "toto" As Variant ou Object. D'ailleurs, cela va avec le "Set".
Pour les autres variables, c'est "Let", mais il est est généralement omis car il est optionel sauf pour les propriétés "Property Let".
Le typage le plus fort est "As Worksheet"

Dim toto As Worksheet
05/12/2013, 17h33
parmi

Oups... bien vu Nouveau2...
J'avais oublié d'enlever le Set étant donné que c'était une simple String
05/12/2013, 17h36
Invité

Ben c'est bien aussi de l'avoir dit :D, vu que certains exemples (assez rare quand même) sont fait avec les même lignes de codes que présenté idhmida.
Dû au fait que les autres languages de programmation peuvent le faire (la déclaration de toutes les variables de même type sur une même ligne en ne spécifiant qu'un seul type) , mais pas le VBA.

l'erreur persiste

Bonjour,

Merci pour vos réponses, cependant le code ne marche toujours pas, je l'ai modifié comme vous avez suggéré comme suit :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Public Sub test() Dim i As Integer Dim NbLigne As Integer Dim j As Long Dim sas As Worksheet Dim toto As Worksheet Set toto = Workbooks("\\...\toto.xlsm").Worksheets("RECUP") Workbook.Open ("\\...\Surfacefin.xls") Set sas = Workbooks("Surfacefin.xls").Worksheets("SURFACEFIN")
L'erreur persiste au niveau de toto = workbooks, le message d'erreur est : l'indice n'appartient pas à la sélection.

Auriez vous une idée pour le corriger svp?

Merci beaucoup!!!

06/12/2013, 15h04
parmi

Est-ce que le fichier Toto est ouvert ?
06/12/2013, 15h11
idhmida

Oui, en fait le module VBA est crée dans le fichier toto
06/12/2013, 16h04
Marc-L

Bonjour,

Set Toto = ThisWorkbook.Worksheets("RECUP") …

Faut-il encore que la feuille existe !

Bonjour,

Le problème n'est toujours pas résolu, j'ai essayé avec le code suivant qui me parait plus logique que l'ancien code, mais toujours pas ok...

Quelqu'un aurait une idée svp?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public Sub test() Dim i As Integer, NbLigne As Long, j As Long Dim toto As Workbook, sas As Workbook Dim recup As Worksheet, surface As Worksheet Const ref As Date = "01/01/2013" toto = Workbooks("toto.xlsm") recup = toto.Worksheets("RECUP") End sub
Merci d'avance

13/12/2013, 14h16
parmi
Tu dois utiliser Set pour des objets comme Workbook, WorkSheet, Range,...
Code:

1 2 Set toto = Workbooks("toto.xlsm") Set recup = toto.Worksheets("RECUP")