Bonjour a tous,
Je suis en train de développer une macro exel et j'ai un gros problème de compatibilité quand je passe sous mac et mon niveau de VBA ne me permet pas de résoudre seul mon problème. J'ai une fonction sur PC qui me permet d'ouvrir une fenêtre où je peux choisir un dossier cible, la fonction récupère en plus l'adresse du dossier et la macro continue.
Mais cette fonction ne passe pas sous mac car elle utilise des objets liés au contrôle active X absent sous mac.
Voici le code qui ne passe pas sous office mac 2011 :
Sub Test ()
' ne pas actualiser l'ecran gain de vitesse
Application.ScreenUpdating = False
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim chemin As String
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un dossier", &H1&)
On Error Resume Next
Set oFolderItem = objFolder.items.Item
chemin = oFolderItem.Path
end sub
J'ai trouvé un autre code qui n'utilise pas les objets active x mais il bug aussi. Je le posterais si vous le souhaitez (pour en pas trop saturer mon premier message)
J’espère que vous pourrez m'aider,
Cordialement,
Nicolas
Je suis en train de développer une macro exel et j'ai un gros problème de compatibilité quand je passe sous mac et mon niveau de VBA ne me permet pas de résoudre seul mon problème. J'ai une fonction sur PC qui me permet d'ouvrir une fenêtre où je peux choisir un dossier cible, la fonction récupère en plus l'adresse du dossier et la macro continue.
Mais cette fonction ne passe pas sous mac car elle utilise des objets liés au contrôle active X absent sous mac.
Voici le code qui ne passe pas sous office mac 2011 :
Sub Test ()
' ne pas actualiser l'ecran gain de vitesse
Application.ScreenUpdating = False
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim chemin As String
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un dossier", &H1&)
On Error Resume Next
Set oFolderItem = objFolder.items.Item
chemin = oFolderItem.Path
end sub
J'ai trouvé un autre code qui n'utilise pas les objets active x mais il bug aussi. Je le posterais si vous le souhaitez (pour en pas trop saturer mon premier message)
J’espère que vous pourrez m'aider,
Cordialement,
Nicolas