T
thombar
Guest
Bonjour,
J'ai crée un classeur rempli de macros récupérées à droite et à gauche sur le net et personnalisées. Tout fonctionne très bien sous Excel 97.
J'ai eu l'occasion de le tester sous Excel 2000 et Excel XP mais une des macros ne semble pas être interprétée dans ces versions (erreur).
Existe t'il un outil qui identifie les parties de script qui ne sont pas compatibles d'une version à une autre, et qui propose éventuellement un correctif ?
_________________________________________________
Je ne peux pas être affirmatif car je n'ai pas les récentes versions d'Excel sous la main, mais le code qui semble ne pas convenir serait celui-ci :
Sub MAMACRO()
choix = ChoixDossierFichier("", 1)
If choix <> "" Then
End If
etc........
End sub
Function ChoixDossierFichier(Racine, Optional SelType As Byte = 0)
Dim objShell, objFolder, Chemin, SecuriteSlash, FlagChoix&, Msg$
If SelType = 0 Then
FlagChoix = &H1&: Msg = "Choisissez un dossier :"
Else
FlagChoix = &H4000&: Msg = "Choisissez un fichier :"
End If
Set objShell = CreateObject("Shell.Application")
On Error GoTo fin
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, FlagChoix, Racine)
On Error Resume Next
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).path & ""
If objFolder.Title = "" Then
Chemin = ""
End If
SecuriteSlash = InStr(objFolder.Title, "")
If SecuriteSlash > 0 Then
Chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
ChoixDossierFichier = Chemin
fin:
End Function
J'ai crée un classeur rempli de macros récupérées à droite et à gauche sur le net et personnalisées. Tout fonctionne très bien sous Excel 97.
J'ai eu l'occasion de le tester sous Excel 2000 et Excel XP mais une des macros ne semble pas être interprétée dans ces versions (erreur).
Existe t'il un outil qui identifie les parties de script qui ne sont pas compatibles d'une version à une autre, et qui propose éventuellement un correctif ?
_________________________________________________
Je ne peux pas être affirmatif car je n'ai pas les récentes versions d'Excel sous la main, mais le code qui semble ne pas convenir serait celui-ci :
Sub MAMACRO()
choix = ChoixDossierFichier("", 1)
If choix <> "" Then
End If
etc........
End sub
Function ChoixDossierFichier(Racine, Optional SelType As Byte = 0)
Dim objShell, objFolder, Chemin, SecuriteSlash, FlagChoix&, Msg$
If SelType = 0 Then
FlagChoix = &H1&: Msg = "Choisissez un dossier :"
Else
FlagChoix = &H4000&: Msg = "Choisissez un fichier :"
End If
Set objShell = CreateObject("Shell.Application")
On Error GoTo fin
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, FlagChoix, Racine)
On Error Resume Next
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).path & ""
If objFolder.Title = "" Then
Chemin = ""
End If
SecuriteSlash = InStr(objFolder.Title, "")
If SecuriteSlash > 0 Then
Chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
ChoixDossierFichier = Chemin
fin:
End Function