Sauvegarde Excel!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Question

Bonjour, 

   Mon projet comporte un module ou l'on ouvre un classeur excel et on y modifie des données. Mon probleme se situe au niveau de la sauvegarde apres les modifications.

Set oExcelApp = CreateObject("EXCEL.APPLICATION")
oExcelApp.Visible = False
oExcelApp.Workbooks.Open Filename:=App.Path & "\Vannes2.xls"
Set Feuil1 = oExcelApp.sheets("Vannes")

Screen.MousePointer = 11

Feuil1.cells(3000, 1).Value = Vannes_Ajout.Combo1.Text
(....)
oExcelApp.Save

oExcelApp.Quit
Set Feuil1 = Nothing
Set oExcelApp = Nothing

Le probleme est ke lorsque je ve sauver je voudrai ke cela soit automatique(sans passé par une boite de dialogue)

si vous avez une idée, ca m'aiderai enormement

cluz · Answer

salut lorsque tu ferme via activeWorkbook.close true
tu peux passe le parametre true et donc excel ne t'embete plus.

waimea64 · Answer

Salut merci pour ta reponse mais lorsque j'ajoute la ligne

"oExcelApp.activeWorkbook.Close True"

le prog me fait apparaitre la  fenetre windows d'enregistrer sous ou on doit saisir le nom a suaver or moi je vous courcircuité toute cette partie de la sauvegarde

A tu une idée?

 merci d'avance

Sauvegarde Excel!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

2 réponses

Discussions similaires