Enresistrement invisible

[Fabienne]

Bonjour le Forum,

J'aimerais bien dans ma macro pouvoir 'forcer' l'enregistrement
d'un fichier classeur.xls dans une macro (vb word)
sans que l'on y voie dans excel...qu'il nous ne demande pas..
bref que ça soitautomatique

Merci pour votre aide et bonne journée

Fabienne

Voici mon code:
Sub OpenWithCreadteObjectExcel()
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object


Set xlApp = CreateObject('Excel.Application')
xlApp.Application.Visible = True
' Place du texte dans la première cellule de la feuille.
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlApp.Worksheets
xlApp.ActiveWorkbook.ActiveSheet.Range('A1').Select
xlApp.ActiveSheet.Range('A1').Select
ActiveCell.Value = nodem$
ActiveCell.Offset(0, 1).Value = datedem$
ActiveCell.Offset(0, 2).Value = name_$
xlApp.ActiveWorkbook.SaveAs FileName:='C:\\Temp\\Classeur.xls'
xlApp.Quit
End Sub

 

[STephane]

Bonjour


si j'ai bien compris ton problème, il te faut appliquer applique la propriété 'displayalerts' de l'objet application en la passant à false.

ainsi

Stéphane

 

[Fabienne]

Bonjour,

En fait si je ne mets cette klligne
xlApp.ActiveWorkbook.SaveAs FileName:='C:TempClasseur.xls'

ma macro ne fonctionne pas et ja'imerais donc revenir à mon fichier
excel de départ en quittant classeur.xls en forçant son ernregistrement mais sans le voir à l'écran