excelRésolu

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

yopop · Accepted Answer

Salut

Avec : 
xlApp.DisplayAlerts=False

ca devrait le faire.

wrndid · Answer

ca marche pas ou je l'ais mal plac&#233;
merci

yopop · Answer

Je n'avais pas lu ton code en d&#233;tail. Si tu veux sauver le fichier sous le meme nom ( 1.xls), tu dois utiliser :
wbk.Save

Si tu veux changer le nom :
wbk.SaveAs ("c:\2.xls")

Yopop

Excel

3 réponses

Discussions similaires