Poser votre question
0

Macro enregistrement

posée 2020-02-05 13:48:24 +0200

Image Gravatar de 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 !

éditer requalifier signaler fermer fusionner supprimer

2Réponses

0

répondue 2020-02-09 12:51:05 +0200

Image Gravatar de juju81

Merci pierre-yves samyn ! Ça marche nikel !

Bonne journée

éditer signaler supprimer permalien plus
0

répondue 2020-02-05 16:54:14 +0200

Image Gravatar de pierre-yves samyn

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

éditer signaler supprimer permalien plus
S'identifier/S'inscrire pour répondre

Outils de question

1 suiveurs

Stats

Posée: 2020-02-05 13:48:24 +0200

Consultée: 47 fois

Mise à jour: Feb 09