compatibilité Xls Windows Mac

[thomassitto]

Bonjour à tous,
je suis nouveau sur le forum et je vous poste un problème je pense déjà connu.
Si par change quelqu'un avait trouvé la solution concernant une incompatibilité d'une macro qui fonctionne sur window XP mais pas sur Excel Mac
Mon 1er bug concerne "erreur d'exécution impossible "68" périphérique indisponible" :
Application.ScreenUpdating = False
Set DocDep = ActiveWorkbook.ActiveSheet
Chemin = ThisWorkbook.Path & "\"
NomFichier = Dir(Chemin & "*xls*")
Do While Len(NomFichier) > 0

J'ai testé plusieurs variante sans succès...

Mon second problème concerne une fonction sélection avec une fenêtre qui m'indique comme erreur :
Erreur d'exécution "429"
Sheets("Filtres multi XLS").Range("B6:B" & Range("B" & Rows.Count).End(xlUp).Row).ClearContents

Set Mondico = CreateObject("Scripting.Dictionary")
For Each C In Sheets("Recap").Range("J16:J" & Sheets("Recap").Range("A" & Rows.Count).End(xlUp).Row)

Je vous remercie de votre aide.

Cordialement

 

[camarchepas]

Re : compatibilité Xls Windows Mac

Bonjour,

Déjà en déclarant correctement les variables

Dim DocDep As Worksheet
Dim Chemin As String, NomFichier As String
Dim MonDico As Object
Dim C As Range

 

[Misange]

Re : compatibilité Xls Windows Mac

Bonjour

Pas très lisible le jaune 🙂
Sauf erreur le chemin des fichiers sur les macs comportent des : pas des /

 

[thomassitto]

Re : compatibilité Xls Windows Mac

Bonjour,

Je vous remercie pour vos retours je regarde cela. N'étant pas un pro Excel j'ai beaucoup fait en récupérant du code à droite à gauche
Cordialement