Code erreur 1004


#1

Bonjour a tous ,
je rencontre un soucis sur l’exécution de ma macro. En effet jai le message d’erreur 1004 qui apparait.
Voici donc le code

Private Sub CommandButton3_Click()

'Creation du fichier suivie des expé

'definition des variables

Dim fichier As Workbook
Dim chemin_fichier As String
Dim lien_save As String
Dim lien_save2 As String

'le lien pour l’ouverture ce trouve en page “lien” cellule b1

chemin_fichier = Worksheets("liens").Cells(1, 2).Value

'ouverture du fichier souaiter

Set fichier = Application.Workbooks.Open(chemin_fichier)

'copie de la plage souhaiter dans la feuille voulue

ThisWorkbook.Activate
Worksheets("PLAN XD").Select
Cells.Select
Selection.EntireColumn.Hidden = False
Range("A6:am45").Select
Selection.Copy

'coller la plage dans la matrice

Windows("matriceV6.1.xlsm").Activate

Worksheets("Données G").Select

Range("d2").Select           ----> **Le code erreur apparait à ce niveau là**

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

'sauvegarde du fichier et renomme (liens dynamique)

lien_save = ThisWorkbook.Worksheets("lien").Range("b3").Value
lien_save2 = ThisWorkbook.Worksheets("lien").Range("b4").Value


ChDir lien_save
ActiveWorkbook.SaveAs Filename:= _
    lien_save & "\" & "journée du " & lien_save2 & ".xlsm", FileFormat:= _
    xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

'message de confirmation d’excution

MsgBox ("Le fichier expé a été crée avec succès")

End Sub

La partie qui beug n’est qu’un copie/coller d’un fichier a un autre. Rien de bien compliquer mais la ça marche pas et je ne comprend pas pourquoi.
Si vous avez besoin de plus d’infos dite moi :slightly_smiling_face:

Dans l’attente de votre retour

Merci beaucoup les gars


fermé automatiquement #2

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.