Projet Classeur Excel 2016 erreur lors d'un copier Coller

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

Answer 1

Bonjour, jeffcollombet,

Pourriez-vous spécifier le nom d’espace Excel dans les Imports parce qu’il y en a deux ( Microsoft.Office.Interop.Excel et Microsoft.Office.Tools.Excel ):

       Imports Excel = Microsoft.Office.Interop.Excel

       'ensuite:
       Dim AlBook As Excel.Workbook = ...
       Dim AlSheet As Excel.Worksheet = AlBook.Sheets(1)

Merci de nous tenir au courant.

Cordialement,
Dimitar

Answer 2

J'ai honte de moi.... carrément oublié l'import Interop.Excel sur cette feuille!!

Merci encore

---

JF Collombet ® CreateSpecificCulture