Macro enregistrement

[juju81]

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 !

[PYS]

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

[sophie11]

Bonjour,

Idem je dois réaliser une macro pour sauvegarder un fichier version excel sous libre office.

Exemple :
Données saisie en cellule V7 / feuille X : S:\3-Production\Peinture\

Données saisie en cellule I4 / feuille X : nomdufichiers+ vlaeur de la cellule I4

résultat : enregistrement sous du fichier dans le dossiser “S:\3-Production\Peinture” avec nomdufichier et valeur de la cellule I4.

Pourriez vous m’aider ?

[fpy]

@sophie11

Pourriez vous m’aider ?

il suffit d’appliquer la solution juste ci-dessus ?

[juju81]

Merci pierre-yves samyn !
Ça marche nikel !

Bonne journée