Discussion :

[BRUNO71]

Bonjour,

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

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

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

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

Est-ce possible et comment ?

Merci de votre aide.

Bien cordialement à vous tous.

Bruno.

[Didier71]

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 :

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

xlBook.SaveAs Me!Client

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

Code :

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

Xlbook.close

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

Bon courage.
Didier71

[BRUNO71]

Bonjour Didier71,

Merci beaucoup

Bien cordialement.