Feuille excel déjà ouverte ...
Soyez le premier à donner votre avis sur cette source.
Snippet vu 12 388 fois - Téléchargée 37 fois
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
- Feuille excel déjà ouverte ...
- Feuille excel ouverte via macro avec bouton non fonctionnel ✓ - Forum - Visual Basic 6
- Comment contôler qu'une feuille excel est déja ouverte ?? ✓ - Forum - Visual Basic
- Oter protection feuille excel vba - Guide
- Copier une cellule dans une autre feuille excel vba ✓ - Forum - Visual Basic
- Appeler une cellule d'une autre feuille excel - Forum - Visual Basic
Commentaires
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
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.