Feuille excel déjà ouverte ...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 313 fois - Téléchargée 37 fois

Commenter

Contenu du snippet

ce code permet de savoir si une feuille excel est déjà ouverte... j'espère que ça peut être utile....

Source / Exemple : 


'Créer un Module de classe Classe_close

Public WithEvents App As Application
'App_WorkbookBeforeClose:
Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
    
    'Lorsque le classeur est fermé, il faut mettre à jour le tmp pour que le message d'info n'est pas lieu...
    '... d'être lors de la prochaine ouverture du document.
    If iAssupOk = 0 Then
        '
        Open "C:\TEMP\fichier.tmp" For Output As #2
        Write #2, ""
    End If
    
    '
    Close #2
End Sub 'App_WorkbookBeforeClose

'Dans ThisWorkbook

Public iAssupOk As Integer
Dim App As New Classe_Close

'Workbook_Open:
Private Sub Workbook_Open()
    
   
    'Code qui va permettre de savoir si la feuille excel est déjà utilisée sur le réseau.
    '1 : A l'ouverture, Vérification de l'existance d'un tmp.... ( si il n'existe pas, la...
    '    ... feuille n'est pas ouverte sur le réseau (pas de message).
    '2 : Si le tmp existe et qu'un nom utilisateur y figure...
    '    ... on envoie un message comme quoi le fichier est ouvert, s'il n'y a pas de nom utilisateur...
    '    ... on écrit l'utilisateur en cours (pas de message).
    '3 : A la fermeture du classeur, on vire (à condition de na pas avoir eut le message d'avertissement),...
    '    ... le nom utilisateur.
    Set App.App = Application

    '
    '** Déclaration de variables.
    Dim sUser As String
    Set fsoObject = CreateObject("Scripting.FileSystemObject")
    
    'Initialisation de variable.
    iAssupOk = 0
    
    'Vérification de l'existance du tmp.
    If fsoObject.FileExists("C:\TEMP\fichier.tmp") Then
        
        'Lecture de l'info utilisateur ds le tmp.
        Open "C:\TEMP\fichier.tmp" For Input As #2
        Line Input #2, sUser
        Close #2
    End If
    
    sUser = Replace(sUser, Chr(34), "")
    If sUser <> "" Then 'Il y a un utilisateur.... On avertit et on met à jour la variable pour ne pas écraser l'info.
        iAssupOk = 1
        sMessage = MsgBox("Feuille déjà ouverte par - " + sUser, vbInformation, "Amalthee Vers. 1.0")
    Else
             
        'Le classeur n'est pas ouvert, mais il faut mettre à jour le tmp...
        '... au cas ou il serait amener à être ouvert par une autre personne (pour que cette dernière soit avertit).
        Open "C:\TEMP\fichier.tmp" For Output As #2
        Write #2, Application.UserName
    End If
    
    '
    Close #2
   
End Sub 'Workbook_Open

A voir également

Ajouter un commentaire

Commentaires

Signaler
hachhoucher
Messages postés
2
Date d'inscription
jeudi 14 février 2008
Statut
Membre
Dernière intervention
5 novembre 2008
 -
choukran
Signaler
Ricou36
Messages postés
3
Date d'inscription
jeudi 15 janvier 2009
Statut
Membre
Dernière intervention
21 avril 2010
 -
Bonjour,

j'aimerais faire la même chose mais pour un fichier PDF. j'utiliserai mon code depuis SolidWorks 2009.

Si quelqu'un à une idée, merci de me le faire savoir.

Merci d'avance

Eric
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Iginse)