Discussion :

[taztahiti]

bonjour,

je souhaiterai avoir une macro qui permet d'ouvrir un fichier sous calc et de fermer celui ci quand le nouveau fichier est ouvert

merci à tous

[rvtoulon]

Slt,
un petit coup d'oeil sur ce lien pourras t'aider:
http://ooo.developpez.com/faq/?page=Calc#Question11

A+

[taztahiti]

Bonjour,

merci pour cette réponse,


Sub ouvrirClasseur
Dim Fichier As String
Dim Wb As Object
Dim Args()

Fichier = ConvertToUrl("C:\Documents and Settings\michel\dossier\leTableur.ods")
Wb = StarDesktop.loadComponentFromURL(Fichier,"_blank",0 ,Args() )
End Sub

cette macro permet d'ouvrir le fichier cible, mais je voudrai savoir comment après avoir ouvert le fichier cible, le fichier source se ferme automatiquement

merci pour vos solutions

[rvtoulon]

Slt,
dans le lien que je t'ai donné je ne sais pas si tu as eu la curiosité de regarder la question juste en dessous " comment créer un nouveau fichier Calc", car il te donne une réponse a ta deuxième question
A+

[taztahiti]

bonjour,

j'ai regardé la commande de fermeture, mais quand je l'active tout les fichiers se ferme et puis s'ouvre en erreur open office

car la macro est activé dans le premier fichier

je souhaiterai de l'aide pour que la macro active le fichier deux et ferme le fichier un sans qu'une erreur se produise

merci beaucoup

[rvtoulon]

Slt,
Difficile de t'aider sans voir le code que tu as écrit.

En mixant les codes des tutos voici une macro qui fonctionne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub OuvrirFermerClasseur
 Dim oFich1 as object, oFich2 As String
 Dim Wb As Object
 Dim Args()
 
 'Déclare le fichier 1 qui contient la macro
 oFich1 = ThisComponent
 
 'Déclare le chemin et le fichier 2 à ouvrir et convertit l'adresse en URL
 oFich2 = ConvertToUrl("C:\Fich2.ods")
 
 'Ouvre le fichier 2
 Wb = StarDesktop.loadComponentFromURL(oFich2,"_blank",0 ,Args() )
    'Ferme le fichier 1 sans sauvegarder les changements
    'Pour sauvegarder remplacer False par True
    oFich1.close (False)
End Sub

J'ai testé pas d'erreur chez moi.
A+

ps: Si c ok met résolu, merci

[taztahiti]

Bonjour voici ma macro
si je ne ferme la fichier 1 cela fonctionne, mais si je ferme le fichier 1, open office se ferme et redémarre en récupération, je précise que j'ai open office 2.4 au travail.

Merci pour votre aide

'--------------------------------------------------------------------------
'------------------------ Ouvrir fichier suivi DFUE
'--------------------------------------------------------------------------
sub ouvrirFichier

dim fichier1 as object
dim maFeuille as object
dim monfichier as string
dim adresse as string
dim fichier2 as string
dim wb as object
Dim args(0) as new com.sun.star.beans.PropertyValue

args(0).Name = "MacroExecutionMode"
args(0).Value = com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN

fichier1 = ThisComponent

maFeuille = ThisComponent.sheets.getByName("DFUE")
monfichier = maFeuille.getCellRangeByName("G13").string

if maFeuille.getCellRangeByName("E13").string= "HAGUENAU" then adresse = "Z:\Ggd_Gesfi\15 - DFUE\02 - Compagnie de HAGUENAU\suivi DFUE HAGUENAU.ods"
if maFeuille.getCellRangeByName("E13").string= "MOLSHEIM" then adresse = "Z:\Ggd_Gesfi\15 - DFUE\03 - Compagnie de MOLSHEIM\suivi DFUE MOLSHEIM.ods"
if maFeuille.getCellRangeByName("E13").string= "SAVERNE" then adresse = "Z:\Ggd_Gesfi\15 - DFUE\04 - Compagnie de SAVERNE\suivi DFUE SAVERNE.ods"
if maFeuille.getCellRangeByName("E13").string= "SELESTAT" then adresse = "Z:\Ggd_Gesfi\15 - DFUE\05 - Compagnie de SELESTAT\suivi DFUE SELESTAT.ods"
if maFeuille.getCellRangeByName("E13").string= "STRASBOURG" then adresse = "Z:\Ggd_Gesfi\15 - DFUE\06 - Compagnie de STRASBOURG\suivi DFUE STRASBOURG.ods"
if maFeuille.getCellRangeByName("E13").string= "WISSEMBOURG" then adresse = "Z:\Ggd_Gesfi\15 - DFUE\07 - Compagnie de WISSEMBOURG\suivi DFUE WISSEMBOURG.ods"
if maFeuille.getCellRangeByName("E13").string= "EDSR" then adresse = "Z:\Ggd_Gesfi\15 - DFUE\08 - EDSR\suivi DFUE EDSR.ods"
if maFeuille.getCellRangeByName("E13").string= "GPT" then adresse = "Z:\Ggd_Gesfi\15 - DFUE\09 - GPT\suivi DFUE GPT.ods"

