Discussion :

[el_pilacho]

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.
Il est vraiment trop cool mon chef.
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

[AlainTech]

Sans rien connaître au Sax, en toute logique, je dirais:
Donne-lui un nom à .Save.

[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.

[RLX]

Salut,

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

[el_pilacho]

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 :

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

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"

[AlainTech]

Essaye SaveAs...