IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)

Microsoft Word Page Sources

Microsoft Word Page SourcesConsultez toutes les sources

Nombre d'auteurs : 5, nombre de sources : 7, création le 1er octobre 2007 

 
OuvrirSommaireCommunication entre applicationsExcel

Il peut être utile de savoir si un fichier Excel sur lequel on veut travailler est ouvert... Une simple Sub :

 
Sélectionnez
Sub OuvertOuNon()
Dim NomFich As String, Chemin As String
Dim xlApp As Object
Dim xlCL1 As Object
    Chemin = "D:\xls\"
    NomFich = "LaClasseur.xls" 'sans le chemin
    Set xlApp = CreateObject("Excel.Application")
    'Si Excel est fermé, génère une erreur
    Set xlApp = GetObject(, "Excel.Application")
    
    On Error Resume Next
        'si le fichier est fermé, génère une erreur
        Set xlCL1 = xlApp.Workbooks(NomFich)
    On Error GoTo 0
    
    MsgBox "Le classeur " & NomFich & " est-il ouvert ? " & Not xlCL1 Is Nothing
    'si on veut travailler sur le fichier en lecture seule
    If Not xlCL1 Is Nothing Then
        Set xlCL1 = xlApp.Workbooks.Open(FileName:=Chemin & NomFich, ReadOnly:=True)
        MsgBox xlCL1.worksheets("Feuil1").Cells(1, 1) 'juste pour tester
      'Else
        'si on veut fermer l'instance d'Excel.
        'ATTENTION, si le classeur est ouvert, ferme Excel de l'utilisateur
        'xlApp.Quit
        'Set xlApp = Nothing
        'Set xlCL1 = Nothing
    End If
    
End Sub
Créé le 12 avril 2009  par ouskel'n'or

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2013 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.