Discussion :

[gawennn]

Bonjour à tous,

Pour le moment j'avais réussi à répondre à tous mes problèmes grâce à ce forum mais là je bloque.
Donc pour résumer, une macro réalise plusieurs actions sur CATIA V5 puis en retire des valeurs, ouvre un fichier excel et injecte ces valeurs à l'intérieur. Tout cela est réalisé en boucle. Première boucle aucun problème, mes données vont dans la "Feuil1" mais ensuite impossible de sélectionner le document Excel actif et d'intégrer mes valeurs de la boucle 2 dans la "Feuil2" etc...

Mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
'Ouverture du fichier Excel
If NEtape6 = 1 Then
 
'NEtape6 est la variable principale de ma macro elle est égale à 1 puis 2 puis 3 etc...
 
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = True
Set oBook = oExcel.Workbooks.Open(CheminFichier)
 
Set oSheet = oBook.Worksheets(1)
'oExcel.WindowState = -4140 'Réduire la fenêtre
 
End If
 
 
If NEtape6 > 1 Then
 
Set oBook = oExcel.ActiveWorkbooks
Set oSheet = oBook.Worksheets("Feuil2")
 
End If

Donc si quelqu'un pouvait m'aider à comprendre pourquoi lors de la boucle 2 avec donc NEtape6 = 2, la "Feuil2" de mon fichier excel n'est pas selectionné. Je pense que le problème vient de cette ligne "Set oBook = oExcel.ActiveWorkbooks"

Merci d'avance à tous!

[Invité]

Bonjour,pourquoi veux tu activer un classeur alors que tu affectes un objet?
Utilises l'objet!

[gawennn]

Merci de ta réponse, je t'avoue que je suis novice en VBA et je ne maitrise pas encore très bien toutes les déclarations, j'utilise l'enregistrement de macro CATIA et après j'essaye de m'en sortir avec tout ça, donc je veux bien que tu m'eclaire sur la démarche à suivre. J'y ai passé l'aprem et je m'en suis pas sorti...
Merci d'avance!

[Invité]

Code :

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

1
2
3
4
5
6
 NEtape6 > 1 Then
 
'Set oBook = oExcel.ActiveWorkbooks
Set oSheet = oBook.Worksheets("Feuil2")
 
End If

[gawennn]

Ca ne fonctionne toujours pas, c'est comme si oBook n'avais plus de "valeur", mon fichier excel est bien ouvert mais la macro à la boucle 2 ne le retrouve pas, je désespère...
Dans tous les cas, merci de m'accorder de ton temps!

[gawennn]

J'ai déclaré ma variable oBook dans ma macro principale en "public" et ça a fonctionné, merci pour ta solution!