Fonction Save et saveas

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

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