Enregistrer un fichier sous vba excel
Bonjour,
J'ai crée un petit programme qui me permet de copier une cellule sur d'autre cellule et de renommer le fichier.
mais je ne sais pas pourquoi, mon nouveau fichier s'enregistre dans "mes documents" alors que je ne voudrais pas qu'l ne se deplace pas et qu il reste là ou il est..:)
Je vous joins ma macro :
Code:
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
| Sub test()
Dim b As Integer
b = Range("b" & Range("b65536").End(xlUp).Row).Row ' derniere ligne non vide de la colonne BRange("D28:E28" & b).Select 'selection de la zone de copie
On Error Resume Next 'alerte l'utilisateur pour ses fichiers déja ouverts
MsgBox "VOUS ACTIVEZ LA MACRO RUE DU COMMERCE.."
Dim rep1 As Long
rep1 = MsgBox("FERMER TOUS VOS FICHIERS EXCEL" & Chr(13) & _
"Vous risquez de modifier automatiquement vos fichiers déja ouverts !!!" & Chr(13) & _
" Voulez vous continuer ? " & Chr(13), vbYesNo + vbCritical, "ATTENTION ")
If rep1 = vbNo Then Exit Sub
Dim nom As String, Fichier As String
Dim FichierSource As String
nom = "Bordereau du" & " " & Format([E9].Value, "yymmdd")
FichierSource = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
'ActiveWorkbook.Path & "\" & ActiveWorkbook.name permet de récuperer le chemin du classeur actif
'Nom à donner au nouveau fichier
Fichier = nom
'Enregistrement au format du classeur
ActiveWorkbook.SaveAs Filename:=Fichier, FileFormat:=xlNormal
Range("D28:E28").Formula = "=""*""&SUBSTITUTE(RC[-2],"" "","""")&""*"""
Range("D28:E28").Copy
Range("D28:E" & b).Select 'selection de la zone de copie
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("D28:E" & b).Select
With Selection.Font
.Name = "3 of 9 Barcode"
.Size = 24
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
Application.CutCopyMode = False 'instrcution qui permet d'effacer la marque de selection autor de la plage copiee
End Sub |
