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

Question

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.

yg_be · Answer

bonjour, peux-tu partager ton fichier?

yg_be · Answer

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.

yg_be · Answer

as-tu progressé?

Extraction données / erreur d’exécution Autofill

3 réponses

Discussions similaires