Fichier ouvert ? sinon sortir !

Version imprimable

03/12/2012, 21h52
DJ FA

Fichier ouvert ? sinon sortir !

Bonsoir, voilà j'aimerais une petite aide concernant ceci :

J'ai deux fichiers excel :

Un qui se nomme "Trier", l'autre "Lancer" (avec macro)

Quand mon fichier "Trier" est ouvert, la macro "lancer", le mets en premier plan et lance la macro sans soucis.

Code:

Windows("Trier.xls").Activate

Mais quand le fichier "Trier" n'est pas ouvert, la macro plante et donc j'aimerais simplement qu'il m'envoie un message box pour annoncer qu'il n'est pas ouvert et qu'il arrête la macro. Merci pour votre aide. :P

Hello
bon une solution simple mais moche (quick & dirty):
Code:

1 2 3 4 5 6 7 8 on error resume next Windows("Trier.xls").Activate on error goto 0 if Err.number<>0 then msgbox "Argh, le fichier est fermé...",vbCritical exit sub endif
Pas testé mais ca devrait fonctionner.
Maintenant la solution serait de voir si le fichier est ouvert en faisant par exemple
Code:

1 2 3 4 5 6 7 8 9 estOuvert=false foreach wk in workbooks if wk.name="Trier.xls" then estOuvert=true next if not estOuvert then msgbox "Argh, le fichier est fermé...",vbCritical exit sub endif
Pas testé mais ca devrait fonctionner aussi.

++
Nico

Le premier est très bien, merci à toi. :ccool:

Encore moi, je reviens la dessus parce qu'en fait je me rends compte que si je lance la macro avec un autre fichier rien ne l'arrête pour me dire qu'il ne correspond pas. Peux-tu m'aider ? merci je te joins un bout de ma macro.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
On Error Resume Next
   Windows("tri.xls").Activate
   On Error GoTo 0
   If Err.Number <> 0 Then
    MsgBox "Le fichier tri est fermé, veuillez l'ouvrir", vbCritical
   Exit Sub
    End If
  Nom = "tri.xls"
  For x = 1 To Workbooks.Count
    If Workbooks(x).Name = Nom Then Exit For
  Next x
  If x > Workbooks.Count Then
    Nom = OuvreFichier
  End If 
  If Nom = "" Then Exit Sub
  Set Wb = Workbooks(Mid(Nom, InStrRev(Nom, "\", -1) + 1))

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Function OuvreFichier() As String
' http://excel.developpez.com/faq/?page=FenetresExcel#FileDialog
  With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ThisWorkbook.Path & "\"
    .Title = "Choisir un fichier exemple"
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Fichiers", "*.xls,*.xlsm"
    If .Show = True Then
      Workbooks.Open .SelectedItems(1)
      OuvreFichier = .SelectedItems(1)
    End If
  End With
End Function

04/12/2012, 21h40
Nicopilami

hum... peux-tu préciser ton besoin ici ?
je ne comprends pas dans quel sens tu prends la chose...
04/12/2012, 21h42
DJ FA

Quand lance ma macro, il m'ouvre un explorateur et je choisis mon fichier qui doit être au nom de "Tri", par exemple.

Si je choisis un autre fichier avec un nom différent la macro se lance quand même et je veux éviter ça.

rajoute une ligne à ta selection de fichier :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Function OuvreFichier() As String ' http://excel.developpez.com/faq/?page=FenetresExcel#FileDialog With Application.FileDialog(msoFileDialogFilePicker) .InitialFileName = ThisWorkbook.Path & "\" .Title = "Choisir un fichier exemple" .AllowMultiSelect = False .Filters.Clear .Filters.Add "Fichiers", "*.xls,*.xlsm" If .Show = True Then Workbooks.Open .SelectedItems(1) OuvreFichier = .SelectedItems(1) End If End With If InStr(OuvreFichier, "\tri.xls") < 1 Then OuvreFichier="" End Function
Avec cette ligne, si tu ne trouves pas tri.xls dans l'URL du fichier selectionné, ca réinitialise ton nom de fichier selectionné à une chaine vide, et du coup ta macro qui appelait ton ouverture de fichier s'arrete d'elle même ;)

04/12/2012, 21h59
DJ FA

Ca fonctionne, mais il ouvre quand même le fichier qui n'est pas le bon et aussi il me faudrait la cerise sur le gâteau :mouarf: LE message box, parce que je ne serais pas le seul à utiliser ce fichier. Merci d'avance.:ccool:

PS: Je ne veux pas qu'un autre fichier puisse être ouvert et d'être averti via un msgbox. ;)

Aouch oui, forcément... je n'ai pas mis la ligne au bon endroit.:mouarf:
Voici le code corrigé... et avec ta cerise ^^

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Function OuvreFichier() As String
' http://excel.developpez.com/faq/?page=FenetresExcel#FileDialog
  With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ThisWorkbook.Path & "\"
    .Title = "Choisir un fichier exemple"
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Fichiers", "*.xls,*.xlsm"
    If .Show = True Then
                  
        OuvreFichier = .SelectedItems(1)
        If InStr(OuvreFichier, "\tri.xls") < 1 Then 
                OuvreFichier=""
                msgbox "n'y pense meme pas, mauvais fichier",vbcritical
        else
                Workbooks.Open .SelectedItems(1)
        endif
      
    End If
  End With
End Function

04/12/2012, 22h47
DJ FA

Je vais pouvoir dormir tranquillement cette nuit, merci beaucoup et je te souhaite une bonne nuit, et à bientôt. :ccool::ccool::ccool:8-)
04/12/2012, 22h49
Nicopilami

j'en déduis que ca fonctionne :mouarf:
Bonne nuit
Nico