Erreur 438, transfert de données vers classeur externe

Résolu/Fermé
MrLafa Messages postés 9 Date d'inscription vendredi 3 mars 2017 Statut Membre Dernière intervention 6 mars 2017 - 3 mars 2017 à 18:52
MrLafa Messages postés 9 Date d'inscription vendredi 3 mars 2017 Statut Membre Dernière intervention 6 mars 2017 - 3 mars 2017 à 19:12
Bonjour,

Je développe actuellement un petit programme via un userform sur excel (office 2016).
Les infos renseignées dans ce userform seront transférées dans un classeur externe

Je n'arrive pas malgré divers essais à déclarer mes variables, une erreur "438 Propriété ou méthode non géré par cet objet" apparaît

Quelqu'un pourrait il m'aiguiller?

    'Chemin base de donnée
Workbooks.Open ("C:\Users\kentin\Desktop\Fiche NC\BDD_en_cours.xlsx")

Application.Wait Now + TimeValue("0:00:03")

'feuille BDD
vaBDD = Workbooks("BDD_en_cours").Sheets("BDD")

'feuille maquette NC
MNC = Workbooks("BDD_en_cours").Sheets("Maquette NC")

'Premiere Ligne vide
PLV = vaBDD.Range("bf1").End(xlDown).Offset(1, 0).Row

'Derniere Ligne Plein
DLP = vaBDD.Range("bf1").End(xlDown).Row


Merci par avance
A voir également:

2 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
3 mars 2017 à 19:03
Bonjour,

pour chaque variable faire comme suit

    'feuille BDD
    Dim vaBDD As Worksheet
    Set vaBDD = Workbooks("BDD_en_cours").Sheets("BDD")
1
MrLafa Messages postés 9 Date d'inscription vendredi 3 mars 2017 Statut Membre Dernière intervention 6 mars 2017
3 mars 2017 à 19:12
Génial!

Merci beaucoup!
0