Discussion :

[redstoff]

bonjour

je cherche à faire l'équivalant de

Code :

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

on error resume next

A la place d'annuler juste la prochaine étape je voudrai qu'il stop tout le "sub"

quelqu'un peut il m'aider?

merci

[jfontaine]

Bonjour

Essais comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub MonSub()
 
On Error GoTo Sortir
 
'code
 
 
Sortir:
 
End Sub

[redstoff]

ça m'a l'aire de fonctionner

cependant pour bien test la commande il me faudrait une commande

j'explique vite fait le contexte

si j'appui sur un bouton il m'ouvre un fichier
le souci c'est qu'il est possible que le fichier à ouvrir soit déjà ouvert

ta commande à l'aire de marcher car il me donne pu le message d'erreur.

donc la commande que je souhaiterai c'est

quand excel me demande de oui ou non rouvrir le fichier déjà ouvert de faire en sorte que ça fasse non directement

serais tu faire ça?

[jfontaine]

Je pensais utiliser

Code :

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

Application.DisplayAlerts=False

Mais il ferme le classeur et l'ouvre de nouveau sans enregistrer les modifs

Le code ci dessous sort s'il trouve le classeur ouvert.
Attention cela fonctionne uniquement si le classeur est ouvert dans la meme instance d'application excel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub MonSub()
 
Dim wrk As Workbook
Dim strCheminClasseur As String
 
strCheminClasseur = "c:\fichier.xls"
 
For Each wrk In Application.Workbooks
    If UCase(wrk.Path) & "\" & UCase(wrk.Name) = UCase(strCheminClasseur) Then Exit Sub
Next
'code
Set wrk = Application.Workbooks.Open(strCheminClasseur)
 
End Sub

[MarcelG]

Bonjour redstoff, Jérôme et le Forum,

Voici une fonction pour tester si le fichier est ouvert quelle que soit l'application (soit le poste utilisateur):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function FichierEstOuvert(ByRef FichierTeste As Variant) As Boolean
    Dim FICHIER As Long
    On Error GoTo Erreur
    FICHIER = FreeFile
    Open FichierTeste For Input Lock Read As #FICHIER
    Close #FICHIER
    FichierEstOuvert = False
    Exit Function
Erreur:
    FichierEstOuvert = True
End Function

exemple : test si le fichier Excel "Astuces VBA" est ouvert

Code :

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

1
2
FichierTeste = "monchemincompletl\Astuces VBA.xls"
MsgBox FichierEstOuvert(FichierTeste)