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
@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
@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.
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'.