Macro en VBA

Version imprimable

Macro en VBA

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:

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

26/05/2009, 11h39
aalex_38

Tu code, merci bien seulement il est difficilement lisible sans les balises CODES

Maintenant quel est ton problème, l'ecriture à la date du jour ?

Pour l'année par exemple tu peux faire

Code:

Year(Now)
26/05/2009, 11h43
LeForestier
Bonjour,
Je n'ai compris ta demande qu'à moitié mais si c'est pour mettre le fichier dans un autre répertoir...
Code:

1 2 3 Dim Chemin as string Chemin = "C:\ExportationRep\" Open Chemin & "Testfichiercsv2.csv" For Output As #1
Sinon tu dis.
A+

Precise la question

Bonjour,

Precise mieux ta question car c 'est ambigu ....

Pour definir un chemin + un nom generique j'aurai fait comme cela
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub test() Dim sDir As String Dim sFichier As String 'Chemin d 'export sDir = ThisWorkbook.Path & "\Exportation Traitée\" 'Nom du fichier formate ' NomdeFichier_CRI_{Date_du_fichier}.csv ' avec Date_du fichier au format : AAAAMMJJHHMMSS sFichier = "NomDeFichier_CRI_" & Format(Now, "yyyymmddhhnnss") & ".csv" MsgBox sFichier End Sub
J'esperes que cela répond à ta demande sinon apporte plus de précision

:ccool:

26/05/2009, 12h25
mémoinfo

Merci beaucoup à vous tous;
Pour Monsieur Lynx92260;
On faite le code je l'integre dans le code de converstion en .csv ou je crer un autre module?

selon .....

rebonjour meminfo

Bien sur à intégrer les lignes ci-dessous dans le code de conversion si cela convient à vos habitudes de programmation.
Code:

1 2 3 4 5 6 7 8 9 10 Dim sDir As String Dim sFichier As String 'Chemin d 'export sDir = ThisWorkbook.Path & "\Exportation Traitée\" 'Nom du fichier formate ' NomdeFichier_CRI_{Date_du_fichier}.csv ' avec Date_du fichier au format : AAAAMMJJHHMMSS sFichier = "NomDeFichier_CRI_" & Format(Now, "yyyymmddhhnnss") & ".csv"
:ccool:

Pensez à mettre :resolu:

26/05/2009, 12h49
mémoinfo

Merci,je t'ai posé cette question,c'est prcq je trouvé l'erreur au niveau ligne:

Print #1,Ligne

Erreur d'exécution '52':Nom ou numéro de fichier incorrecte

:)
26/05/2009, 13h09
Lynx92260

freefile
Je ne vois pas pourquoi ma proposition de nommage de fichier à déclencher cela n'a rien avoir avec avec l'execution de commande bas niveau de cette instruction Print #1,Ligne

L'erreur vient du fait que le numero 1 n'est pas attribué à l'ouverture du fichier

Pour ma part j'utilise l'attribution comme ci dessous
Code:

1 2 3 4 5 6 7 8 9 10 11 intFic = FreeFile Open "Testfichiercsv2.csv" For Output As intFic ..... Print #intFic, Ligne .... Close #intFic
C'est plus sure .....

:ccool:
26/05/2009, 13h57
mémoinfo

MERCI BEAUCOUP Lynx92260 POUR TON ATTENTION;
Oui pas d'erreur,mais rien enregistre,s'affiche bien la boite de dialogue,mais rien enregistré.
Merci de ton attention :)

On faite,cette ligne faire nommé tjrs mon fichier exporter "Testfichiercsv2" : Open "Testfichiercsv2.csv" For Output As #1
mais moi je veux qui soit nommée THD_CRI_Date_Heure,et l'exporté dans un sous-répertoire de "Export" qui s'appél "Traité"

no comprendo

il me semble que j'ai répondu à ta question

il suffit de remplacer le nom du fichier en dur par la variable à savoir je reprends mon exemple
Code:

1 2 3 4 5 6 7 8 9 10 11 12 sDir = ThisWorkbook.Path & "\Export\Traite\" 'Nom du fichier formate ' NomdeFichier_CRI_{Date_du_fichier}.csv ' avec Date_du fichier au format : AAAAMMJJHHMMSS sFichier = "THD_CRI_" & Format(Now, "yyyymmddhhnnss") & ".csv" intFic = FreeFile Open sFichier For Output As intFic et ton traitement ..... d'export
Mais cela n'est pas du tout clair dans ta demande .....

Voilà :ccool:

26/05/2009, 15h17
mémoinfo

Merci beaucoup Mr Lynx92260;

Il fonctionne très bien, j'ai apporté quelques modification ,mais avec toujours ton principe.

Merci Encore :d