Bonjour les internauts(es);

J'ai besoin un coup de main pour mon application en VBA.
j'explique:

Je voudaris définir le chemin d'exportation mon fichier.csv dans un sous-répertoire:Exportation---->Traité avec :Le nommage des fichiers suit la règle suivante :

NomdeFichier_CRI_{Date_du_fichier}.csv


avec Date_du fichier au format : AAAAMMJJHHMMSS


L’émetteur peut choisir d’envoyer un fichier conteneur CSV par fichier.csv ou de regrouper plusieurs fichier.csv dans un même fichier.csv.

voilà mon code de conversion fichier.xls en .csv et en méme temps il exporte dans la source:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
56
57
58
59
60
61
62
63
64
65
66
67
'*****************************************************
'sauvegarder le fichier Excel en CSV avec pipe "|" *
'*****************************************************
Sub createCsv()
Dim separateur As String
Dim Ligne As String
Dim Sh As Worksheet
 
Application.ScreenUpdating = False
 
separateur = "|"
Set Sh = ThisWorkbook.Worksheets("OT à Imprimer")
 
'Kill "Testfichiercsv2.csv"
Open "Testfichiercsv2.csv" For Output As #1
 
Ligne = "REFCONTRAT" & "|" & "NOM PRESTATAIRE" & separateur & "DATECRENEAU" & separateur _
& "HEUREDEBUT" & separateur & "COMMENTAIREPOSTE" & separateur & "CODEECHEC" & separateur & "CRNOM" _
& separateur & "CRDATE" & separateur & "CRHEUREDEBUT" & separateur & "CRHEUREFIN" _
& separateur & "SERVICE TEL" & separateur & "SERVICE TV" & separateur & "SERVICE WEB" _
& separateur & "MACADRESSE MODEM" & separateur & "NUMSERIE MODEM" & separateur & "MAC ADRESSE NEUFBOX" _
& separateur & "NUMSERIE NEUFBOX" & separateur & "MAC ADRESSE STB" _
& separateur & "NUM SERIE STB" & separateur & "MAC ADRESSE STB2" _
& separateur & "NUMSERIE STB2" & separateur & "MAC ADRESSE STB3" _
& separateur & "NUMSERIE STB3" & separateur & "MAC ADRESSE STB4" _
& separateur & "NUMSERIE STB4" & separateur & "NOM" _
& separateur & "PRENOM" & separateur & "FIXCONTACT" _
& separateur & "PORTABLECONTACTE" & separateur & "AFFECTATIONBOITIERETAGE" _
& separateur & "AFFECTATIONEQUIPEMENT" & separateur & "AFFECTATIONFO" _
& separateur & "AFFECTATIONSITE" & separateur & "AFFECTATIONSPLITTER" _
& separateur & "AFFECTATIONIMMEUBLE" & separateur & "AFFECTATIONBPIVER" _
& separateur & "AFFECTATIONBPIHOR" & separateur & "PUISSANCEOPTIQUEPRISE" _
& separateur & "PUISANCEOPTIQUEBE" & separateur & "CODEVALIDATION" _
& separateur & "NUMEROLOGO" & separateur & "NUMEROPBO" _
& separateur & "PRISE ETHERNET" & separateur & "CLEUSB" _
& separateur & "FILTREADSL" & separateur & "PACK CPL2" _
& separateur & "CPL" & separateur & "ETHERNET10m" _
& separateur & "ETHERNET2m" & separateur & "AFFECTATIONBOITIERTIERS" & separateur & "POSITIONMOVE3PS" & separateur & "POSITIONMOVETIERCE"
 
Print #1, Ligne
 
Ligne = Sh.Range("B6").Value & separateur & Range("E17").Value & separateur & Range("B18").Value & separateur & Range("E18").Value _
& separateur & Range("B19").Value & separateur & Range("F59").Value & separateur & Range("E28").Value _
& separateur & Range("B18").Value & separateur & Range("H28").Value & separateur & Range("K28").Value _
& separateur & Range("H51").Value & separateur & Range("H50").Value & separateur & Range("H52").Value _
& separateur & " " & separateur & Range("B41").Value & separateur & " " _
& separateur & Range("B42").Value & separateur & " " & separateur & Range("B44").Value _
& separateur & " " & separateur & Range("B45").Value & separateur & " " _
& separateur & " " & separateur & " " & separateur & " " _
& separateur & Range("E6").Value & separateur & Range("F6").Value & separateur & Range("B7").Value _
& separateur & Range("E7").Value & separateur & Range("B23").Value & separateur & " " _
& separateur & " " & separateur & " " & separateur & " " _
& separateur & " " & separateur & " " & separateur & " " _
& separateur & Range("H29").Value & separateur & Range("K29").Value & separateur & " " _
& separateur & Range("B28").Value & separateur & " " & separateur & Range("I46").Value _
& separateur & " " & separateur & " " & separateur & " " _
& separateur & " " & separateur & " " & separateur & " " _
& separateur & Range("B32").Value & separateur & Range("B24").Value & separateur & Range("B33").Value
 
 
Print #1, Ligne
 
Close #1
 
Application.ScreenUpdating = True
 
End Sub
Merci beaucoup de votre attention

Cordialement