Bonjour,
A l'aide de la faq Access j'ai réalisé ce code :
J'aimerai savoir pourquoi le fichier excel ouvert est bloqué ?
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
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 :
Est-ce possible et comment ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 XlSheet.Range("nom") = Me!client
Merci de votre aide.
Bien cordialement à vous tous.
Bruno.
Partager