T
thomassitto
Guest
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
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