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
Dans l’attente de votre retour
Merci beaucoup les gars