Help !!! - Macro - problème de partage

[yoanncloet]

Bonjour à tous,

Je viens de créer un fichier comportant une macro. Ce fichier doit être utilisé par d'autres collègues mais dans la macro, il reprend le chemin d'accès de mon bureau.
Chacun doit pouvoir l'utiliser librement pour pouvoir faire tourner la macro sans faire référence à un chemin précis.
Vous trouverez ci-dessous le début du code.
N'étant pas un pro de la macro et de VBA, pouvez vous svp me modifier le code ?

Merci d'avance.
Yoann

ExtractionFDV Macro
' Macro enregistrée le 11/09/2008 par frdvadu
'

'
Workbooks.Add
ChDir "C:\Documents and Settings\frdvadu\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\frdvadu\Desktop\envoi fdv.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Windows("OP de prix PUBLIC 303.xls").Activate
Sheets("simulation FDV").Select
Sheets("simulation FDV").Copy Before:=Workbooks("Envoi FDV.xls").Sheets(1)
Windows("OP de prix PUBLIC 303.xls").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Tarif").Select
Sheets("Tarif").Copy Before:=Workbooks("Envoi FDV.xls").Sheets(2)
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Sheets("Feuil3").Activate
ActiveWindow.SelectedSheets.Delete
Sheets("simulation FDV").Select
Range("C14😀233").Select
Selection.Copy

 

[tototiti2008]

Re : Help !!! - Macro - problème de partage

Bonjour yoanncloet,

est-il indispensable de sauvegarder le classeur sur le bureau de l'utilisateur ?
la ligne ChDir peut être supprimée

 

[tototiti2008]

Re : Help !!! - Macro - problème de partage

peut-être :

Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\" & Environ("username") & "\Desktop\envoi fdv.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Windows("OP de prix PUBLIC 303.xls").Activate

 

[yoanncloet]

Re : Help !!! - Macro - problème de partage

Bonjour TotoTiti,

je viens de tester et à priori ça fonctionne nickel. Je vais la tester demain sur d'autres postes...
Un grand merci pour ton aide.

Cdlt.
Yoann