Discussion :

[idhmida]

Bonjour le forum,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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



Merci d'avance de votre aide!

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[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

[parmi]

Oups... bien vu Nouveau2...
J'avais oublié d'enlever le Set étant donné que c'était une simple String

[Invité]

Ben c'est bien aussi de l'avoir dit , 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.

[idhmida]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!!

[parmi]

Est-ce que le fichier Toto est ouvert ?

[idhmida]

Oui, en fait le module VBA est crée dans le fichier toto

[Marc-L]

Bonjour,

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

Faut-il encore que la feuille existe !

[idhmida]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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