Excel

Résolu
Signaler
Messages postés
36
Date d'inscription
mercredi 16 mars 2005
Statut
Membre
Dernière intervention
5 février 2009
-
Messages postés
3
Date d'inscription
mercredi 11 août 2004
Statut
Membre
Dernière intervention
12 février 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
3
Date d'inscription
mercredi 11 août 2004
Statut
Membre
Dernière intervention
12 février 2006

Salut

Avec :
xlApp.DisplayAlerts=False

ca devrait le faire.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
36
Date d'inscription
mercredi 16 mars 2005
Statut
Membre
Dernière intervention
5 février 2009

ca marche pas ou je l'ais mal placé
merci
Messages postés
3
Date d'inscription
mercredi 11 août 2004
Statut
Membre
Dernière intervention
12 février 2006

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