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