Menu

Erreur 1004 d'écution vba

-
Bonjour,

Je cherche à copier une cellule identique à plusieurs fichiers dans un fichier récap.

Seulement je bloque depuis hier sur l'erreur 1004 (erreur définie par l'application ou par l'objet)

Je suis débutante en VBA et je ne m'en sors pas.

Voici mon code :
Sub importdonn?es1()

Dim A As Single
Dim principal As ThisWorkbook
Dim repertoire As String
Dim fichier As String
    Application.ScreenUpdating = False
    Set principal = ThisWorkbook
    repertoire = "G:\Operations\HMS\Manon\TRS\Relev?s TRS\2019-05"
    ChDir repertoire
    fichier = Dir("*.xlsx")

    Do While fichier <> ""
        'If fichier <> principal.Name Then
                    Workbooks.Open (fichier)
                 
                        A = Workbooks(fichier).Worksheets(BMG_TRS).Range(C43).Value
                        Workbooks(Evolution_TRS.xlsm).Worksheets(Feuil1).Range(B4) = A
                        
                    'Workbooks.Close fichier'
       ' End If
        
'suivant:
                
    Loop
End Sub

Merci pour votre aide

EDIT : Ajout des balises de code

Configuration: Windows / Edge 18.17763
Afficher la suite 

Votre réponse

1 réponse

Messages postés
25575
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 mai 2019
1620
0
Merci
Bonjour,

Déjà, il semble qu'il te manque des quotes
A = Workbooks(fichier).Worksheets(BMG_TRS).Range(C43).Value
                        Workbooks(Evolution_TRS.xlsm).Worksheets(Feuil1).Range(B4) = A

A corriger par :
A = Workbooks(fichier).Worksheets("BMG_TRS").Range(C43).Value
                        Workbooks("Evolution_TRS.xlsm").Worksheets("Feuil1").Range(B4) = A

Bonjour,

Merci pour ta réponse
Cependant le problème persiste toujours
jordane45
Messages postés
25575
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 mai 2019
1620 -
Que contient ta variables "fichier" ?
Je suppose que c'est le chemin complet vers le classeur à ouvrir....
Dans ce cas, l'instruction
Workbooks(fichier)

ne doit pas lui plaire.
Il ne faut indiquer ici que le "nom du fichier" (sans l'extension il me semble ) et pas son chemin

Je vois également des "?" à la place des accents dans ton code....
ça non plus il n'aime pas ça...
Il ne faut ni caractères spéciaux... ni accents dans le nom des variables, des sub, des fonctions ...etc....

IL manque encore des quotes autour des RANGE
Range("C43")

.Range("B4")
fichier comprend une ensemble de classeur
Ces classeurs sont tous conçus à l'identique
Une des cellules de ces classeurs m'intéresse et j'aimerais donc reporter chacune de ces cellules dans mon fichier récapitulatif (comme pour constater une évolution)

J'ai l'impression que l'erreur vient de ces lignes là :
A = Workbooks("fichier").Worksheets("BMG_TRS").Range("C43").Value
Workbooks("principal").Worksheets("Feuil1").Range("B:B") = A
Une nouvelle erreur apparaît : erreur d'exécution 9: L'indice n'appartient pas à la sélection
jordane45
Messages postés
25575
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 mai 2019
1620 -
Maintenant tu as des quotes en trop.....
fichier est une VARIABLE .. donc pas de quotes autour
Commenter la réponse de jordane45