Excel

Résolu
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:24
yopop Messages postés 3 Date d'inscription mercredi 11 août 2004 Statut Membre Dernière intervention 12 février 2006 - 12 févr. 2006 à 14:24
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

yopop Messages postés 3 Date d'inscription mercredi 11 août 2004 Statut Membre Dernière intervention 12 février 2006
12 févr. 2006 à 13:41
Salut

Avec :
xlApp.DisplayAlerts=False

ca devrait le faire.
3
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 à 14:00
ca marche pas ou je l'ais mal placé
merci
0
yopop Messages postés 3 Date d'inscription mercredi 11 août 2004 Statut Membre Dernière intervention 12 février 2006
12 févr. 2006 à 14:24
Je n'avais pas lu ton code en dé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
0