vb 6 excel

Question

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&#233;er un objet Excel
' (ce qui &#233;quivaut &#224; d&#233;marrer Excel &#224; distance)
Set xlApp = New Excel.Application


With xlApp
   ' Rendre Excel visible
   '.Visible = True


   ' Cr&#233;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&#233;rer les variables objet
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing
MsgBox "Le fichier 1.xls &#224; &#233;t&#233; cr&#233;&#233; "



End Sub

cs_MasterHack · Answer

salut, je ne vois pas pourquoi tu aurais à enregistrer si tu n'as pas modifier le classeur.

Life is short...Learn more Copy Rights <> Rights to Copy

wrndid · Answer

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&#233;er un objet Excel
' (ce qui &#233;quivaut &#224; d&#233;marrer Excel &#224; distance)
Set xlApp = New Excel.Application


With xlApp
   ' Rendre Excel visible
   '.Visible = True


   ' Cr&#233;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&#233;rer les variables objet
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing
MsgBox "Le fichier test.xls &#224; &#233;t&#233; cr&#233;&#233; dans C:\Mes documents !"
End Sub

saharbiahmed · Answer

VITAMINE A

pour fermer sans savgarder utilser la commande suivante :

wbk.Close savechanges:=False

Vb 6 excel

3 réponses

Discussions similaires