Erreur 1004 d'écution vba
Noune
-
jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention -
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 :
Merci pour votre aide
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
1 réponse
-
Bonjour,
Déjà, il semble qu'il te manque des quotesA = 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
-
-
Que contient ta variables "fichier" ?
Je suppose que c'est le chemin complet vers le classeur à ouvrir....
Dans ce cas, l'instructionWorkbooks(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 RANGERange("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 -
-
-
