Problème avec un New Excel.Workbook

Bonjour,

voici un code qui permet d'ouvrir un fichier excel dans un autre processus que le fichier maitre.
Je fais ça afin de ne pas afficher le fichier ouvert (bcp de fichiers dans la macro finale). Sinon les fichiers s'ouvrent une fraction de seconde avant de pouvoir les cacher.

Le code bloque sur For Each cellule In wb.Sheets(Sht).Range("C13,T21") et je n'arrive pas à corriger l'erreur.

Merci d'avance pour votre aide.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Public MyWorkbook As Workbook Public xlApp As New Excel.Application Public wb As New Excel.Workbook   Sub toto()   Dim Sht As Integer Dim tmp As Variant Dim No As Integer Dim cellule As Variant   Set MyWorkbook = ActiveWorkbook Set wb = xlApp.Workbooks.Open("D:\fichier1.xls", ReadOnly:=True) xlApp.Visible = True 'pour le debug uniquement   For Sht = 1 To wb.Sheets.Count For Each cellule In wb.Sheets(Sht).Range("C13,T21") ' la version finale contiendra + de cellules tmp = cellule.Value Next Next Sht   wb.Close False xlApp.Quit   Set wb = Nothing Set xlApp = Nothing   End Sub

---

Et comme ceci ?

Code:

---

For Each cellule In wb.Sheets(Sht).Range("C13:T21")

---

Range("C13:T21") fonctionne mais je ne veux pas utiliser une plage mais certaines cellules d'où la virgule.
ex : C13, T21, F9, R14, ...

Je précise qu'en utilisant une méthode d'ouverture de fichier dans le même processus que le fichier maitre (sans utiliser de New Excel.Application), la syntaxe fonctionnait très bien.

Comme ceci alors

Code:

---

1 2	For Each cellule In wb.Sheets(Sht).Range("C13", "T21")

---

Désolé poru ma réponse précédente qui fonctionne effectivement avec deux références mais pas avec 3
J'ai aussi le même phénomène avec New Excel.Application et aucun problème dans la même instance.
Je n'ai jamais utilisé à la fois une nouvelle application Excel et des cellules non contigües.

Bonjour.

Et avec

Code:

---

Dim Cellule as Excel.Range

---

?

Cordialement,

PGZ

Désolé mais Dim Cellule as Excel.Range ne fonctionne pas plus.

Bonjour,
En prenant le problème dans l'autre sens, est-ce que

Code:

---

Application.ScreenUpdating = False

---

ne permettrait pas de masquer l'ouverture des fichiers dans la même instance d'Excel ?

Re,
Chez moi, ça fonctionne avec des points-virgule.
Cette syntaxe plance :

Code:

---

wb.Sheets(Sht).Range("C13,T21")

---

Comme ça c'est OK :

Code:

---

wb.Sheets(Sht).Range("C13;T21")

---

Après avoir fait des tests complémentaires, il semble en effet que

Code:

---

wb.Sheets(Sht).Range("C13;T21;Z97;AA34")

---

fonctionne lorsque c'est une autre instance d'excel.

Par contre pour faire la même chose dans l'instance principale, la commande

Code:

---

wb.Sheets(Sht).Range("C13;T21;Z97;AA34")

---

ne fonctionne pas et il faut utiliser

Code:

---

wb.Sheets(Sht).Range("C13,T21,Z97,AA34")

---