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
Et rien que là, ça marque quand je compile Fonction ou Variable attendue...
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)
Si tout se passait bien (je voudrais rajouter ça au bout du code) :
Avez-vous une petite idée ?
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
Merci d'avance
Vincent
Partager