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.