Bonjour à toutes et à tous
dans le cadre de mon travail j'ai fais une macro qui ouvre un fichier, fait des traitement dessus ....puis copie les resultats dans un autre fichier.Le problem:Sur nos postes (la socite) Excel2000Francais ca marche tres bien mais quand je l envoie chez le client qui a Excel 2000 mais anglais ca ne marche pas(la macro n'arrive meme pas a recuperer le chemin du fichier selectionne et l'ouvrir.
alors est ce que c un problem de version ou quoi.
merci bcq de votre aide
voila le bout de ma macro :
Sub Report_Drawing()
'
' Filtre_Islast Macro
' Macro enregistrée le 15/09/2005 par lhordoir
'
Dim objShell, objFolder, Repertoire, SecuriteSlash, FlagChoix&, Msg$, choix, chemin
Dim nom As String
FlagChoix = &H4000&: Msg = 'Choisissez un fichier :'
Set objShell = CreateObject('Shell.Application')
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, FlagChoix, Racine)
On Error Resume Next
chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ''
' A la compilation chemin est vide donc il n arrive pas a l'ouvrir
nom = objFolder.Title
SecuriteSlash = InStr(objFolder.Title, ':')
If SecuriteSlash > 0 Then
chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ''
End If
ActiveWindow.LargeScroll ToRight:=2
Selection.AutoFilter Field:=49, Criteria1:='TRUE'
ActiveWindow.LargeScroll ToRight:=-3
Range('A:AZ').Select
Selection.Copy
........... suite des traitement