Discussion :

[skillipo]

Bonjour,

je voudrais stocké (enregistré ) un fichier Excel dans mon application Access de facon a ce que je puisse le generer et le remplir a partir d'information dans ma base automatiquement on appuyant sur un boutton .

Merci donner des pistes ...

[Jean-Philippe André]

bonjour,
ta description est un peu brève, mais tu dois pouvoir utiliser un fichier Excel en ajoutant dans ton projet la référence Excel et passer par

Code :

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

Dim AppExcel As Excel.Application

Le traitement du fichier sous Excel se fera alors comme sous Excel

[skillipo]

Voici ma function

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Function ExcelAutomation01()
 
Dim xls As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet
 
' Create an Excel objet
Set xls = CreateObject("Excel.Application")
 
' Open de Excel file
    xls.Workbooks.Open "C:\Questionnaire.xls"
    'xls.Visible = True
 
   ' Instancier la feuille active dans le classeur
   Set sht = wbk.ActiveSheet
 
   ' Créer un nouveau classeur
   Set wbk = .Workbooks.Add
 
   ' Ecrire quelques valeurs
   With sht
       .Range("D20").Value = 10
       .Range("D21").Value = 20
       .Range("D22").Value = 30
       .Range("D23").Value = 34
       .Range("E29").Value = 12
 
 
   End With
 
   ' Sauvegarder et fermer le classeur
   wbk.SaveAs "C:\Questionnaire.xls"
   wbk.Close
 
   ' Quitter Excel
   '.Quit
'End With
 
' Libérer les variables objet
'Set sht = Nothing
'Set wbk = Nothing
'Set xls = Nothing
 
    MsgBox (" End fill information ")
End Function

j'ai une erreur au niveau de "Set wbk = .Workbooks.Add"


MERCI

[Jean-Philippe André]

il faut spécifier d'où tu sors le "." devant workbooks aussi
un petit with serait le bienvenu ^^

[skillipo]

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
 
Function ExcelAutomation01()
 
Dim xls As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet
 
' Create an Excel objet
Set xls = CreateObject("Excel.Application")
 
' Open de Excel file
    xls.Workbooks.Open "C:\Questionnaire.xls"
    'xls.Visible = True
 
   ' Instancier la feuille active dans le classeur
   Set sht = wbk.ActiveSheet
 
   ' Créer un nouveau classeur
   Set wbk = xls.Workbooks.Add
 
   ' Ecrire quelques valeurs
   With sht
       .Range("D20").Value = 10
       .Range("D21").Value = 20
       .Range("D22").Value = 30
       .Range("D23").Value = 34
       .Range("E29").Value = 12
 
 
   End With
 
   ' Sauvegarder et fermer le classeur
   wbk.SaveAs "C:\Questionnaire.xls"
   wbk.Close
 
   ' Quitter Excel
   '.Quit
'End With
 
' Libérer les variables objet
'Set sht = Nothing
'Set wbk = Nothing
'Set xls = Nothing
 
    MsgBox (" End fill information ")
End Function

voila j'ai modifié .juste une erreur d'ailleur La function est une erreur .

MERCI de me dire keski va pa a votre avis

[Jean-Philippe André]

pense à créer les éléments dans le bon ordre déjà

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Option Explicit
 
Function ExcelAutomation01()
 
Dim xls As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet
 
' Create an Excel objet
Set xls = CreateObject("Excel.Application")
 
' Open de Excel file
    xls.Workbooks.Open "C:\Documents and Settings\omar.alaoui\Mes documents\NEXANS\documents de travail\REACH Supplier Questionnaire.xls"
    'xls.Visible = True
 
   ' Instancier la feuille active dans le classeur
   Set wbk = xls.Workbooks.Add
   Set sht = wbk.ActiveSheet
 
   ' Créer un nouveau classeur
 
 
   ' Ecrire quelques valeurs
   With sht
       .Range("D20").Value = 10
       .Range("D21").Value = 20
       .Range("D22").Value = 30
       .Range("D23").Value = 34
       .Range("E29").Value = 12
 
 
   End With
 
   ' Sauvegarder et fermer le classeur
   wbk.SaveAs "C:\Documents and Settings\omar.alaoui\Mes documents\NEXANS\documents de travail\REACH Supplier Questionnaire.xls"
   wbk.Close
 
   ' Quitter Excel
   '.Quit
'End With
 
' Libérer les variables objet
'Set sht = Nothing
'Set wbk = Nothing
'Set xls = Nothing
 
    MsgBox (" End fill information ")
End Function

[skillipo]

Bonjour ,

j'ai reussi a le faire avec se 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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Sub ExcelAutomation01()
 
Dim xlApp As Object
Dim wbk As Object
'Dim sht As Object
 
' Créer un objet Excel
' (ce qui équivaut à démarrer Excel à distance)
Set xlApp = New Excel.Application
Set wbk = xlApp.Workbooks.Add
'Set sht = xlApp.wbk.ActiveSheet
 
With xlApp
   ' Rendre Excel visible
   '.Visible = True
 
   ' Créer un nouveau classeur
   'Set wbk = Workbooks.Add
   Set wbk = xlApp.Workbooks.Open("C:\Documents and Settings\omar.alaoui\Mes documents\NEXANS\documents de travail\RR.xls")
   ' Instancier la feuille active dans le classeur
   Set sht = wbk.ActiveSheet
 
   ' Ecrire quelques valeurs
   With sht
       .Range("D20").Value = 10
       .Range("D21").Value = 20
       .Range("D22").Value = 30
       .Range("D23").Value = 34
       .Range("E29").Value = 12
   End With
 
   ' Sauvegarder et fermer le classeur
'   ActiveWorkbook.SaveAs FileName:="C:\Documents and Settings\omar.alaoui\Mes documents\NEXANS\documents de travail\REACH Supplier Questionnaire.xlsC:\Documents and Settings\omar.alaoui\Mes documents\NEXANS\documents de travail\RR.xls"
   'ActiveWorkbook.Close
   ActiveWorkbook.Close savechanges:=True
   ' Quitter Excel
   'wbk.Quit
End With
 
' Libérer les variables objet
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing
 
End Sub

apres que j'ai rempli la feuille excel , il me demande au moment de la femeture si je veux bien sauver les modification ??
est ce qu'il ya un moyen de forcer l'enregistrement pour ne par recevoir le message .??

parti de fermeture et enregistrement "ActiveWorkbook.Close savechanges:=True"

MERCI