none
Copier feuille Excel vers un autre classeur avec même format RRS feed

  • Question

  • Bonjour j'avais posté un thread il y à quelques jours dans lequel je demandais comment copier une feuille Excel vers un nouveau classeur. Grace à votre aide j'ai eu la solution.(merci encore)

    Seulement il reste à petit soucis à régler, comme vous le voyer dans la capture d'écran ci-jointe(qui représente ma feuille Excel d'origine) , la colonne A est plus grande que les autres et lorsque que je copie cette feuille la colonne toutes les colonnes sont de même taille sur le nouveau classeur.

    Comment faire pour que les colonnes et lignes de la copie soient de même taille que l'originale?

    Voici mon code pour copier coller ainsi que ma feuille Excel d'origine:

       Private Sub SaveBtn_Click(sender As Object, e As EventArgs) Handles SaveBtn.Click
    
            NameRanged3.Copy()
            Dim NewBook As Excel.Workbook = Application.Workbooks.Add()
            Dim NewSheet As Excel.Worksheet = NewBook.Sheets(1)
            NewSheet.PasteSpecial()
            NewBook.SaveAs("C:\Dropbox\Abattoirs des Crêts\Congélation\Entrées en stock journalières\" & Date.Now.ToString("dd.MM.yyyy") & ".xlsx")
            NewBook.Close()
            NameRanged4.ClearContents()
    
        End Sub


    JF Collombet ® CreateSpecificCulture

    jeudi 15 octobre 2015 12:30

Réponses