Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

problem version excel ?

anna

XLDnaute Nouveau
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
 
?

:(

Guest
re bonjour à tous
je sais que vous n avez pas que mes problem a resoudre mais je n 'est pas eu une seule reponse j espere que vous allez m aider rapidement car le client veut me faire bosse le WE a cause de ca.
pitie d'une jeune maman qui veut passer un WE en famille
Merci bcq et desole pour le derangement
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…