Sujet Précédent Sujet Suivant

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

Résolu/Fermé
Boriserge Messages postés 4 Date d'inscription mardi 2 janvier 2018 Statut Membre Dernière intervention 11 avril 2018 - Modifié le 2 janv. 2018 à 16:13
yg_be Messages postés 22736 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 30 avril 2024 - 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.

3 réponses

Réponse 1 / 3
yg_be Messages postés 22736 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 30 avril 2024 1 477
2 janv. 2018 à 16:18
bonjour, peux-tu partager ton fichier?
0
Réponse 2 / 3
yg_be Messages postés 22736 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 30 avril 2024 1 477
2 janv. 2018 à 16:26
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 22736 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 30 avril 2024 1 477
10 avril 2018 à 20:45
as-tu progressé?
0

Discussions similaires

VBA erreur 1004
séverine -
Floroan -

9 réponses
Instagram "Désolé, une erreur s'est produite"
bananamilk -
cedric.masdeb -

60 réponses
Erreur vidéo inconnue sur le Freebox Player
mouhaaV2.0 -
LH -

59 réponses
MACRO : Problème " Erreur d'exécution '1004' "
Awazagaga -
Awazagaga -

6 réponses
Free erreur 38 : impossible d'envoyer des SMS
warnawak -
marcellou -

58 réponses