1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
Sub enregistrer_sous()
'proposée par PatrickToulon et adaptée à mon cas
Dim chemin As String
'pour ne pas avoir à repondre oui lorsqu'on enregistre un fichier XAQ qui existe déjà et qu'il faut remplacer
Application.DisplayAlerts = False
Windows("ABC123_XAQ_00012087.xls").Activate
'l'expression "application.username" donne le nom de l'utilisateur actuel, donc le chemin complet donne:
chemin = "C:\Documents and Settings\" & Application.username & "\Mes Documents\XAQ.xls"
'enregistre le fichier en sortie de l'appli indus dans mes document avec le nom XAQ.xls"
ActiveWorkbook.SaveAs Filename:=chemin, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
' Copie la feuille XAQ dans résultat.xls
Windows("XAQ.xls").Activate
Cells.Select
Selection.Copy
Windows("résultat.xls").Activate
Sheets("Tableau XAQ").Select
Cells.Select
ActiveSheet.Paste
'ferme le classeur XAQ apres avoir été enregistré
Windows("XAQ.xls").Activate
ActiveWindow.Close
End Sub |
Partager