Discussion :

[acbdev]

Bonjour,

A partir d'un projet ASP.net destiné à un intranet, j'ouvre, je mets les données d'un dataset, j'enregistre, je ferme mon fichier excel présent sur le serveur.

Mais je n'ai pas réussie à supprimer une colonne.

Code :

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

1
2
3
4
5
6
7
8
 
Dim exBook = ExApp.Workbooks
Dim exc = exBook.Open("C:\Mes documents\Visual Studio 2008\Projects\PRODWO\PRODWO_SOL\PRODWO\export\ListeOF.xls")
Dim excwk = exc.Worksheets().Application
Dim rng As Object
rng = excwk.Range("H:H").Select
 
excwk.Columns.Delete(rng)

J'ai rempli la ligne 1 sur plusieurs colonnes pour vérifier.
Ce code fonctionne sauf qu'il m'efface tout ce que j'ai rempli.

D'autre part,j'aimerai utiliser un N° de colonne à la place de "H:H"

Est-ce que quelqu'un a une idée en VB ?
svp merci

[acbdev]

Code :

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

rng = excwk.Range("H:H").Delete

fonctionne

mais

Code :

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

rng = excwk.Range(1, 8).EntireColumn.Delete

ne fonctionne pas

[acbdev]

Code :

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

rng = excwk.Range("H1").EntireColumn.Delete

fonctionne

Comment puis-je remplacer la colonne 'H' par colonne '8' ?
sans passer par une conversion, bien sûr...