none
Projet Classeur Excel 2016 erreur lors d'un copier Coller RRS feed

  • Question

  • Bonjour ,dans un projet de classeur Excel 2016 en VB, j'exécute un code qui me permet d'ouvrir un classeur Excel (Trame) pour venir y coller des données de l'application.

    Le code copie les données de la Feuil9 du classeur de l'application, ouvre le classeur Trame et colle les données.

    J'obtient une erreur que je ne comprends pas trop, d'autant que j'utilise le même code sur une autre Feuil pour coller des données sur un autre classeur Trame et la tout fonctionne parfaitement.

    Voici le code et l'erreur obtenue :

        Private Sub AlSaveBtn_Click(sender As Object, e As EventArgs) Handles AlSaveBtn.Click
            NamedRange5.Copy()
            Dim AlBook As Workbook = Application.Workbooks.Open("C:\Dropbox\Abattoirs des Crêts\Congélation\Alertes T°C\Trame.xlsx")
            Dim AlSheet As Worksheet = AlBook.Sheets(1)
            AlSheet.Range("A1").Select()
            AlSheet.Paste()
            AlSheet.Range("A1").Select()
            AlBook.SaveAs("C:\Dropbox\Abattoirs des Crêts\Congélation\Alertes T°C\" & Date.Now.ToString(" dd.MM.yyyy") & ".xlsx")
            AlBook.Close()
            AlSaveBtn.Enabled = False
            AlSaveBtn.BackColor = Color.GhostWhite
            AlSaveBtn.Text = ("-")
            SendAlBtn.Enabled = True
        End Sub

     

    JF Collombet ® CreateSpecificCulture

    mercredi 11 novembre 2015 12:43

Réponses

Toutes les réponses