Microsoft 365 Explorateur de fichiers windows et réseau local

Private Sub Ajouter_Click()
  Dim modif As Boolean
  Dim reponse As Integer
  Dim chFichEtiq As Variant, fileToOpen As Variant, NomFichier As String, chOd As String

  'une étiquette existe déjà
  If Not FM_FVin.Etiquette.Picture Is Nothing Then
    modif = False
    reponse = MsgBox("Une étiquette existe déjà, êtes vous sûr de vouloir la changer", _
                      vbYesNo + vbDefaultButton2, "Entrée étiquette")
    
    If reponse = 1 Then modif = True
    
  'étiquette à ajouter
  Else
    modif = True
  End If
 
  If modif = True Then
    chFichEtiq = Workbooks(ActiveWorkbook.Name).Path & "\Etiquettes"
    'gère l'environnement OneDrive
    If Left(chFichEtiq, 5) = "https" Then
      chOd = "\" & Mid(chFichEtiq, InStrRev(chFichEtiq, "/") + 1)
      chFichEtiq = Environ("OneDrive") & chOd
    End If
    'gère l'environnement réseau
    If Left(chFichEtiq, 2) = "\\" Then


      ChDir chFichEtiq

    Else

      ChDrive chFichEtiq
      ChDir chFichEtiq
    End If

    fileToOpen = Application.GetOpenFilename("Image,*.JPG;*.GIF;*.BMP")
    If VarType(fileToOpen) = vbString Then
      FM_FVin.Etiquette.Picture = LoadPicture(fileToOpen)
      NomFichier = CreateObject("Scripting.FileSystemObject").GetFileName(fileToOpen)
      FM_FVin.FVin20.Value = NomFichier
    End If
 
  End If
End Sub