IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Définition d'un objet Range lève une erreur 1004 "La méthode Range de l'objet _Worksheet a échoué" [XL-2003]


Sujet :

Macros et VBA Excel

  1. #1
    Membre habitué
    Homme Profil pro
    Back Office Marchés
    Inscrit en
    Mars 2011
    Messages
    65
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Back Office Marchés
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2011
    Messages : 65
    Points : 139
    Points
    139
    Par défaut Définition d'un objet Range lève une erreur 1004 "La méthode Range de l'objet _Worksheet a échoué"
    Bonjour à tous,

    Je suis en train de criser dans mon coin sur une ligne de code toute bête que j'ai utilisé des centaines de fois, qui, aujourd'hui, n'a pas l'heur de fonctionner...
    Le programme rajoute des lignes d'un classeur source (opérations validées) sur un autre (GlobalVolume). Je passe par une variable tableau pour copier les informations qui m'intéressent dans le classeur cible.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
     
    Dim wbGlobalVolume As Workbook, wbClasseurBDD As Workbook
    Dim wsBDD As Worksheet, wsVolumeDoc As Worksheet, wsHistoStatutDoc As Worksheet, wsNew As Worksheet
    Dim rgePlage As Range, rgeEventDate As Range, rgeDernEventDate As Range, rgeDest As Range, rgeCopie As Range, _
    rgePlageNew As Range
     
    Dim bytDerCol As Byte
    Dim strFichierBDD As String, strMiroir As String
    Dim dteEventDate As Date, dteDernEventDate As Date
    Dim lngDerLigne As Long, i As Long, j As Long
     
    Dim TabBDD() As Variant, TabEOV() As Variant
     
    Set wbGlobalVolume = ThisWorkbook
        Set wsVolumeDoc = wbGlobalVolume.Sheets("VolumeDoc")
     
    Set wbClasseurBDD = Workbooks.Open(CHEMIN + strFichierBDD)
        Set wsBDD = wbClasseurBDD.Sheets(1)
     
    Set wsNew = wbGlobalVolume.Sheets.Add
        wsNew.Name = "NouvellesOpés"
    ...
    'copie les nouvelles opés dans un tableau
    Set rgePlageNew = wsNew.UsedRange
        ReDim TabEOV(1 To rgePlageNew.Rows.Count, 1 To rgePlageNew.Columns.Count)
            TabEOV = rgePlageNew.Value
    'colle les nouvelles opés dans VolumeDoc
    Set rgePlage = wsVolumeDoc.UsedRange
        lngDerLigne = rgePlage.Rows.Count
            bytDerCol = rgePlage.Columns.Count
    'copie les formats de la dernière ligne sur la  plage ajoutée qui correspond aux nouvelles opérations       
    Set rgeCopie = wsVolumeDoc.Range(Cells(lngDerLigne, 1), Cells(lngDerLigne, bytDerCol))
        rgeCopie.Copy
    ...
    Et là je me récupère une erreur 1004... Or, mon objet worksheet est défini, et le Range n'a rien de sorcier, il s'agit juste de la dernière ligne remplie de l'onglet VolumeDoc du classeur GlobalVolume...

    Quelqu'un a une idée ? Merci d'avance pour votre aide.

    Guillaume

  2. #2
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 379
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 379
    Points : 12 073
    Points
    12 073
    Billets dans le blog
    8
    Par défaut une erreur parmis tant d'autre
    Bonjour
    déjà ta méthode génère une erreur qui ne sera pas révélée
    ceci:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Set rgePlage = wsVolumeDoc.UsedRange
        lngDerLigne = rgePlage.Rows.Count
            bytDerCol = rgePlage.Columns.Count
    te donne le nombre de ligne contenu dans ta plage mais si ta plage commence pas en A1 c'est donc faux et pareil pour les colonnes

    sert toi de .end(xlup).rows sur la colonne de ton choix
    commence déjà par ca on verra après je regarderais demain de plus près
    ensuite

    il y a une autre méthode pour ce genre de travail a tu déjà entendu parler des variables tableaux
    si non fait une petite recherche
    a plus tard
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  3. #3
    Expert éminent sénior Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Points : 31 877
    Points
    31 877
    Par défaut
    A première vue, une erreur basique et récurrente à la ligne 32 de l'extrait de code que tu montre.

    Il fallait indiquer la feuille à laquelle se rapportent les Cells à l'intérieur du Range

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set rgeCopie = wsVolumeDoc.Range(wsVolumeDoc.Cells(lngDerLigne, 1), wsVolumeDoc.Cells(lngDerLigne, bytDerCol))
    PS. Personnellement, j'aime utiliser Resize (qui permet une simplification notoire)

    La même ligne sera
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set rgeCopie = wsVolumeDoc.Cells(lngDerLigne, 1).Resize(, bytDerCol)
    Cordialement.
    J'utilise toujours le point comme séparateur décimal dans mes tests.

  4. #4
    Membre habitué
    Homme Profil pro
    Back Office Marchés
    Inscrit en
    Mars 2011
    Messages
    65
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Back Office Marchés
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2011
    Messages : 65
    Points : 139
    Points
    139
    Par défaut Merci !!!
    @Patricktoulon : Merci pour ta remarque. Le fichier en question n'a pas ce problème, mais j'en tiendrais compte pour de futurs développements.

    @Mercatog : Un grand Merci !!! Ta solution fonctionne et j'ai repris la syntaxe avec Resize qui effectivement allège le code et sa compréhension. C'est une méthode que je n'utilisais pas beaucoup jusqu'ici.

    Merci encore pour votre réactivité.

    Cordialement,

    Guillaume.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 1
    Dernier message: 07/10/2011, 17h27
  2. [XL-2003] PivotTable.SourceData génére une erreur 1004 ?
    Par marot_r dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 01/09/2011, 15h24
  3. j'ai une erreur 1004 avec mon vba ?
    Par isodoro dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 06/03/2009, 11h13
  4. Réponses: 11
    Dernier message: 19/08/2008, 16h24
  5. Plage de données : Range vs Cells : Erreur 1004
    Par Secco dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 10/06/2008, 18h29

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo