Si Excel n'est pas ouvert, alors ouvrir Excel. Si il est dèjà ouvers, alors
utiliser l'instance Excel déjà en cours.
En fait, je demande tout ça car lorsque j'ouvre pour la 2ème fois
consécutive un tableau croisé dynamique, ça plante...
Voici une partie de mon code pour l'ouverture d'Excel. Où sont les erreurs
svp?:
Dim MyXL As Object, xlapp As Object
'Ouverture d'Excel
On Error Resume Next
Set MyXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear
xlapp = CreateObject("Excel.Application")
Else
xlapp = GetObject(, "Excel.Application")
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"Stach" | Comment puis-je faire pour dire: | | Si Excel n'est pas ouvert, alors ouvrir Excel. Si il est dèjà ouvers, alors | utiliser l'instance Excel déjà en cours. | | En fait, je demande tout ça car lorsque j'ouvre pour la 2ème fois | consécutive un tableau croisé dynamique, ça plante... | | Voici une partie de mon code pour l'ouverture d'Excel. Où sont les erreurs | svp?:
'Ouverture d'Excel On Error Resume Next
Set MyXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then Err.Clear Set xlapp = CreateObject("Excel.Application") Else Set xlapp = GetObject(, "Excel.Application") End If
"Stach"
| Comment puis-je faire pour dire:
|
| Si Excel n'est pas ouvert, alors ouvrir Excel. Si il est dèjà ouvers, alors
| utiliser l'instance Excel déjà en cours.
|
| En fait, je demande tout ça car lorsque j'ouvre pour la 2ème fois
| consécutive un tableau croisé dynamique, ça plante...
|
| Voici une partie de mon code pour l'ouverture d'Excel. Où sont les erreurs
| svp?:
'Ouverture d'Excel
On Error Resume Next
Set MyXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear
Set xlapp = CreateObject("Excel.Application")
Else
Set xlapp = GetObject(, "Excel.Application")
End If
"Stach" | Comment puis-je faire pour dire: | | Si Excel n'est pas ouvert, alors ouvrir Excel. Si il est dèjà ouvers, alors | utiliser l'instance Excel déjà en cours. | | En fait, je demande tout ça car lorsque j'ouvre pour la 2ème fois | consécutive un tableau croisé dynamique, ça plante... | | Voici une partie de mon code pour l'ouverture d'Excel. Où sont les erreurs | svp?:
'Ouverture d'Excel On Error Resume Next
Set MyXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then Err.Clear Set xlapp = CreateObject("Excel.Application") Else Set xlapp = GetObject(, "Excel.Application") End If
