Importer une listvieux vers excel
Bonjour,
J'ai crée une procédure qui me permet de sauvegarder le contenu d'une listvieux dans un fichier Exel. Je rencontre actuellement deux soucis:
1 la sauvegarde du fichier ne se fait dans le fichier indiqué en utilisant le savedialog. il enregistre par défaut dans mes docuement avec le nom classurX. xls.
Comment forcer m'enregistrement dans l'emplacement choisit et avec le nom affecté
Voici mon programme:
Dim r, retour As Integer
Dim S, FNXLS As String
Dim creobjexcel As Object
Dim classeurxls As Object
Dim feuixls As Object
Dim list As ListViewItem
SaveFileDialog1.Filter = "Fichier excel |*.xls "
S = Application.StartupPath
retour = SaveFileDialog1.ShowDialog
FNXLS = S & SaveFileDialog1.FileName
creobjexcel = CreateObject("Excel.Application")
classeurxls = creobjexcel.Workbooks.Add
feuixls = creobjexcel.worksheets(1)
With feuixls
For i As Integer = 0 To ListView1.Columns.Count - 1
.cells(1, i + 1) = ListView1.Columns(i).Text
feuixls.columns(i + 1).columns = ListView1.Columns(i).Width / 4
Next
Dim lig, col As Integer
For lig = 0 To ListView1.Items.Count - 1
list = ListView1.Items(lig)
For col = 0 To ListView1.Columns.Count - 1
.cells(lig + 3, col + 1) = list.SubItems(col).Text
Next
Next
End With
feuixls.rows(1).font.bold() = True
feuixls.PageSetup.LeftMargin = 0.393700787401575
feuixls.PageSetup.RightMargin = 0.393700787401575
feuixls.PageSetup.TopMargin = 0.393700787401575
feuixls.PageSetup.BottomMargin = 0.393700787401575
feuixls.pagesetup.printgridlines = True ' Afficher le quadrillage sur la feuille
feuixls.PageSetup.CenterHorizontally = True
classeurxls.save()
If retour = 1 Then
End If
End Sub
2emme pro:
l'enregistrement se fait correctement mais dans le fichier XLS les nom de la colone listvieux ne sont pas enregistré. J'ai juste des Numéro.
Merci pour l'aide.
