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
| Sub vecteurTAXPREP()
'
' Dim NewCC As Integer
Dim CeFichier As String
Dim SauverSous As String
Dim Vecteur As String
Dim Lignes As Integer
Vecteur = [NomduFichierVecteur]
SauverSous = [SaveAsVecteur]
CeFichier = ThisWorkbook.Name
NewCC = [NewClient] 'détermine si c'est un nouveau client si = 1
LeNomDuFichier = [OuvreVecteur]
RepSaveTec = [RepPourSave]
Lignes = [NombreLigneVecteur]
If NewCC = 1 Then
Workbooks.Open Filename:=Vecteur
Windows(CeFichier).Activate
Sheets("Vecteur").Visible = -1
Sheets("Vecteur").Select
Range("A1:G" & Lignes).Select
Selection.Copy
Windows(LeNomDuFichier).Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ChDir (RepSaveTec)
ActiveWorkbook.SaveAs Filename:=SauverSous, FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ActiveWorkbook.Close
Windows(CeFichier).Activate
Sheets("Vecteur").Visible = 2
[NewClient] = 0
End If
End Sub |
