Répertoire courant macro VBA et Save as

**mattchoco** · 16/08/2013, 19h33

Bonjour tout le monde.

Je reviens pour une petite question.

J'ai un fichier excel CLASS1.xls contenant plusieurs macro, fichier qui est amené à etre balladé de dossier en dossier.

Les macros de ce fichiers traite des fichiers csv à la base.

Mes macros sont développés et tournent correctement , MAIS elle ne tournent que sur les formats xls. Ils faut donc que j'automatise également la conversion csv->xls.

J'ai un petit code qui va bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs , FileFormat:=xlNormal, CreateBackup:=False, local:=True

mais voilà , je n'arrive pas à paramétrer le répértoire courant. Les fichiers sont enregistrés dans "MesDocumetns"

quel petit code, au plus simple, pourrais je mettre en début de ma page de macro , pour que, quel que soit le dossier de travail, la conversion de fichier enregistre les fichiers dans le dossier ou la feuille CLASS1.xls est !

je ne m'en sort pas des chdir et autre application.currentproject.path.

par quel bout puis-je m'y prendre?

d'avance merci

**parmi** · 16/08/2013, 19h54

Je ne suis pas certain de bien comprendre, mais il y a

Chemin du programme maître

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Thisworkbook.path

ou
Chemin du fichier actif

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activeworkbook.path

**casefayere** · 16/08/2013, 19h56

Moi non plus, je ne suis pas certain de comprendre, mais essayes ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim chemin As String
chemin = ActiveWorkbook.Path
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
  chemin & "\" & ActiveWorkbook.Name, CreateBackup:=False
Application.DisplayAlerts = True

**mattchoco** · 17/08/2013, 09h27

bonjour ,

merci pour vos réponses.

J'ai repris et adapté le code ci dessus et en le complétant un peu ça me donne ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveWorkbook.SaveAs Filename:=chemin & "\" & ActiveWorkbook.Name, FileFormat:=xlNormal, CreateBackup:=False
Application.DisplayAlerts = True

le changement de répertoire est bon, mais ça m'enregistre un nouveau CSV.

du moins l'extension est en csv parceque les valeurs à l'intérieur sont modifiés.

le cellule qui contient 0,002948 devient 002948;0.

en fait je m'y prend peut etre mal mais j'aiemrais que cette virgule ( 0,002948) soit remplacé par un point(0.002948) pour pouvoir faire des opérations sur ces valeurs.

Je pensais enregistrer le csv en xls pour résoudre ce problème, mais ça ne marche point apparement..

**casefayere** · 17/08/2013, 11h20

Bonjour à tou(te)s, mattchoco

Ne connaissant pas ton fichier, peut-être que tu pourras adapter cette proposition

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
Dim Tb, x As Long, y As Long
Dim chemin As String
With Sheets("nom de ta feuille")
  'je passe par une variable tableau (plus rapide) car je ne
  'connais pas la taille de ta feuille
  Tb = .Range("A2").CurrentRegion
  'en admettant que tes colonnes C et D contiennent des chiffres
  'la ligne 1 contient les entêtes
  .Range("C2:C" & UBound(Tb, 1)).NumberFormat = "0.00"
  .Range("D2:D" & UBound(Tb, 1)).NumberFormat = "0.00"
 
  For x = 2 To UBound(Tb, 1)
    For y = 3 To 4
      Tb(x, y) = Replace(Tb(x, y), ",", ".")
    Next y
  Next x
  .Range("A1").Resize(UBound(Tb, 1), UBound(Tb, 2)) = Tb 'Application.Transpose(Tb)
End With
chemin = ActiveWorkbook.Path
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
  chemin & "\" & ActiveWorkbook.Name, CreateBackup:=False
Application.DisplayAlerts = True

**mattchoco** · 17/08/2013, 11h24

bonjour,

merci pour ce retour rapidede.

cette solution me réenregistre un.csv?

ici on procède par itération, n'y a-t-il pas une fonction qui change tout d'un coup?

**casefayere** · 17/08/2013, 11h28

Re,

je pensais que tu travaillais sur ton fichier excel, au départ

J'ai un fichier excel CLASS1.xls...

sinon, il faut adapter cette partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveWorkbook.SaveAs Filename:= _
  chemin & "\" & ActiveWorkbook.Name, CreateBackup:=False

**mattchoco** · 17/08/2013, 11h42

alors en fait oui, j'ai un fichier excel dans lequel j'ai toutes mes macros de traitement.

et je vais aller appliquer ces macros sur des fichiers qui sont eux en CSV.

donc il faut que je fasse un import de données de ces csv vers un xls, et c'est là ou les questions de formats me mettent tout en carafe.

**casefayere** · 17/08/2013, 12h02

D'abord, précise ta version Excel
Ensuite,
J'essaie de comprendre, tu as donc (d'après ce que tu dis)

- au départ, un fichier Excel acceptant les macros
- tu transfères les données vers un fichier csv
- tu reprends ce fichier csv et le traduis en Xls
Alors, je réponds, pourquoi faire ?, pourquoi ne pas enregistrer le xlsm en xlsx

Mais donnes déjà ta version Excel

**casefayere** · 17/08/2013, 12h27

Envoyé par Marc-L

Bonjour,

au passage, FileFormat:=xlNormal n'est pas du tout un fichier .csv ‼

Tu as raison, mais je cherche à comprendre d'où mon dernier post

**mattchoco** · 17/08/2013, 12h27

j'arrive à un résultat pas trop mal meme si le paramétrage est pas facile à maitriser.

par contre, impossible à enregistrer en .xls, j'ai ajouter le" fileformat:=xlNormal" à ton code précédent,

