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