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

[pmfontaine]

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.

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

 

[Staple1600]

Re

@Lone-wolf

Relis mon code
Notamment ce qui concerne strPath

 

[Lone-wolf]

Re

@Staple1600 : oui, et qu'est-ce que ça à avoir si j'ouvre un classeur xxxxx.xlsm ou .xls?? Il n'y a pas d'imposition a ce que je sache(.xlsx).

 

[Staple1600]

Re

C'est pourtant clair, non ?
strPath = ThisWorkbook.Path & "\test.xlsx"

Implique que le chemin est celui du classeur contenant le code, et pas le chemin du Bureau
Or tu as écris

j'ai testé en essayant d'ouvrir un classeur que j'avais sur le bureau.

PS: Si les deux classeurs sont sur le Bureau alors oublie ce message

 

[Lone-wolf]

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.

 

[pmfontaine]

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

 

[MJ13]

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.

 

[Dranreb]

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

 

[Robert]

Re,

(Repris par tous sans tiquer…)

Ha bon... Tu t'egares Bernard...

 

[Dranreb]

Pourquoi ?
Oui bon, peut être pas vraiment repris par tous. Mais signalé par quelqu'un à part moi ?

 

[pmfontaine]

Merci Dranreb pour ton aide.
Après correction ça marche pour test_ 1 et 3 mais pas pour test_2 qui envoie :
Voir pièce jointe

ouvrir n'importe quel fichier dans le dossier du claseur actif avec la demande ......... fichier ouvrir.

OUI ces exactement la question que j'ai posé.
Merci

 

[Staple1600]

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

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

 

[Lone-wolf]

Bonjour tout le monde

@Staple1600
J'ai refais un test ce matin, ça fonctionne. J'ai sûrement fais une fausse manip. Pour la version de windows j'ai aussi la 1803.

 

[pmfontaine]

Bonjour,

Pour la macro test_2 essaies avec cette version

Sub test_2b()
strPath = Chr(34) & ThisWorkbook.Path & "\test.xlsx" & Chr(34)
CreateObject("WScript.Shell").Run strPath
End Sub

OK ça marche, les trois ouvre bien le dossier test.xlsx
Merci