Bonjour,
Je serai tenté de dire qu'il faut faire comme si on changeait de lecteur et de chemin, mais je n'utilise pas OneDrive donc, je ne peux pas le vérifier, mais essyez quand même:
le code:
Option Explicit
Option Compare Text
Private Sub Workbook_Open()
Dim FSO As Object, Msg As String
ChDrive "C"
ChDir "C:\users\sncf\onedrive"
Set FSO = CreateObject("Scripting.FileSystemObject")
If Right(FSO.GetFolder(ThisWorkbook.Path).Name, 3) = "zip" Then
Msg = " Fichier d'une archive compressé, lancement impossible!" & vbCrLf & vbCrLf & _
" L'application va se fermer." & vbCrLf & vbCrLf & _
" Copier et coller les fichiers dans un nouveau dossier."
MsgBox Msg, vbCritical, "FERMETURE"
ThisWorkbook.Close
Else
Application.Caption = "© 2019, 2020 - Tatiak"
If ActiveSheet.Name = "Bilan" Then Feuil1.Select
Init_Cbbx
End If
Set FSO = Nothing
End Sub
le fichier
Cdlt