Sauvegarde xls sous Sax Basic

Version imprimable

26/10/2006, 11h28
el_pilacho

Sauvegarde xls sous Sax Basic

Bonjours à tous zé ta toute !!!!

Toujours heureux de me lancer de nouveau défi, mon gentil patron ma demander une macro sur SAX Basic à moi qui ne suis même pas informaticien. :sm:
Il est vraiment trop cool mon chef. :ave:
Mais comme je suis une grosse buse, je vous demande un coup de main.
Comment fait ton pour enregistrer automatiquement un fichier Excel sous SAX. J’ai essayé avec .save, mais une fenêtre de sauvegarde s’ouvre.

Merci bien
26/10/2006, 11h44
AlainTech

Sans rien connaître au Sax, en toute logique, je dirais:
Donne-lui un nom à .Save.
26/10/2006, 12h03
el_pilacho

Déjà essayé. Ça ne marche pas, j'ai toujours cette fenêtre de sauvegarde qui s’ouvre. Mais merci quand même.
26/10/2006, 15h08
RLX

Salut,

as tu bien mis tout le pathname du fichier avec le save?

oui
il n'y a rien qui cloche dans la pathname.
voila quelques lignes du programme dont la fameuse qui me pause problème.
merci pour ton aide.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim PathName$
  PathName = GetFilePath("NP0506","" ,"E:\LocaldiskE_SEY\" ,"Repertoire de sauvegarde" ,2)
  MkDir PathName


  Dim i%
  For i = 1 To nSpectra
    If Excel.Sheets.Count < i Then
      Excel.Sheets.Add ,Excel.Sheets(Excel.Sheets.Count)
    End If
    Excel.Sheets(i).Activate

    Dim sName$
    sName = Replace(aAnaSpec(i).oAnalysis.Name, "\", "_")
    sName = Replace(sName, " ", "_")
    sName = Left(sName, 31)

    Excel.Sheets(i).Name = GetNextValidSheetName(Excel, sName)

    CopyMassListToClipboard aAnaSpec(i).oAnalysis, aAnaSpec(i).oSpectrum , Excel.Sheets(i).Name
    Excel.Sheets(i).Paste
    Excel.Range("A1").Select
    Excel.Save PathName & "\" & Excel.Sheets(i).Name & ".csv"

26/10/2006, 17h04
AlainTech

Essaye SaveAs...