sebdethebes
XLDnaute Occasionnel
Bonjour le Forum,
Voilà, j'utilse la macro ci-dessous pour faire ma sauvegarde:
Sub Image14_QuandClic() '
bdx = ActiveWorkbook.Name
Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename(InitialFilename:=Thi sWorkbook.ActiveSheet.Range("D6").Value, fileFilter:="Fichier Excel (*.xls), *.xls")
Loop Until fName <> False
NewBook.SaveAs Filename:=fName
sauvebdx = ActiveWorkbook.Name
Workbooks(bdx).Activate
Sheets("RDC").Select
Sheets("RDC").Copy before:=Workbooks(sauvebdx).Sheets(1)
End Sub
macro qui enregistre une copie avec le nom directement inscrit dans la boite de sauvegarde et qui n'enregistre que la la feuille "RDC"
mon soucis est que la copie garde toujours des liens (message à l'ouverture) avec le classeur d'origine.
et je n'arrive pas à trouver quel code je dois mettre dans ma macro pour supprimer ces liens afin de ne plus avoir de message...
sebdethebes
Voilà, j'utilse la macro ci-dessous pour faire ma sauvegarde:
Sub Image14_QuandClic() '
bdx = ActiveWorkbook.Name
Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename(InitialFilename:=Thi sWorkbook.ActiveSheet.Range("D6").Value, fileFilter:="Fichier Excel (*.xls), *.xls")
Loop Until fName <> False
NewBook.SaveAs Filename:=fName
sauvebdx = ActiveWorkbook.Name
Workbooks(bdx).Activate
Sheets("RDC").Select
Sheets("RDC").Copy before:=Workbooks(sauvebdx).Sheets(1)
End Sub
macro qui enregistre une copie avec le nom directement inscrit dans la boite de sauvegarde et qui n'enregistre que la la feuille "RDC"
mon soucis est que la copie garde toujours des liens (message à l'ouverture) avec le classeur d'origine.
et je n'arrive pas à trouver quel code je dois mettre dans ma macro pour supprimer ces liens afin de ne plus avoir de message...
sebdethebes