Le code suivant me permet =E0 partir d'access, d'ouvrir un=20
doc excel, de faire une modif sur une cellule, puis de=20
fermer excel et revenir =E0 mon form access.=20
Cependant, lorsque j'execute le code, toutse d=E9roule bien,=20
except=E9 que le processus EXCEL reste actif (je le vois en=20
faisant ctrl alt suppr). Qqun voit-il o=F9 est l'erreur ???
Private Sub Commande73_Click()
Dim oApp As Excel.Application
Dim wbk As Excel.Workbook
'*** Ouverture de la feuille xl
=20
Set oApp =3D CreateObject("Excel.Application")
With oApp
=20
.Visible =3D True
On Error Resume Next
strChemin =3D monchemindacces
Set wbk =3D oApp.Workbooks.Open(strChemin)
=20
End With
=20
oApp.Cells(3, 1).Select
=20
With Selection.Interior
.ColorIndex =3D 3
.Pattern =3D xlSolid
End With
=20
wbk.Save
wbk.Close
oApp.Quit
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
ADE
Salut
As-tu essayé un exit ou un close de l'application plutôt qu'un quit ?
Bonne journée !!
-----Message d'origine----- Le code suivant me permet à partir d'access, d'ouvrir un doc excel, de faire une modif sur une cellule, puis de fermer excel et revenir à mon form access. Cependant, lorsque j'execute le code, toutse déroule bien,
excepté que le processus EXCEL reste actif (je le vois en faisant ctrl alt suppr). Qqun voit-il où est l'erreur ???
Private Sub Commande73_Click()
Dim oApp As Excel.Application Dim wbk As Excel.Workbook
'*** Ouverture de la feuille xl
Set oApp = CreateObject("Excel.Application")
With oApp
.Visible = True On Error Resume Next strChemin = monchemindacces Set wbk = oApp.Workbooks.Open(strChemin)
End With
oApp.Cells(3, 1).Select
With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With
wbk.Save wbk.Close oApp.Quit
Set wbk = Nothing Set oApp = Nothing
End Sub .
Salut
As-tu essayé un exit ou un close de l'application plutôt
qu'un quit ?
Bonne journée !!
-----Message d'origine-----
Le code suivant me permet à partir d'access, d'ouvrir un
doc excel, de faire une modif sur une cellule, puis de
fermer excel et revenir à mon form access.
Cependant, lorsque j'execute le code, toutse déroule
bien,
excepté que le processus EXCEL reste actif (je le vois en
faisant ctrl alt suppr). Qqun voit-il où est l'erreur ???
Private Sub Commande73_Click()
Dim oApp As Excel.Application
Dim wbk As Excel.Workbook
'*** Ouverture de la feuille xl
Set oApp = CreateObject("Excel.Application")
With oApp
.Visible = True
On Error Resume Next
strChemin = monchemindacces
Set wbk = oApp.Workbooks.Open(strChemin)
End With
oApp.Cells(3, 1).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
As-tu essayé un exit ou un close de l'application plutôt qu'un quit ?
Bonne journée !!
-----Message d'origine----- Le code suivant me permet à partir d'access, d'ouvrir un doc excel, de faire une modif sur une cellule, puis de fermer excel et revenir à mon form access. Cependant, lorsque j'execute le code, toutse déroule bien,
excepté que le processus EXCEL reste actif (je le vois en faisant ctrl alt suppr). Qqun voit-il où est l'erreur ???
Private Sub Commande73_Click()
Dim oApp As Excel.Application Dim wbk As Excel.Workbook
'*** Ouverture de la feuille xl
Set oApp = CreateObject("Excel.Application")
With oApp
.Visible = True On Error Resume Next strChemin = monchemindacces Set wbk = oApp.Workbooks.Open(strChemin)
End With
oApp.Cells(3, 1).Select
With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With