Discussion :

[buigui]

Bonjour,

Un ami a crée sur pc une macro qui fonctionne qui fonctionne bien.
Sur mac (excel 2011), nous n'arrivons pas à la faire tourner. Le message d'erreur "Erreur d'exécution "1004": La méthode "GetOpenFilename" de l'objet "Application" a échoué " apparaît.

S'agit-il d'un problème de compatibilité entre la version vba de son excel pc, et celle du mien mac?

Ci-joint le fichier excel PRP_New_Analysis_1.0 contenant la macro qui ouvre le Userform. Avec le Userform, ouvrir le fichier RE502004.txt (j'ai joint RE502004.xlsx car je n'arrivai pas à joindre de fichier texte, donc à reconvertir en fichier texte) avec les deux "chemin vers le fichier brut de l'ERP". Ensuite la macro est censée s'excéuter normalement.

Quelqu'un aurait il l'amabilité de se pencher sur ce problème?

Merci par avance
Cdt.

PRP_New_Analysis_1.0.xlsmRE502004.xlsx

[RyuAutodidacte]

Bonjour,

Tout code vba utilisant activeX sur pc ne fonctionnera pas sur Mac
En ce qui concerne GetOpenfilname
Voilà

[buigui]

Bonjour,

Tout code vba utilisant activeX sur pc ne fonctionnera pas sur Mac
En ce qui concerne GetOpenfilname
Voilà

Bonjour RyuAutodidacte,

Merci pour ta réponse. L'utilisation d'activeX dans le code et de GetOpenfilename sont deux sujets différents, ou un seul?
Je n'arrive pas à utiliser l'aide de Ron de Bruin sur ce sujet. J'ai bien essayé d'intégrer son code de remplacement de GetOpenFilename dans le code du Userform1 mais je n'y suis pas arrivé.
Pourrais-tu m'aider à le recoder stp?

Cdt

[RyuAutodidacte]

Bonjour,

afin de respecter les règles du forum, il faudrait une explication claire et exhaustive (les tenants et les aboutissants) et
mettre l'ensemble du code dans le post (cf ma signature)
les fichiers xlsm ne sont pas lus pour diverses raisons dans ce cas là joindre à la place un fichier xlsx

je regarderai sans problème par la suite

L'utilisation d'activeX dans le code et de GetOpenfilename sont deux sujets différents, ou un seul?

C'est une précision, car il y a des useform avec activeX il me semble non reconnus sous Mac => il faut s'y prendre autrement

[buigui]

Le code en Userform est:

Code :

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

1
2
3
Private Sub CommandButton1_Click()
    UserForm1.TextBox1.Value = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
End Sub

Le code en module 1 est:

Code :

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

1
2
3
Private Sub CommandButton1_Click()
    UserForm1.TextBox1.Value = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
End Sub

Dès le click du Button 1 sur l'objet du Userform, le message d'erreur "Erreur d'exécution "1004": La méthode "GetOpenFilename" de l'objet "Application" a échoué " apparaît.

Cdt

[RyuAutodidacte]

Bonjour,
SVP, pouvez vous modifier votre message afin d'éviter de répéter le message précédent (cela nuit à la lisibilité du post) et mettre le code entre les balises code (bouton # ou voir l'exemple dans ma signature)
afin que celui-ci soit plus lisible (ces balises permettent un enrichissement (texte) du code)
Merci
Des que j'aurais un moment, je regarde (mais à mon avis ça sera plutôt ce soir)

[Menhir]

Le code en module 1 est:
Private Sub CommandButton1_Click()

Je ne vois pas l'intérêt de mettre cette macro dans un module en plus de la macro dans le Userform.

De plus, je ne connais pas le MacOS mais es-tu sûr que *.* soit compréhensible sur Mac ?

[Menhir]

S'agit-il d'un problème de compatibilité entre la version vba de son excel pc, et celle du mien mac?

Je pense plutôt qu'il s'agit d'un problème de compatibilité des Files System : Windows et MacOS ne décrivent pas leurs chemins de la même façon.

[RyuAutodidacte]

En effet le séparateur sur Mac est ":" alors que sur pc c'est "\"
On peut utiliser : Application.PathSeparator,
Quoi qu'il en soit le site de Ron de Bruin, donne des informations assez précieuse pour coder en vba Mac

[Menhir]

Ou bien faire un test sur la propriété OperatingSystem de Application.
https://msdn.microsoft.com/fr-fr/lib.../ff837365.aspx

[buigui]

Merci pour vos réponses, je vais les creuser respectivement.