[VBA-E] Macro ouverture fichier déja ouvert

Version imprimable

17/12/2002, 17h07
bhaal76

[VBA-E] Macro ouverture fichier déja ouvert
comment faire pour qu'une macro d'ouverture automatique n'ouvre pas un fichier déjà ouvert ???

(recherche HS)
Code:

1 2 3 4 5 6 7 8 9 10 Sub auto_open() ' ' auto_open Macro ' ' Workbooks.Open Filename:="indicateur.xls", _ UpdateLinks:=3 Windows("fichier source 1.xls").Activate End Sub
mon fichier indicateur récupère des données dans des fichiers sources, et lorsqu'il est ouvert, je ne voudrais pas tenter de le ré-ouvrir

merci

salut !!!
j'ai déja fait un truc du genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Set app_Excel_test = GetObject(, "Excel.Application")
For cpt = 1 To app_Excel_test.Workbooks.Count
    Load Msg_excel
    Msg_excel.Show vbModal
    If nom_doc = app_Excel_test.Workbooks(cpt).Name Then
        If res_bouton = 0 Then
            app_Excel_test.Workbooks(cpt).Save
            app_Excel_test.Workbooks(cpt).Close
        ElseIf res_bouton = 1 Then
            GoTo fin
        End If
        End If
Next cpt

Nom_doc étant le nom du ficheir a ne pas rouvire
si t'as une question sur le code hésite pas à la poser

17/12/2002, 17h44
bhaal76

merci bien

ou un truc du genre

Code:

1
2
3
4
5
6
7
8
Sub OpenSpécificWK(WorkBookName As String)
    Dim wk As Workbook
    For Each wk In Application.Workbooks
        If wk.Name = WorkBookName Then Exit Sub
    Next
    Workbooks.Open Filename:=WorkBookName, _
        UpdateLinks:=3
End Sub

18/12/2002, 14h30
bhaal76

merci merci, ça marche ... :D :D :D

bhaal76