Macro enregistrement

Bonjour,

Dans Calc, je souhaiterai proposer une macro qui permettent d’enregistrer sous le fichier ouvert à un endroit précis et avec un nom préétabli. Ces informations correspondraient à des cellules du classeur.

Exemple :

Donnée saisie en cellule A1 / feuille X : C:\Documents and Settings\Utilisateur1\Test

Donnée saisie en cellule A2 / feuille X : nomdufichier.ods

Résultat attendu : enregistrement sous du fichier dans le dossier “C:\Documents and Settings\Utilisateur1\Test” avec le nom “nomdufichier.ods”

Merci pour votre aide !

Bonjour

Sub Enregistrer()

dim oDoc As Object, oSheet as object
dim adresseDoc As String, sChemin as string, sNomFichier as string, sMsg as string

oDoc = thiscomponent
oSheet  = oDoc.Sheets.getByName("Feuille1")
sChemin = oSheet.getCellRangeByName("A1").string
sNomFichier = oSheet.getCellRangeByName("A2").string
sMsg =  "Erreur lors de l'enregistrement, vérifier le chemin ou le nom de fichier"

AdresseDoc = convertToURL(sChemin & "\" & sNomFichier)

on error goto Enregistrer_Err

oDoc.storeAsURL(adresseDoc, array())

Enregistrer_Exit:
exit sub
Enregistrer_Err:
msgbox sMsg, MB_OK + MB_ICONSTOP , "Enregistrer"
End Sub

Cordialement

Merci pierre-yves samyn !
Ça marche nikel !

Bonne journée