Soyez le premier à donner votre avis sur cette source.
Snippet vu 12 459 fois - Téléchargée 37 fois
'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
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.