Discussion :

[Pitou5464]

SAlut à tous,

Je voudrais sauvegarder un fichier excel deja ouvert à partir d'un bouton sous access directement dans un répértoire prédéfini.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set xlApp = GetObject(, "Excel.Application")
xlApp.ActiveWorkbook.SaveAs ("\\Lenovo-01\sfca travail\DossiersAccess\" & sta & "\" & a)

[Invité]

Il faut déjà ouvrir ton fichier pour pouvoir faire "enregistrer sous"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
With xlApp
  .Workbooks.Open (MonFic)
  .DisplayAlerts = False
  ' Enregistrer le fichier maintenant
  .ActiveWorkbook.SaveAs (MonRépertoire & NomFichier & ".xls")
  .DisplayAlerts = True
  .ActiveWorkbook.Close
End With
xlApp.Quit
Set xlApp = Nothing

Mais il y'a plus simple, si tu n'as pas besoin de travailler sur ton fichier Excel
Si dans les références VBA tu as coché "Microsoft Scripting Runtime"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  Dim Fso As New FileSystemObject
  Fso.CopyFile "Source as string", "Destination as string", True

Voilà

[Pitou5464]

ouais mais moi j'ai une application excel deja ouverte avec un document dans un fenetre c'est pour ça que j'utilise la methode getobject

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set xlApp = getObject(, "Excel.Application")

[SfJ5Rpw8]

et que ce passe-t'il ? .. message d'erreur..?