fichier2 = ConvertToUrl(adresse)
wb = StarDesktop.loadComponentFromUrl(fichier2,"_blank",0,args())
wb.currentcontroller.select(wb.sheets.getByname(monfichier).getcellrangebyname("A12")

'-------------------------------------------------------------------------
'----------------- Fermeture du fichier 1 ------------------------
'-------------------------------------------------------------------------


fichier1.Close (False)


End Sub

[rvtoulon]

Slt,
j'ai légèrement modifié ta macro, essaye comme çà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
sub ouvrirFichier
dim fichier1 as object, fichier2 as string
dim maFeuille as object, monfichier as string, adresse as string
dim wb as object
Dim args() 'laisse les arg comme çà  
 
fichier1 = ThisComponent
 
maFeuille = ThisComponent.sheets.getByName("DFUE")
monfichier = maFeuille.getCellRangeByName("G13").string
 
if maFeuille.getCellRangeByName("E13").string= "HAGUENAU" then 
   adresse = "Z:\Ggd_Gesfi\15 - DFUE\02 - Compagnie de HAGUENAU\suivi DFUE HAGUENAU.ods"
 
elseif maFeuille.getCellRangeByName("E13").string= "MOLSHEIM" then 
   adresse = "Z:\Ggd_Gesfi\15 - DFUE\03 - Compagnie de MOLSHEIM\suivi DFUE MOLSHEIM.ods"
 
elseif maFeuille.getCellRangeByName("E13").string= "SAVERNE" then 
   adresse = "Z:\Ggd_Gesfi\15 - DFUE\04 - Compagnie de SAVERNE\suivi DFUE SAVERNE.ods"
 
elseif maFeuille.getCellRangeByName("E13").string= "SELESTAT" then 
   adresse = "Z:\Ggd_Gesfi\15 - DFUE\05 - Compagnie de SELESTAT\suivi DFUE SELESTAT.ods"
 
elseif maFeuille.getCellRangeByName("E13").string= "STRASBOURG" then 
   adresse = "Z:\Ggd_Gesfi\15 - DFUE\06 - Compagnie de STRASBOURG\suivi DFUE STRASBOURG.ods"
 
elseif maFeuille.getCellRangeByName("E13").string= "WISSEMBOURG" then 
   adresse = "Z:\Ggd_Gesfi\15 - DFUE\07 - Compagnie de WISSEMBOURG\suivi DFUE WISSEMBOURG.ods"
 
elseif maFeuille.getCellRangeByName("E13").string= "EDSR" then 
   adresse = "Z:\Ggd_Gesfi\15 - DFUE\08 - EDSR\suivi DFUE EDSR.ods"
 
elseif maFeuille.getCellRangeByName("E13").string= "GPT" then 
   adresse = "Z:\Ggd_Gesfi\15 - DFUE\09 - GPT\suivi DFUE GPT.ods"
 
end if
 
fichier2 = ConvertToUrl(adresse)
 
wb = StarDesktop.loadComponentFromUrl(fichier2,"_blank",0,args())
wb.currentcontroller.select (wb.sheets.getByname(monfichier).getcellrangebyname("A12"))
 
fichier1.Close (False)
End Sub

A+

[taztahiti]

Bonjour,

je vais essayer ta macro modifié.
Par ailleurs, je recherche une macro de lancement de document comme sous excel qui permet de passeren :

- affichage plein écran
- suppression des barres d'outils
- suppression des barres de défilement
- suppression des ongles

cette macro serait active des que l'on lance le fichier

Merci encore pour le coup de main