Fonction Save et saveas

[Yves]

Bonjour à tous,

J'aimerais savoir comment mettre la fonction save ou saveas dans une macro. Il existe la fonction Sheel pour ouvrir un fichier. Il doit nécessairement y avoir une fonction pour save et les autres.

merci.

 

[EricS]

Bonjour, pour ouvrir et fermer tu peux par exemple utiliser


' Workbooks.OpenText FileName:=.FoundFiles(i) _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False



' ActiveWorkbook.SaveAs FileName:=cheminexcel & nomfichier1 & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

il y a des méthodes qui font appel à des boites de dialogue comme :


Ouvrir = Application.GetOpenFilename(filefilter:="Classeur Microsoft Excel (*.xls),*.xls", Title:="Récupération des Données ARTIS")
If Ouvrir = False Then MsgBox "aucun fichier sélectionné", vbOKOnly + vbCritical, "fin de procédure ": Exit Sub

' récupération des données
Workbooks.Open FileName:=Ouvrir

qui a son pendant en .GetSaveAsFilename

A+
Eric

 

[Gérard DEZAMIS]

Bonjour Yves

Avec l'enregistreur de macro (mon outil de base bof !) cela donne :

ActiveWorkbook.SaveAs Filename:="C:\Chemin perso\Nom du fichier.xls"

Est-ce suffisant ?

Bonne journée
@+ GD