Discussion :

[miroku75]

Bonjour j'ai une maccro qui marche pas sous MAC alors que sur Windows tout marche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub btn_file_Click()

With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = ThisWorkbook.Path & "\"
        .Title = "Sélectionner un Fichier"
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewDetails
        .Filters.Clear
        .Filters.Add "Fichiers Excel", "*.csv"
        .Show
        If .SelectedItems.Count > 0 Then
            txt_file = .SelectedItems(1)
        End If
End With
erreur:
    MsgBox ("Erreur.")
    Resume Next
End Sub

merci.

[noooop]

Bonjour, essaye de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.... & "\"

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

... & "/"

[PBELL]

Bonsoir Miroku75,

J'utilise sur Windows directement la fonction GetOpenFilename pour demander à l'utilisateur de sélectionner un fichier (sélection seulement et pas ouverture) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
' Demande à l'utilisateur de sélectionner un fichier
finfo = "tous les fichiers (*.*),*.*"
filtredefaut = 1
Title = "Nom du fichier pour xxxx"
Fichier = ""
Fichier = Application.GetOpenFilename(finfo, filtredefaut, Title)
If Fichier = "Faux" Then
     MsgBox "pas de fichier sélectionné : Arrêt de la Macro"
    Exit Sub
    End If
' Le résultat du fichier choisi est dans la variable Fichier

Malheureusement, cette fonction est mal écrite par Microsoft sur Mac (ce bug n'est pas documenté).
En effet, bien que l'aide en ligne indique les mêmes paramètres que sur Windows, l'ajout de ces derniers provoque une erreur... incontournable tant que tu laisses ces paramètres (Merci Microsoft !)
Voici cependant un exemple de code qui fonctionne sur Mac :

finfo = ""
FileFilter = 3
Title = "Nom du fichier de download SAP"
Fichier = ""
' To be change if run on Macintosh or PC
Fichier = Application.GetOpenFilename(finfo, FileFilter, Title)
If Fichier = "Faux" Then
MsgBox "pas de fichier sélectionné : Arrêt de la Macro"
Exit Sub
End If

L'utilisateur peut alors sélectionner un fichier. Malheureusement, les variables Filfilter et finfo sont ignorées par VBA!
Tu ne peux donc filtrer les types de fichiers, autoriser ou non les sélections multiples.

Je me souviens de contournements via AppleScript, mais je ne les ai pas essayés. Je te donne tout de même la piste au cas où tu voudrais pousser tes investigations plus loin :

Il faut faire un texte contenant un AppleScript dans une variable, puis utiliser la commande VBA MacScript(MaVariable) qui va lancer ce script à partir de ta macro VBA.
VBA va executer le script AppleScript dont le texte est dans MaVariable.

Ce script peut utiliser les fonctions classiques d'AppleScript pour sélectionner un ou plusieurs fichier avec des types prédéfinis et avec un chemin prédéfini.
Voir sur le Web l'instruction AppleScript "Choose File" avec ses paramètres "prompt", "multiple selection allowed", "file type", ... etc

J'espère que cela va t'aider.
Cordialement