Je voudrais ouvrir le classeur 2 avec le bouton sur le classeur1 (bouton ouvrir classeur2)
Les 2 classeurs sont dans le même fichier.
J'ai essai avec un hyperlien mais cela ne fonctionne pas, j'ai un message "plage incorrecte:
Peut-être que je n'ai pas détaillé correctement le chemin du fichier.
J'aimerais répéter en basic le cote VBA suivant que j'ai sur un fichier excel;
Code : Tout sélectionner
Private Sub Ouvrir_stock_Click()
openWB = IsWorkBookOpen("\Beerxcel_LO_stock_v2.ods")
If openWB Then
Windows("\Beerxcel_LO_stock_v2.ods").Activate
Application.WindowState = xlMaximized
Else
Workbooks.Open Filename:=ThisWorkbook.Path & Beerxcel_LO_stock_v2.ods
End If
End SubVoiçi un exemple que j'ai trouvé, que je devrai surement modifier si je suis dans la bonne direction.
Code : Tout sélectionner
REM ***** BASIC *****
Sub OuvertureFichier
'Dim monDoc as Object, maFeuille as Object
Dim URL as String
' monDoc = ThisComponent
' maFeuille = monDoc.Sheets.getByName("feuille1")
URl = "C:\NVIDIA\Win2KXP\96.02\"'mafeuille.getCellRangeByName("E6").getString()
explorerFichiers(URL)
End sub
Sub explorerFichiers(ceRepertoire as string)
Dim f2 as string, UrlFichier as string
Dim monDoc as Object, maFeuille as Object
Dim monFichier as String
Dim ShExec As Object
monDoc = ThisComponent
mafeuille = monDoc.Sheets.getByName("feuille1")
monFichier = maFeuille.getCellRangeByName("E6").getString()
ShExec = createUnoService("com.sun.star.system.SystemShellExecute")
f2 = dir(ceRepertoire & "*", 0) ' recherche fichiers directs
do while Len(f2) > 0
If f2 = monFichier Then
UrlFichier = ConvertFromURL(ceRepertoire & f2 )
ShExec.execute(UrlFichier , "", 0)
Exit sub
End If
f2 = dir
loop
MsgBox("Fichier non trouvé")
End Sub
