Gestion d' Excel avec Access

Bonjour,

A l'aide de la faq Access j'ai réalisé ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim MyExcel As String Dim XlExcel As Excel.Application Dim XlBook As Excel.Workbook Dim XlSheet As Excel.Worksheet MyExcel = "C:\AA\ Etude.xls" Set XlExcel = CreateObject("Excel.Application") Set XlBook = GetObject(MyExcel) XlExcel.Visible = True XlBook.Windows(1).Visible = True Set XlSheet = XlBook.Worksheets(1) XlSheet.Range("nom") = Me!client XlSheet.Range("adresse") = Me!adresse XlSheet.Range("commune") = Me!Liste_communes XlSheet.Range("tel") = Me!tel Set XlExcel = Nothing Set XlBook = Nothing Set XlSheet = Nothing

---

J'aimerai savoir pourquoi le fichier excel ouvert est bloqué ?
Je ne peux pas actionner une quelconques cellules !
N'y même enregistrer sous !
Alors que ( NOTHING ) esl là pour libérer ?
Je souhaiterai le fermé et l'enregistrer sous le nom de la cellule :

Code:

---

1 2	XlSheet.Range("nom") = Me!client

---

Est-ce possible et comment ?

Merci de votre aide.

Bien cordialement à vous tous.

Bruno.

Bonsoir...

Je ne sais pas pourquoi ton fichier est "bloqué", mais déjà, tu n'as pas d'instruction qui le sauvegarde, ni qui le ferme ensuite,et tu libères les instances...C'est peut être la le problème..Nothing ne ferme pas le fichier Excel crée, il libère simplement le

Rajoute donc a ton code :

Code:

---

xlBook.SaveAs Me!Client

---

puisque MyExcel semble être une variable qui contient le chemin et le nom du fichier....puis

Code:

---

Xlbook.close

---

pour le fermer...
Ensuite tu peux mettre tes Xlbook is nothing...

Bon courage.
Didier71

Bonjour Didier71,

Merci beaucoup:yaisse2:

Bien cordialement.