Enregistrer un fichier en .csv tout en conservant les colonnes XL
Bonjour,
Avec un collègue, nous avons réussit à créer une macro qui nous satisfait. Seul problème, quand on ré ouvre les fichiers qu'on a crée, ils n'apparaissent pas comme on le souhaiterait.
Voici ce qu'on obtient :
et on voudrait ceci :
Une séparation par colonne.
Voici ce que l'on a écrit :
Sub MAJ_CSV()
Sheets("macro").Select
chemin = Range("H1")
imin = Range("D1")
imax = Range("F1")
Set ZONE = Range("A4:Z50")
For i = imin To imax
fich = ZONE(i, 2)
ongl = ZONE(i, 3)
col1 = ZONE(i, 4)
col2 = ZONE(i, 5)
lig1 = ZONE(i, 6)
lig2 = ZONE(i, 7)
Workbooks.Open Filename:=chemin & fich
Range("A2:F100").ClearContents
Windows("Test.xlsm").Activate
Sheets(ongl).Select
Range(col1 & lig1 & ":" & col2 & lig2).Select
Selection.Copy
Windows(fich).Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close (False)
Sheets("macro").Select
Range("A1") = i
Next i
Sheets("macro").Select
MsgBox ("macro terminée")
End Sub
Nous avons fait de nombreux ... très nombreux essais. Et comme c'était toujours au moment de la sauvegarde que ça "tournait mal" on s'est dit qu'on allait reprendre les fichiers du mois précédents et coller les données du mois en cours dedans ... pour contourner le problème ... mais ça ne fonctionne toujours pas ...
En fait, je ne sais même pas si c'est réalisable par le biais d'une macro ... car quand on le fait manuellement (pas à pas) ... pas de problème ...
D'avance merci à tous pour votre aide