Bonjour,
je viens de basculer de Excel 2010 à office 365 et je me retrouve bloquée sur une macro qui n'arrive plus à enregistrer un fichier excel en format CSV (cela fonctionnait très bien avant la bascule).
J'ai cherché sur le forum apparemment cela pourrait être un problème de séparateurs , avec office et ; avec excel 2010 mais je n'arrive pas à trouver de solution. Pouvez vous m'aider ?

Merci d'avance.

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
'Générer le fichier csv qui sera intégré dans Sage - MACRO DEFINITIVE
 
Sub Generer_fichier_csv()
'
' Generer_fichier_csv Macro
'
 
    Dim chemin As Variant
    Dim nom_fichier_csv As Variant
    Dim nom_fichier_travail As Variant
 
'Definition des variables
    Sheets("Parametres").Select
    Range("chemin").Select
    chemin = ActiveCell.Value
    Range("nom_fichier_csv").Select
    nom_fichier_csv = ActiveCell.Value
    Range("nom_fichier_travail").Select
    nom_fichier_travail = ActiveCell.Value
 
 
 
'Créer un nouveau fichier à enregistrer au format csv
 
    Workbooks.Add
    ChDir _
        chemin
    ActiveWorkbook.SaveAs Filename:= _
        chemin & nom_fichier_csv _
        , FileFormat:=xlCSV, CreateBackup:=False, local:=True
    Application.DisplayAlerts = False
    Application.DisplayAlerts = True
 
    Windows(nom_fichier_travail).Activate
    Sheets("Import").Select
    Range("B1:AA1").Select
    Selection.Copy
    Windows(nom_fichier_csv).Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Windows(nom_fichier_travail).Activate
    Sheets("Import").Select
    Range("C3").Select
    Selection.End(xlDown).Select
    num_ligne_plage = ActiveCell.Row
    Range("C3:AA" & num_ligne_plage).Select
    Selection.Copy
    Windows(nom_fichier_csv).Activate
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A1").Select
 
   ActiveWorkbook.SaveAs local:=True
   Application.DisplayAlerts = False
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
 
    Windows(nom_fichier_travail).Activate
    Sheets("Parametres").Select
    ActiveWorkbook.Save