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

Résolu
Boriserge Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
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.
A voir également:

3 réponses

Réponse 1 / 3
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour, peux-tu partager ton fichier?
0
Réponse 2 / 3
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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.
0
Réponse 3 / 3
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
as-tu progressé?
0

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
[Excel] Méthode Autofill dans une macro
Arn's -
pijaku -

2 réponses
Code erreur 3000
Laurent -
JM -

5 réponses
Panne T32 sur telecommande Orange
rayseg22G -
Fifi -

6 réponses
Problème streaming France 2
95 indomptable -
robmat2005 -

1 réponse