XL 2016 Code VBA sous un macos

[telemarrk]

Bonsoir,

j'ai récupéré le code VBA ci-dessous par un membre du forum qui fonctionne à merveille sur des PC Windows.

Par contre sur un mac cela ne fonctionne pas, quelqu'un peut il m'aider

Code :

Private Sub Workbook_Open()
Dim Dossier As String, fichier As String, i As Integer, DL%
Range("A:b").ClearContents ' Efface les colonnes A à b
Application.ScreenUpdating = False
Dossier = ThisWorkbook.Path & "\" ' Utilise le dossier en cours, à mettre à jour avec le dossier désiré : "D:\chemin..."
i = 5
fichier = Dir(Dossier)
Do While fichier <> "" ' Tant qu'il existe un fichier
i = i + 1
If fichier Like "*.pdf" Then ' On ne choisit que les pdf
Sheets("Factures").Range("A" & i) = fichier ' Inscrire fichier en colonne A, commence en A3
On Error Resume Next
Sheets("Factures").Range("B" & i) = FileDateTime(Dossier & fichier) ' Date de dernier enregistrement
End If
If fichier Like "*.pdf" Then ' On ne choisit que les pdf
Sheets("liaison").Range("A" & i) = fichier ' Inscrire fichier en colonne A, commence en A3
On Error Resume Next
Sheets("liaison").Range("B" & i) = FileDateTime(Dossier & fichier) ' Date de dernier enregistrement
End If
fichier = Dir ' Prochain fichier
Loop
DL = Range("A65500").End(xlUp).Row
Range("A5:B" & DL).Resize(DL).Sort key1:=Range("A5"), order1:=xlAscending, Header:=xlNo

End Sub


Merci

 

[TooFatBoy]

Bonjour,

T'as essayé des / à la place des \ ?

 

[telemarrk]

Bien vu TooFatBoy

Cela fonctionne mais il me demande à chaque fichier PDF de donner droit à l'accès

Existe un moyen pour éviter cela

 

[TooFatBoy]

Ca je ne sais pas. Désolé.

 

[telemarrk]

ok en tout cas merci pour ton aide je vais chercher de mon coté