Bonjour,

Je dois faire un traitement super simple... J'ai un fichier .CSV (séparateur ; - pas de caractères " au bout des chaines et il peut y avoir plusieurs ; consécutifs) dans lequel je veux insérer 4 colonnes vide entre E:E et F:F !

Et je coince bêtement parce que c'est un fichier .CSV

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim sNOM As String
Dim objWKB As Excel.Workbooks
Dim objSHT As Excel.Worksheet
 
sNOM = "C:\1738.csv"
 
Set objWKB = Application.Workbooks.OpenText(sNOM, SemiColumn:=True)
Et rien que là, ça marque quand je compile Fonction ou Variable attendue...

Si tout se passait bien (je voudrais rajouter ça au bout du code) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
    Set objSHT = objWKB.Sheets(1)
    objSHT.Activate
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Application.DisplayAlerts = False
    objWKB.Save
    objWKB.Close
Avez-vous une petite idée ?

Merci d'avance

Vincent