Discussion :

[bhaal76]

comment faire pour qu'une macro d'ouverture automatique n'ouvre pas un fichier déjà ouvert ???

(recherche HS)

Code :

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

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

[Argonz]

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

Code :

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

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

[bhaal76]

merci bien

[DarkVader]

ou un truc du genre

Code :

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

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

[bhaal76]

merci merci, ça marche ...

bhaal76