Erreur 1004 - La méthode Select de la base Range a échoué Fermé

Question

Bonjour,

Débutante en VBA je cherche à exécuter une macro qui me permet de copier une plage de données d'un classeur 1 vers la 1ère ligne disponible d'un classeur 2.
J'ai cherché une solution à cette erreur 1004 sur nombre de forums mais je n'ai pas trouvé.

Pourriez-vous SVP m'apportez vos lumières pour corriger cette macro.

Sub Extraction()

Sheets("Feuil1").Range("a5:e18").Copy
Workbooks.Open Filename:="C:\Desktop\Classeur2.xlsm"
With Sheets("Feuil1").UsedRange: NoDeLaDernLig = .Cells(.Rows.Count, .Columns.Count).Row: End With
Sheets("Prélèvements").Cells(NoDeLaDernLig + 1, 1).Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

Merci d'avance pour vos réponses.

Mike-31 · Answer

Bonjour,

le problème vient de cette ligne de code ou il manque un anti-slash entre Desktop et le nom de ton classeur
Workbooks.Open Filename:="C: DesktopClasseur2.xlsm" 

et le chemin d'accès au fichier doit être complet
Workbooks.Open Filename:="C:\Users
om utilisateur\Desktop\Classeur2.xlsm" 

éventuellement utilise l'assistant macro pour ouvrir ton Classeur2.xlsm pour le reproduire dans ton code 

par contre si ton fichier est dans le même répertoire tu peux utiliser cette ligne de commande
Workbooks.Open Filename:=ThisWorkbook.Path & "\Classeur2.xlsm"

Etheldrede85 · Answer

Merci pour la réponse et la réactivité malheureusement il s'agit juste d'une erreur lors de mon copier/coller: l'anti-slash n'a pas fonctionné mais il est bien présent sur ma macro...

Le problème se situe donc ailleurs :-D

Mike-31 · Answer

Re,

le code fonctionne parfaitement, mais que veux tu faire exactement une fois l'action COPIER
tu ouvres le fichier 2 onglet "Prélèvements"

et après !  
que vient faire cette ligne
With Sheets("Feuil1").UsedRange: NoDeLaDernLig = .Cells(.Rows.Count, .Columns.Count).Row: End With

Mike-31 · Answer

Re,

d'après ce que je comprends

Sheets("Feuil1").Range("A5:E18").Copy
Workbooks.Open Filename:="C:\Users
om utilisateur\Desktop\Classeur2.xlsm"
Sheets("Prélèvements").Cells(NoDeLaDernLig + 1, 1).Range("A65536").End(xlUp)(2, 1).Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close

Mike-31 · Answer

Re,

Bizarre, place les deux classeurs dans le même répertoire, contrôle le nom du fichier nommé "Classeur2.xlsm" qu'il soit exactement orthographié comme dans le code sans espace ou autre  
et remplace ton code par

Sub Extraction()

Sheets("Feuil1").Range("A5:E18").Copy
Workbooks.Open Filename:=ThisWorkbook.Path & "\Classeur2.xlsm"
Sheets("Prélèvements").Range("A65536").End(xlUp)(2, 1).Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

Mike-31 · Answer

Re,

tout à fait évite les noms composés, les caractères spéciaux surtout si tu dois utiliser les noms ou tu peux remplacer dans le code le nom de ta feuille ("Prélèvements") sont numéro  Sheets(1)
 
lorsque tu es dans le VBA regarde le numéro de ta feuille si par exemple tu vois Feuil(3)Prélèvements il s'agit de la troisième page mémorisé par Excel alors essaye de remplacer  Sheets("Prélèvements") par Sheets(3)

Erreur 1004 - La méthode Select de la base Range a échoué

6 réponses

Discussions similaires