Ouverture classeur intrenpestive avec ADODB connexion

Bonjour à tous,

Ceci est mon premier post sur le forum, je vous remercie d'avance pour votre aide.

J'utilise une connexion ADODB pour mettre à jour une base de donnée. (Excel 2019)

Le problème est que lorsque un des classeurs (.xlsm) dont je vais chercher les data en ouvert sur le réseau par un collègue, ce classeur s'ouvre en lecture seule avec une erreur de "print area".

Merci à tous.

Bonjour Bault31 et

Il faut utiliser une petite fonction pour savoir si ton fichier est déjà ouvert

Function WbkIsOpen(PathNameWbk As String)
  Dim NumFile As Long, NumErr As Long
  ' Continue if case error
  On Error Resume Next
  ' Open file
  NumFile = FreeFile()
  Open PathNameWbk For Input Lock Read As #NumFile
  Close NumFile
  NumErr = Err.Number
  On Error GoTo 0
  ' Select
  Select Case NumErr
    Case 0:    WbkIsOpen = False
    Case 70:   WbkIsOpen = True
    Case Else: Error NumErr
  End Select
End Function

Si c'est le cas, tu ne fais pas le traitement, tu ne pourras pas

@+

Bonjour BrunoM45,

Cela ajoute du temps d'exécution mais ça fonctionne!

Merci pour ton aide!

Bonne soirée