Erreur 1004 d'écution vba

Fermé

Noune - Modifié le 17 mai 2019 à 09:35
jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 - 17 mai 2019 à 10:08

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

A voir également:

Erreur 1004 g
Erreur 0x80070643 - Guide
Erreur 38 free ✓ - Forum Mobile
Iptv erreur de lecture - Forum TV & Vidéo
Erreur 1004 vba ✓ - Forum VB / VBA
Code erreur f3500-32 ✓ - Forum Bbox Bouygues

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
17 mai 2019 à 09:37

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

Noune
17 mai 2019 à 09:42

Bonjour,

Merci pour ta réponse
Cependant le problème persiste toujours

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
17 mai 2019 à 09:50

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")

Noune
17 mai 2019 à 09:54

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

Noune
17 mai 2019 à 09:59

Une nouvelle erreur apparaît : erreur d'exécution 9: L'indice n'appartient pas à la sélection

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
17 mai 2019 à 10:08

Maintenant tu as des quotes en trop.....
fichier est une VARIABLE .. donc pas de quotes autour

Discussions similaires

VBA erreur 1004

Instagram "Désolé, une erreur s'est produite"

MACRO : Problème " Erreur d'exécution '1004' "

Erreur d'éxecution 1004

Erreur vidéo inconnue sur le Freebox Player

EDIT : Ajout des balises de code

Discussions similaires

Newsletters