Vb 6 excel

Signaler
Messages postés
36
Date d'inscription
mercredi 16 mars 2005
Statut
Membre
Dernière intervention
5 février 2009
-
Messages postés
19
Date d'inscription
jeudi 16 février 2006
Statut
Membre
Dernière intervention
15 juin 2006
-
bonjour jr voudrais savoir comment faire pour eviter de valider la sauvegarde du fichier excel sous vb6
voici mon source
merci

Private Sub Command2_Click()
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet


' Créer un objet Excel
' (ce qui équivaut à démarrer Excel à distance)
Set xlApp = New Excel.Application


With xlApp
' Rendre Excel visible
'.Visible = True


' Créer un nouveau classeur
' Set wbk = .Workbooks.Open


'Set wbk = .Workbooks.Add
Set wbk = .Workbooks.Open("c:\1.xls")
' Instancier la feuille active dans le classeur
Set sht = wbk.ActiveSheet

'lecture case

Text4.Text = sht.Cells(1, 1).Value



' Sauvegarder et fermer le classeur
wbk.SaveAs ("c:\1.xls")

' wbk.ActiveWorkbook.Close False

wbk.Close

' Quitter Excel
.Quit
End With


' Libérer les variables objet
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing
MsgBox "Le fichier 1.xls à été créé "



End Sub

3 réponses

Messages postés
586
Date d'inscription
jeudi 18 septembre 2003
Statut
Membre
Dernière intervention
13 février 2008
2
salut, je ne vois pas pourquoi tu aurais à enregistrer si tu n'as pas modifier le classeur.


<HR>

Life is short...Learn more
Copy Rights <> Rights to Copy
Messages postés
36
Date d'inscription
mercredi 16 mars 2005
Statut
Membre
Dernière intervention
5 février 2009

erreur voici le bon source

ca fonctionne bien mais quand je valide mes valeur ca me demande voulez vous enregistrer c est cela que je veut supprimer et faire un enregistrement automatique avec un timer

Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet


' Créer un objet Excel
' (ce qui équivaut à démarrer Excel à distance)
Set xlApp = New Excel.Application


With xlApp
' Rendre Excel visible
'.Visible = True


' Créer un nouveau classeur
' Set wbk = .Workbooks.Open


'Set wbk = .Workbooks.Add
Set wbk = .Workbooks.Open("c:\1.xls")
' Instancier la feuille active dans le classeur
Set sht = wbk.ActiveSheet

' ' Ecrire quelques valeurs
With sht
.Range("A1").Value = Text1.Text
.Range("A2").Value = Text2.Text
.Range("A3").Value = Text3.Text
End With

' Sauvegarder et fermer le classeur
wbk.SaveAs "C:\1.xls "
wbk.Close

' Quitter Excel
.Quit
End With


' Libérer les variables objet
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing
MsgBox "Le fichier test.xls à été créé dans C:\Mes documents !"
End Sub
Messages postés
19
Date d'inscription
jeudi 16 février 2006
Statut
Membre
Dernière intervention
15 juin 2006

VITAMINE A

pour fermer sans savgarder utilser la commande suivante :

wbk.Close savechanges:=False