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
| Private Sub CommandButton1_Click()
Dim nom_feuille_classeur As String
Dim nom_document As String
Dim trigramme_apv As String
Dim nouveau_fichier As String
Dim repertoire_de_sauvegarde As String
Dim lien_nouveau_fichier As String
Dim Ws As Worksheet
Dim Wb As Workbook
Set Ws = ActiveSheet
'nom_feuille_classeur = ActiveSheet.Name ' recuperation nom de la feuille dans le classeur de départ
Set Wb = Workbooks.Add
trigramme_apv = Range("D6").Value ' recuperation nom de AVP
Ws.Copy before:=Wb.Sheets(1)
repertoire_de_sauvegarde = "M:\" ' nom repertoire ou mettre le nouveau fichier
nouveau_fichier = Format(Date, "yyyymmdd") & " " & Ws.Range("D6") & " APV " & Ws.Name & " adherents .xlsm " ' nom du nouveau document
lien_nouveau_fichier = repertoire_de_sauvegarde & nouveau_fichier ' nouveau document
Wb.SaveAs Filename:=lien_nouveau_fichier ' lien nouveau fichier >> problème avec le ActiveSheet.SaveAs et le Filename:= , c est l erreur 1004
Wb.Close False
End Sub |
Partager