Discussion :

[Riri80]

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 :

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

[Philippe Tulliez]

Et comme ceci ?

Code :

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

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

[Riri80]

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.

[Philippe Tulliez]

Comme ceci alors

Code :

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

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

[Philippe Tulliez]

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.

[pgz]

Bonjour.

Et avec

Code :

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

Dim Cellule as Excel.Range

?

Cordialement,

PGZ

[Riri80]

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

[tedo01]

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

Code :

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

Application.ScreenUpdating = False

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

[tedo01]

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

Code :

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

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

Comme ça c'est OK :

Code :

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

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

[Riri80]

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

Code :

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

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 :

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

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

ne fonctionne pas et il faut utiliser

Code :

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

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