Ubuntu-fr

claudius723

Correction et confirmation macro ouvrrir fermer classeur

Bonjour à tous,
J'ai construit une petite macro sans prétention pour ouvrir et fermer deux fichiers, j'aimerais savoir si la syntaxe employée est juste, ou si il y a mieux à faire, car je ne suis pas expert en la matière !!
Cette macro fonctionne parfaitement dans les deux sens.

Sub OuvrirFichier2FermerFichier1
  Dim oDoc as object
  Dim oURL as string
  Dim oFich1 as object
‘Déclare le Fichier 1 qui contient la macro
oFich1 = ThisComponent
‘Déclare le chemin et le nom du Fichier 2
oURL ="file:///Fichier2.ods"
GlobalScope.BasicLibraries.LoadLibrary("Tools")
‘Ouvre Fichier 2
oDoc = OpenDocument(oUrl, array())
‘Ferme Fichier1
oFich1.close (True)
End sub

J'attends vos remarques, merci

---

Cordialement
Claudius723