Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
Sub Nouveau () 'nom du fichier xxx.xls à remplacer au besoin chemin = ThisWorkbook.Path & "xxx.xls" Workbooks.Add ActiveWorkbook.SaveAs Filename:=chemin End Sub
Youky
Sub Nouveau ()
'nom du fichier xxx.xls à remplacer au besoin
chemin = ThisWorkbook.Path & "xxx.xls"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=chemin
End Sub
Sub Nouveau () 'nom du fichier xxx.xls à remplacer au besoin chemin = ThisWorkbook.Path & "xxx.xls" Workbooks.Add ActiveWorkbook.SaveAs Filename:=chemin End Sub
Youky
Excel
Sub Nouveau () 'nom du fichier xxx.xls à remplacer au besoin chemin = ThisWorkbook.Path & "xxx.xls" Workbooks.Add ActiveWorkbook.SaveAs Filename:=chemin End Sub
Youky
merci bcp youky :)
Sub Nouveau ()
'nom du fichier xxx.xls à remplacer au besoin
chemin = ThisWorkbook.Path & "xxx.xls"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=chemin
End Sub
Sub Nouveau () 'nom du fichier xxx.xls à remplacer au besoin chemin = ThisWorkbook.Path & "xxx.xls" Workbooks.Add ActiveWorkbook.SaveAs Filename:=chemin End Sub