Filedialog sur Mac ?

Bonjour

J'ai un code qui fonctionne parfaitement bien... sur PC.

Par contre sur Mac il ne passe pas, j'imagine que le fileDialog/ Application.FileDialog(msoFileDialogFolderPicker) sont exclusivement réservés au PC.

1) Est-ce possible sur Mac

2) Est-ce possible sur la même macro de reconnaître si l'utilisateur à un mac ou pc (peut-être avec un if) et donc le router correctement?

Merci !

(désolé je mets tout le code au cas ou je loupe qqch au départ)

David

Sub AppCde()

  Dim SourceS As Workbook  ' Classeur source
  Dim DestiD As Workbook  ' Classeur de destination
  Dim FullName As String
  Dim rep As FileDialog

 If Range("D11") = "" Or Range("D13") = "" Or Range("D37") = "" Then
    MsgBox "merci de remplir les données manquantes"
  Else

    Worksheets("Macro").AutoFilterMode = False
    Sheets("MACRO").Select
    Set SourceS = ActiveWorkbook

        ActiveSheet.Range("$A$2:$F$1650").AutoFilter Field:=4, Criteria1:=">0", _
        Operator:=xlAnd

    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select

    Selection.Copy
    Workbooks.Add
    Set DestiD = ActiveWorkbook
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    'suppr entête
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp

    'format date
    Range("E1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.NumberFormat = "dd/mm/yyyy"
    'Sélection Dossier
    Set rep = Application.FileDialog(msoFileDialogFolderPicker)
    rep.Show
    ChDir rep.SelectedItems(1)
    'Sélection Dossier
    FullName = Folder & SourceS.Sheets("Intro").Range("D13").Value & "_" & Format(Now, "ddmmyyyy_hhmm_ss") & ".Coe"
    ActiveWorkbook.SaveAs Filename:=FullName, FileFormat:=xlCSV, Local:=True, CreateBackup:=False
    ActiveWorkbook.Close savechanges:=False

 SourceS.Sheets("Intro").Activate
 Range("a1").Select
 End If
End Sub

Bonsoir

pour un test de systeme d'exploitation : voici une petite fonction que j'utilise

Function isMactest() As Boolean
'*********************************************************************************************************
'test le systeme d'exploitation mac ou windows
'*********************************************************************************************************
If Application.OperatingSystem Like "*Mac*" Then
   isMactest = True
Else
   isMactest = False
End If
End Function

pour le choix d'un dossier sous mac voir le site de rondebruin... une référence en la matière....

https://www.rondebruin.nl/mac/mac017.htm

Fred

Merci Fred,

je vais tenter ça !

David