bonjour.
j'ai cree une programme qui ouvre un fichier excel et qui modifi celui ci mais je n'arive pas a enregistrer automatiquement ce qui vien d'etre modifié.
voila mon source.
et merci d'avance.

'ouvre le fichier excel
xlapp.Workbooks.Open FileName:=App.Path & "\..\" & "\solid edge" & "\Excel SE" & "\" & Nervure & "_lower.xls"

'modification des lignes

For i = 1 To 26
    VariableAqqc = "A" & (i)
    xlapp.Sheets("feuil1").Range(VariableAqqc).Value = ValALower(j, i)     'ecriture des valeurs dans la colone A
   
    VariableBqqc = "B" & (i)
    xlapp.Sheets("feuil1").Range(VariableBqqc).Value = ValBLower(j, i)     'ecriture des valeurs dans la colone B
   
    VariableCqqc = "C" & (i)
    xlapp.Sheets("feuil1").Range(VariableCqqc).Value = 0            'ecriture des valeurs dans la colone C
Next i

xlbook.close
xlapp.Quit

 

avant de fermer le classeur ajoute thisworkbook.save
ou ThisWorkbook.Close SaveChanges:=true

 Drikce 06

losque je met thisworkbook.save ou thisworkbook.close savechanges:=true le message d'erreur suivant s'affiche.
erreur d'execution "1004"
la methode "thisworkbook" de l'objet "_Global" a echoué

je ne comprend pas d'ou vient le probleme.
merci

au lieu de mettre thisworkbooks essaye avec workbooks("nomduclasseur.xls")
et dim workbooks as classeur excel
sinon désolé je vois pas

 Drikce 06

Drikce06 : tu dis "ThisWorkbook.Close SaveChanges:=true" ThisWorkbook fonctionne qu'avec vba excel ; notre ami benji2725 est en VB benji2725 : tu as mis "xlbook.close" et ben remplace le par xlbook.close True ou par xlbook.close SaveChanges:=True Ces deux syntaxes sont bonnes. @++ --Mortalino-- Le Mystérieux Chevalier "Provençal, le Gaulois" N'oubliez pas de lire le règlement !

Moi j'utilise "Obj_Excel.ActiveWindow.Close True, chnom   'on enregistre sous en fermant
chnom est optionnel, cest si tu veut enregistré sous un autre nom;

Le code d'ouverture :

Set Obj_Excel = GetObject(, "Excel.Application")      'Test pour savoir si Excel tourne
If Err Then                                           'il ne tournait pas
   Err.Clear                                          'efface msg d'erreure
   Set Obj_Excel = CreateObject("Excel.application")  'ouvr excel
End If

'Maintenant quoi qu'il arrive Excel est chargé. Pour le rendre invisible:
Obj_Excel.Visible = False


Obj_Excel.Workbooks.Open (App.Path & "\nom_fichier")

'...modifs...ex : Obj_Excel.ActiveWorkbook.Sheets(2).Cells( val, 1).Value = "X1"

Obj_Excel.ActiveWindow.Close True

Set Obj_Excel = Nothing