Kael_88
XLDnaute Occasionnel
Le Forum,
Etant un très mauvais programmeur, j'aurai besoin d'un coup de main,
lorsque j'essai de copié la feuille d'un fichier source avec ce code,
Sub MàJ_Data()
Dim chemin As String
chemin = "C:\Mise à Jour"
Application.Dialogs(xlDialogOpen).Show (chemin)
Cells.Select
Selection.Copy
Windows("Test.xls").Activate
Sheets("Data").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
End Sub
cela me met une erreur '1004' comme ci dessous.
y a t il moyen de l’éviter sans ouvrir le fichier source ?
Merci aux intéressés
Etant un très mauvais programmeur, j'aurai besoin d'un coup de main,
lorsque j'essai de copié la feuille d'un fichier source avec ce code,
Sub MàJ_Data()
Dim chemin As String
chemin = "C:\Mise à Jour"
Application.Dialogs(xlDialogOpen).Show (chemin)
Cells.Select
Selection.Copy
Windows("Test.xls").Activate
Sheets("Data").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
End Sub
cela me met une erreur '1004' comme ci dessous.
y a t il moyen de l’éviter sans ouvrir le fichier source ?
Merci aux intéressés
Dernière édition: