XL pour MAC Problème excel wondow/Max macro

[lolimatt]

Bonsoir à tous

Je viens de passer sur Mac est un fichier que j'avais crée pour m'amuser pendant le covid et avec votre aide ne fonctionne plus depuis mon passage sur Mac.
Je suppose que. cela vient des chemin qui cherche le disque dur window, pouvez vous m'aider please.
je vous mets en PJ un fichier avec diverses données.
Je vous remercie par avance pour votre aide.

 

[sylvanu]

Bonsoir Lolimatt,
Votre fichier semble corrompu, il est illisible. Qui plus est il ne pèse que 1.07ko.

Malheureusement XL Win et Ios ne sont pas strictement identiques.
En particulier pour les chemins, sur Windows c'est "\", sur Mac c'est "/".
Ou alors utilisez Application.PathSeparator il est compatible des deux mais oblige à construire le chemin :
"C:" & Application.PathSeparator & "Documents" & Application.PathSeparator .....

 

[lolimatt]

Bonsoir Lolimatt,
Votre fichier semble corrompu, il est illisible. Qui plus est il ne pèse que 1.07ko.

Malheureusement XL Win et Ios ne sont pas strictement identiques.
En particulier pour les chemins, sur Windows c'est "\", sur Mac c'est "/".
Ou alors utilisez Application.PathSeparator il est compatible des deux mais oblige à construire le chemin :
"C:" & Application.PathSeparator & "Documents" & Application.PathSeparator .....

Merci pour votre retour je remets le fichier

 

[sylvanu]

Re,
Sans MAC pour tester, quelques pistes :
1- PtrSafe Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" appartient au monde Windows.
Je ne sais pas comment le traduire pour MAC. Voir : LIEN
2- Remplacer "\" par "/" :
ici If (Right$(Nom, 1) = "\") Then
ici ThisWorkbook.Path & "\"
ici ThisWorkbook.Path & "\devisdoc\"
3- Regardez ce site qui est bien utile : https://www.rondebruin.nl/mac.htm

 

[patricktoulon]

BONJOUR
il est évident que les api(fonction) de la kernel32.sll ne fonctionneront pas sur Mac
tu va devoir écrire toi même une fonction Getshorpathname

 

[lolimatt]

BONJOUR
il est évident que les api(fonction) de la kernel32.sll ne fonctionneront pas sur Mac
tu va devoir écrire toi même une fonction Getshorpathname

J'avais déja mis un temps à écrire celuici mais alors la

 

[sylvanu]

Bonjour,
Dans votre appli, pourquoi avez vous besoin de la fonction GetDosPath qui utilise GetShortPathName?
L'idée serait de s'en passer.

 

[lolimatt]

je peux la supprimer ?

 

[sylvanu]

Pour la supprimer il faut savoir à quoi elle vous sert dans votre application.
Qu'avez vous voulu faire ? Le sachant on peut peut être la contourner.

 

[lolimatt]

Pour la supprimer il faut savoir à quoi elle vous sert dans votre application.
Qu'avez vous voulu faire ? Le sachant on peut peut être la contourner.

le fichier a pour but de faire des devis et en archivant de sauvegarder la feuille en PDF et excel afin de pouvoir l'envoyer