begin process at 2012 02 14 06:36:49
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

VBA

 > FEUILLE EXCEL DÉJÀ OUVERTE ...

FEUILLE EXCEL DÉJÀ OUVERTE ...


 Information sur la source

Note :
6 / 10 - par 2 personnes
6,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBA Niveau :Débutant Date de création :26/08/2003 Date de mise à jour :26/08/2003 16:00:57 Vu :10 703

Auteur : Iginse

Ecrire un message privé
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

 Description

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

Source

  • '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
'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







 Sources du même auteur

LECTURE DE FICHIER AVEC SÉPARATEUR VIA UN FORMATAGE EXCEL
Source avec Zip COMPARAISON DE 2 FICHIERS VERS 1.0
Source avec Zip THE LOTO

 Sources de la même categorie

Source avec Zip GESTION PERSONNEL par oudlarbi
Source avec Zip Source avec une capture CALENDRIER EN VBA POUR EXCEL 2010 par nounou94
Source avec Zip Source avec une capture MANIPULER LES FENETRES ENFANT D'EXCEL par bigfish_le vrai
Source avec Zip Source avec une capture COLLECTION ID par Le Pivert
Source avec Zip Source avec une capture VBA MASQUE DE SAISIE NUMÉRIQUE par acive

Commentaires et avis

Commentaire de hachhoucher le 05/11/2008 11:52:04

choukran

Commentaire de Ricou36 le 21/04/2010 17:33:44

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

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 5,257 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales