Vb 6 excel

wrndid Messages postés 36 Date d'inscription mercredi 16 mars 2005 Statut Membre Dernière intervention 5 février 2009 - 12 févr. 2006 à 13:23
saharbiahmed Messages postés 19 Date d'inscription jeudi 16 février 2006 Statut Membre Dernière intervention 15 juin 2006 - 16 févr. 2006 à 17:57
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

cs_MasterHack Messages postés 586 Date d'inscription jeudi 18 septembre 2003 Statut Membre Dernière intervention 13 février 2008 2
12 févr. 2006 à 16:19
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
0
wrndid Messages postés 36 Date d'inscription mercredi 16 mars 2005 Statut Membre Dernière intervention 5 février 2009
12 févr. 2006 à 17:38
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
0
saharbiahmed Messages postés 19 Date d'inscription jeudi 16 février 2006 Statut Membre Dernière intervention 15 juin 2006
16 févr. 2006 à 17:57
VITAMINE A

pour fermer sans savgarder utilser la commande suivante :

wbk.Close savechanges:=False
0