XL 2013 Ouvrir dossier puis fichier VBA (Incompatibilité de type)

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pmfontaine

XLDnaute Occasionnel
Bonjour,
Cette macro me renvoie une erreur "Incompatibilité de type" quand j'ouvre un fichier Excel et j'ai beau chercher, je ne trouve rien sur le Net pour résoudre mon problème.
Code:
Sub OuvrirDossierFichier()
Dim Chemin
Chemin = Workbooks(ActiveWorkbook.Name).Path
Shell "C:\windows\explorer.exe " & Chemin, Application.GetOpenFilename()
End Sub
Pouvez-vous m'aider ?
Merci
Patrick
 

Pièces jointes

Dernière édition:
Re

@Staple1600 : oui les deux classeurs étaient sur le bureau. Ce que je ne comprend pas c'est, pourquoi ça fonctionnait il y a quelque mois en arrière et maintenant ça ne fonctionne plus. J'ai l'impression que plus ils vont en avant avec les mises à jours de windows, plus il commence a y avoir des soucis. Tiens par exemple avec le volume des hauts-parleurs, quand je clique sur l'icône au 1er démarrage, la petite fenêtre du volume ne s'affiche pas en cliquand sur l'icône; je suis obligé de redémarrer l'ordi. Il y a aussi Intel(R) Trusted Execution Engine Interface qui ne fonctionne plus correctement et Windows Defender me dit qu'il y a un problème. Ceci depuis la dermière mise à jour de win10.
 
Bonjour le forum, bonjour a tous les intervenants sur ce poste.
Il y a beaucoup d'échange que je suis sans intervenir car vous êtes entre grands spécialistes.

Même si ma question est résolu avec le code de Robert, cela ne m’empêche pas d'essayer les codes proposés et d'apprendre un peu de vos échanges.

Staple1600 : Je n'ai pas pu tester ton code car problème 32 et 64 bits ? Voir pièce jointe.
Merci et bonne journée à tous
Patrick
Presse-papier01.jpg
 
Bonjour à tous

@Lone-wolf : Sur ta réponse en #9, je n'ai fait que répondre à la question du départ: ouvrir n'importe quel fichier dans le dossier du classeur actif avec la demande via l'explorateur ou fichier ouvrir. Testé sur Excel 2010.
 
Dernière édition:
Bonjour.
Personne ne répond à la dernière question de pmfontaine ?
Faites ce que dit le message: vérifiez (ou pas…) si les chemins et les bibales spécifiés sont bien ceux qui contiennent les API voulues sur votre système, et puis surtout insérez l'attribut 'PtrSafe' juste derrièrre les 'Declare'.
 
Bonsoir le fil, le forum

@pmfontaine,
ça marche pour test_ 1 et 3 mais pas pour test_2 qui envoie :
Pour la macro test_2 essaies avec cette version
VB:
Sub test_2b() 
strPath = Chr(34) & ThisWorkbook.Path & "\test.xlsx" & Chr(34) 
CreateObject("WScript.Shell").Run strPath 
End Sub
PS: A tester en laissant le : Dim strPath As String qui se trouve en début de module
(cf le message#10)

PS: Pour test_1, la réponse était dans le MsgBox d'erreur affiché : PtrSafe
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
37
Affichages
718
Réponses
3
Affichages
672
Réponses
5
Affichages
501
Réponses
5
Affichages
726
Réponses
17
Affichages
2 K
Retour