Discussion :

[sorcer1]

Bonjour,

Je crée dynamiquement des classeurs Excel que je rempli ensuite de données, et comme j'en produit beaucoup, j'ai une multitude de fenêtre Excel dans ma barre des tâches.
Je voudrais crée et ouvrir tous les classeus dans la même fenêtre.

Ci-dessous mon code :

Code :

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

1
2
3
Set objExcel = CreateObject("Excel.Application")
Set oBook = objExcel.WorkBooks.Add
Set oSheets = oBook.WorkSheets

Merci de votre aide.

[fring]

Bonjour,

Il suffit de ne pas créeer une nouvelle session d'Excel à chaque nouveau classeur comme tu le fais --> Set objExcel = CreateObject("Excel.Application")

Code :

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

1
2
3
4
5
6
Sub test()
Dim oBook As Workbook, oSheets As Worksheet
 
Set oBook = Workbooks.Add
Set oSheets = oBook.Worksheets(1)
End Sub

Remarques :

• ne pas oublier de déclarer les variables oBook et oSheets
• oBook.Worksheets est incomplet, il faut préciser quelle feuille comme dans l'exemple de code ci-dessus oBook.Worksheets(1) <-- la première feuille

[sorcer1]

Lorsque j'ai inséré ton code j'ai une erreur de compilation sur la ligne :

Code :

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

Dim oBook As Workbook, oSheets As Worksheet

Message : Type défini par l'utilisateur non défini

[fring]

ahh...étrange

Et comme ceci, ça coince toujours ?

Code :

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

Dim oBook As Excel.Workbook, oSheets As Excel.Worksheet

Dans tes références (dans Visual Basic, menu Outils --> Références) la référence suivante est cochée ? Microsoft Excel x.x Object Library

[sorcer1]

Oui.

Je suis dans le code d'un formulaire Access, es-ce que ça peut venir de là ?

[fring]

Tu roules en Citroen, tu commandes tes pièces chez Ford et tu t'étonnes que ces pièces ne s'adaptent pas correctement

Essaye ceci mais sans garantie, je ne code jamais sous Access

• déclaration en tête de module
  

  Code :

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

  1
  2
  Dim xlVerif As Boolean
  Dim xlApp As Excel.Application

• création de classeurs
  

  Code :

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

  1
  2
  3
  4
  5
  6
  7
  8
  9
  10
  11
  12
  Sub création_XL()
  Dim xlSheet As Excel.Worksheet
  Dim xlBook As Excel.Workbook
   
  If xlVerif = False Then
      Set xlApp = CreateObject("Excel.Application")
      xlVerif = True
  End If
   
  Set xlBook = xlApp.Workbooks.Add
  Set xlSheet = xlBook.Worksheets(1)
  End Sub

• fermeture de l'application Excel
  

  Code :

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

  1
  2
  3
  4
  Sub fermeture_XL()
  xlApp.Quit
  xlVerif = False
  End Sub

Même remarque que ci-dessus, il faut que cette référence Microsoft Excel x.x Object Library soit cochée

[sorcer1]

Dans les références au lien de la librairie Excel il y avait celle d'ActiveX Object !
Je vous jure des fois, il y en a qui ont 2 mains gauches !

Merci.