excel et VB6

Version imprimable

excel et VB6

Bonjour,

j'aimerais sauvegarder puis ouvrir un fichier excel suite au click d'un bouton.

le nom du fichier se trouve sur le bouton.
Je voudrais donc ouvrir le fichier excel correspondant au nom du bouton.

J'ai des soucis pour faire cela.
Pouvez-vous m'aider?
Merci.

Pour l'ouvrir, je pense le faire de cette manière :
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim xlsapp As Excel.application 'objet application Dim xlsbook As Excel.workbook 'objet feuille de calcul Dim xlsheet As Excel.Worksheet Set xlsapp = New Excel.application 'xlsapp.SaveWorkspace ("c:\essai111.xls") Set xlsbook = xlsapp.workbooks.save("c:\essai111.xls") Set xlsheet = xlsbook.worksheets(1) xlsapp.Visible =true
Mais comment sauvegarder le fichier lors de l'ouverture?

03/02/2011, 18h47
petit rabot

Pour sauvegarder ta page excel, il faut que tu fasse:

Code:

xlsbook.save

Mais je ne vois pas pourquoi tu veux sauvegarder avant d'ouvrir??

Voici autrement ce que j'utilise pour travailler avec Excel:

Code:

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
Dim appExcel As Excel.Application   'Application Excel
Dim wbExcel As Excel.Workbook       'Classeur Excel
Dim wsExcel As Excel.Worsheet       'Feuille Excel
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\titi.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
 
 
'
'
'
' code
'
'
'
wbExcel.save
wbExcel.Close
appExcel.Quit
Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing

03/02/2011, 19h22
sandball22

Dans ton exemple, cela nécessite que le fichier C:\titi.xls existe.

Moi j'aimerais lorsque je clique sur un bouton (dont le nom peut changer), il ouvre un fichier excel avec le nom du bouton.

par exemple, j'ai un bouton comportant le nom suivant titi_XXX_AAA.xls.
AAA et XXX vont changer suivant certaines conditions.

Donc j'aimerais ouvrir le fichier excel correspondant.
Si ce fichier n'existe pas alors je veux le créer et l'ouvrir ensuite.
si il est déjà créer je veux simplement l'ouvrir.

Comment fait-on cela?

Merci de vote aide.

c'est une ébauche que je t'ais donnée, à toi d'adapter pour ton prog:

J'ai appelé mon command1 "C:\tutu.xls

Code:

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
Private Sub Command1_Click()
 
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ajout d'un classeur car à l'ouverture d'Excel il n'y a aucun classeur d'ouvert
appExcel.Workbooks.Add 'Ceci n'est nécessaire que si vous n'ouvrez pas un fichier existant
'Récupération du classeur par défaut
Set wbExcel = appExcel.ActiveWorkbook
'Récupération de la feuille par défaut
Set wsExcel = wbExcel.ActiveSheet
appExcel.Visible = True
 
'
'
'
' code
'
'
'
wbExcel.SaveAs Command1.Caption
wbExcel.Close
appExcel.Quit
Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing
 
End Sub

03/02/2011, 20h12
petit rabot

Avec un peu de recherche, tu peux trouver ceci

http://drq.developpez.com/vb/tutoriels/Excel/