il enregistre bien le fichier en xls mais reste avec l'extension .csv; c'est à rien n'y comprendre..

**casefayere** · 17/08/2013, 12h35

tu ne donnes toujours pas ta version Excel, sinon essayes ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
...
ActiveWorkbook.SaveAs Filename:=chemin & "\" & Split(ActiveWorkbook.Name, ".")(0) & ".xls", CreateBackup:=False
...

**mattchoco** · 17/08/2013, 12h39

Envoyé par casefayere

D'abord, précise ta version Excel
Ensuite,
J'essaie de comprendre, tu as donc (d'après ce que tu dis)

- au départ, un fichier Excel acceptant les macros
- tu transfères les données vers un fichier csv
- tu reprends ce fichier csv et le traduis en Xls
Alors, je réponds, pourquoi faire ?, pourquoi ne pas enregistrer le xlsm en xlsx

Mais donnes déjà ta version Excel

c'est pas facile d'etre clair... faut dire que c'est pas non plus la manip la plus simple.

je suis en excel 2010.

- au départ j'ai plusieurs dossiers différents avec des fichiers .csv à traiter
- j'ai crée un fichier .xls universel pour traiter ces données.
-ce fichier xls va etre amené à être copié collé dans chacun dossier pour traiter les csv
- ce fichier xls a des macro qui font les choses suivantes :
---import de plage de données des CSV vers des feuille du xls
---traitement des données importées dans le xls

le soucis est que les données des CSV sont en 0,002, il faut donc que je remplace cette "," par un "." à un moment ou à un autre , pour pouvoir appliquer mes macros de traitement.

[EDIT] nos réponses se sont croisées

Envoyé par Marc-L

Bonjour,

au passage, FileFormat:=xlNormal n'est pas du tout un fichier .csv ‼

c'est bien pour ça que j'essaie de l'utiliser .... je ne veux pas de fichier .csv..

!!!

**casefayere** · 17/08/2013, 12h47

As-tu regardé mon post #13 ?

**mattchoco** · 17/08/2013, 12h51

oui merci.

je suis en train de tester.

je suis aussi en trin me de dire que je donne un coup d'épée dans l'eau là.

si mon seul problème avec le csv c'est le "," à la place du "." , je peut peut etre juste transformer les données à l'intérieur des csv et continuer à travailler en csv non?

auquel cas je pourrais scinder ma macro du xls de cette manière :

- ouverture du csv, remplacement des "," par des ".", fermeture et enregistrement.

-import des données du csv dans le xls

-fermeture du csv

-traitement des données en interne dans le xls..

c'est sans doute le plus simple quand penses tu?

**casefayere** · 17/08/2013, 13h19

Tu peux toujours essayer, perso je n'ai jamais eu l'occasion de travailler sur des csv à partir d'une macro Excel

**mattchoco** · 17/08/2013, 13h56

ben c'est pas brillant effectivement, ça me met des virgules un peu partout..

tu pense que des transfo sur et dans des csv à partir de xls ce n'est pas possible?

**casefayere** · 17/08/2013, 14h18

ben c'est pas brillant effectivement, ça me met des virgules un peu partout..

as-tu adapté ma proposition correctement ?

tu pense que des transfo sur et dans des csv à partir de xls ce n'est pas possible?

si mais il faudrait que je me penche dessus sérieusement, et comme je viens de dire dans un autre post, je suis obligé de partir et ne pourrai pas regarder avant demain

**mattchoco** · 17/08/2013, 14h23

alors, cette macro marche très bien lorsqu'elle est dans le fichier csv et qu'elle traite le fichier ou elle est.

lorsque je la lance à partir d'un fichier en .xls, son fonctionnement est plus que perturbé. des ";" et des "." apparaissent de manière aléatoire. ( voir plus bas)

quelqu'un connaitrait il la parade?

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
Sub IMPORT_Bouton2_Cliquer()
 
 
Dim Tb, x As Long, y As Long
Dim chemin As String
chemin = ActiveWorkbook.Path
 
Workbooks.Open Filename:="C:\Users\" & "bubu" & ".csv"
 
With Sheets("bubu")
 
  Tb = .Range("A1").CurrentRegion
 
  .Range("B51:F" & UBound(Tb, 1)).NumberFormat = "0.000"
  .Range("A51:A" & UBound(Tb, 1)).NumberFormat = "0"
 
  For x = 1 To UBound(Tb, 1)
    For y = 1 To 4
      Tb(x, y) = Replace(Tb(x, y), ",", ".")
    Next y
  Next x
 
 .Range("A1").Resize(UBound(Tb, 1), UBound(Tb, 2)) = Tb 
End With
chemin = ActiveWorkbook.Path
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
  chemin & "\" & ActiveWorkbook.Name, CreateBackup:=False
Application.DisplayAlerts = True
 
 
 
 
End Sub

Number Used Result Types;3;;

Number Values;2029;2029;2029
Freq ;Value ; Value ; Value
100000;0 002948;0 002948;0 2948.000
104882 8125;0 002468;0 002468;0 2468.000
109765 625;0 001729;0 001729;0 1729.000

**mattchoco** · 17/08/2013, 14h24

Envoyé par casefayere

as-tu adapté ma proposition correctement ?

si mais il faudrait que je me penche dessus sérieusement, et comme je viens de dire dans un autre post, je suis obligé de partir et ne pourrai pas regarder avant demain

pas de soucis;

bonne journée et merci. a demain

Répertoire courant macro VBA et Save as [XL-2010]

Macros et VBA Excel

Discussions similaires

Partager

Partager