Sujet Précédent Sujet Suivant

Listvieux to excel

dolsky Messages postés 18 Date d'inscription vendredi 30 novembre 2007 Statut Membre Dernière intervention 28 janvier 2011 - 26 déc. 2008 à 16:09
dolsky Messages postés 18 Date d'inscription vendredi 30 novembre 2007 Statut Membre Dernière intervention 28 janvier 2011 - 30 déc. 2008 à 13:04

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.

A voir également:

Listvieux to excel
Tan-1 excel - Forum C++ & C++ .NET
Excel vba modulo - Forum Visual Basic
Arctangente excel ✓ - Forum Visual Basic 6
Excel gmao - Forum Visual Basic 6
C# string to int ✓ - Forum C# / .NET

3 réponses

Réponse 1 / 3

cs_fauve Messages postés 661 Date d'inscription vendredi 2 décembre 2005 Statut Membre Dernière intervention 23 mars 2011 8
27 déc. 2008 à 19:11

Réponse 2 / 3

cs_fauve Messages postés 661 Date d'inscription vendredi 2 décembre 2005 Statut Membre Dernière intervention 23 mars 2011 8
27 déc. 2008 à 19:18

Voici le même code que le tien mais amélioré :

<hr size= "2" width="100%" />

Sub
Sauvegarde()

     Dim FNXLS As String
     Dim creobjexcel As Object
     Dim classeurxls As Object
     Dim feuixls As Object
     Dim list As ListViewItem

     SaveFileDialog1.Filter = "Fichier excel |*.xls "

     ' On définit le répertoire qui va s'afficher à l'affichage de
     ' SaveFileDialog1 (ici, celui de l'application)
     SaveFileDialog1.InitialDirectory = My .Application.Info.DirectoryPath

     Do
          ' On teste si l'utilisateur a cliqué sur Annuler
          If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.Cancel Then
               ' Si c'est le cas on annule l'enregistrement en quittant Sauvegarde()
               Exit Sub
          End If

          ' On teste si l'utilisateur est resté dans le répertoire de l'application
          If System.IO.Path.GetDirectoryName(SaveFileDialog1.FileName) <> My.Application.Info.DirectoryPath Then
               ' On affiche un message si c'est pas le cas
               MsgBox("Vous ne pouvez enregistrer que dans le répertoire de l'application")
          End If

          ' On affiche SaveFileDialog1 jusqu'à tant que l'utilisateur choisisse
          ' d'enregistrer dans le répertoire de l'application
     Loop Until System.IO.Path.GetDirectoryName(SaveFileDialog1.FileName) = My .Application.Info.DirectoryPath

     FNXLS = 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
               .columns(i + 1 ).ColumnWidth = 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.SaveAs(FNXLS)

End Sub

<hr size ="2" width="100%" />
++

Fauve

<hr size="2" width="100%" />
Pensez : Réponse Acceptée

Réponse 3 / 3

dolsky Messages postés 18 Date d'inscription vendredi 30 novembre 2007 Statut Membre Dernière intervention 28 janvier 2011
30 déc. 2008 à 13:04

Merci pour ton aide..
J'ai réussi à résoudre mon problème en mettant juste: classeurxls.SaveCopyAs(SaveFileDialog1.FileName)

Pour ta solution, elle est bien sauf que je ne souhaite pas obligé l'utilisateur à enregistrer son fichier dans le répertoire d'application il peut l'enregistrer dans l'emplacement choisit.

Merci une autre fois.

Si tu as des exercices à me fourninr ou un site vers lequel tu peux m'orieneter je serai très reconnaissant...

Discussions similaires

EXCEL, faire l'inverse tangente atan pour avoir une valeur en degré minute

Calcul sur excel de l'inverse tangente en grade

Les fonctions " racines niemmes " et " arctan "et "arccos " et "arcsin"

[Visual C++] Comment convertir un CString en char* ?

maudite Arctangente

Votre réponse

Discussions similaires