Discussion :

[manguigs]

Bonsoir Tous

je manipule1 fichier via une application access
je convertis un fichier excel en txt via 1 click sur mon bouton.
cependant je veux supprimer des colonnes(inutiles) avant de l'exportation en txt.
je vous soumet mon code

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
Option Compare Database
 
Private Sub Commande5_Click()
Dim oApp As Excel.Application
Dim oWb As Excel.Workbook
 Set oApp = New Excel.Application
Set oWb = oApp.Workbooks.Open("c:\monfichier.xlsx")
oWb.co
oWb.SaveAs "C:\monclasseur.txt", Excel.xlTextWindows
 
oWb.Close False
oApp.Quit
Set oWb = Nothing
Set oApp = Nothing
End Sub

Merci pour 1 coup de main

[Jean-Philippe André]

Salut,

exemple de syntaxe pour supprimer une colonne en VBA :

Code :

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

Range("A1").EntireColumn.Delete