Menu

Extraction données / erreur d’exécution Autofill [Résolu]

Boriserge 4 Messages postés mardi 2 janvier 2018Date d'inscription 11 avril 2018 Dernière intervention - 2 janv. 2018 à 16:10 - Dernière réponse : yg_be 5777 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 16 juin 2018 Dernière intervention
- 10 avril 2018 à 20:45
Bonjour,

Je réalise des extraction de données à partir d'un logiciel,
Je dois réaliser des extractions mois par mois en entrant une plage de date ( date début / date fin )
A partir d'une certaine date l'extraction ne fonctionne plus et le message d'erreur suivant s'affiche :

"Erreur d'execution '1004'

La méthode Autofill de la classe Range a échoué."

Je suis débutant sur VBA et j'utilise un fichier que je ne n'ai pas créé.

La partie qui semble poser problème est la suivante :

Public Sub LoadDataFromBPCS() 

    BPCS.Range("B7").ListObject.QueryTable.Refresh BackgroundQuery:=False 
    Dim ws As Worksheet 
    Set ws = Sheets("Exped_BPCS") 
    Dim nbLignes As Integer 
    nbLignes = ws.Range("tab_BPCS").Rows.Count 
    ws.Range(ws.Cells(7, 10), ws.Cells(7, 10)).AutoFill Destination:=ws.Range(ws.Cells(7, 10), ws.Cells(nbLignes + 7, 10)) 
    
        
    Lison.Select 
    If LoadDataReplace Then Call Analysis.GenerateAnalysis 

End Sub 


Merci d'avance pour votre aide.
Afficher la suite 

Votre réponse

3 réponses

yg_be 5777 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 16 juin 2018 Dernière intervention - 2 janv. 2018 à 16:18
0
Merci
bonjour, peux-tu partager ton fichier?
Commenter la réponse de yg_be
yg_be 5777 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 16 juin 2018 Dernière intervention - 2 janv. 2018 à 16:26
0
Merci
tu peux probablement éviter le message d'erreur en remplaçant
ws.Range(ws.Cells(7, 10), ws.Cells(7, 10)).AutoFill destination:=ws.Range(ws.Cells(7, 10), ws.Cells(nbLignes + 7, 10))

par
    If nbLignes > 0 Then
        ws.Range(ws.Cells(7, 10), ws.Cells(7, 10)).AutoFill destination:=ws.Range(ws.Cells(7, 10), ws.Cells(nbLignes + 7, 10))
    End If

je ne sais pas si l'ensemble va bien fonctionner.
Commenter la réponse de yg_be
yg_be 5777 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 16 juin 2018 Dernière intervention - 10 avril 2018 à 20:45
0
Merci
as-tu progressé?
Commenter la réponse de yg_be