Problématique avec la méthode .Copy

Question

Bonjour à tous, voici ma question:

J'ai un projet qui consiste à copier plusieurs cellule d'un fichier vers un autre fichier qui se trouve sur un serveur. Je voulais tester de façon isoler la méthode ".Copy" en utilisant:

Sub Bouton1_Cliquer()

Workbooks("FichierExcelDonnes").Worksheets("feuil1").Range("C5").Copy _

Workbooks("FichierExcelCopie").Worksheets("USINE").Range("J32799")

End Sub

Ceci marchait au début mais ne fonctionne plus.

J'ai donc testé d'autres version en utilisant un chemin absolue tels que:

Sub Bouton1_Cliquer()

Workbooks("D:\arborescence test\test1\test2\test.xlsx").Worksheets("feuil1").Range("A1").Copy _

Workbooks("test.xlsm").Worksheets("feuil1").Range("F3")

End Sub

En ouvrant le fichier automatiquement avec le code au lieu de manuellement (l'ouverture du fichier marche mais pas la copie):

Sub Bouton1_Cliquer()

Workbooks.Open _

"F:\Projet analyses\Nouveau\Test1_Copie_Workbook\Arbo_Test\test_reel\test.xlsx"

End Sub

En enlevant tous les espaces dans l'arborescence du fichier:

Sub Bouton1_Cliquer()

Workbooks("D:\arborescence_test\test1\test2\test.xlsx").Worksheets("feuil1").Range("A1").Copy _

Workbooks("test.xlsm").Worksheets("feuil1").Range("F3")

End Sub

En essayant de tester les fichiers avec ou sans extensions.

Mais rien ne passe. J'ai dû tester d'autres manipulations mais je ne m'en souviens plus. Auriez-vous la possibilité de m'aider?

Je vous remercie d'avoir pris le temps de lire ma question.

Invité · Accepted Answer

J'espère que ce n'est pas du cross posting, car vous arrivez ici un peu comme un cheveu sur la soupe Concernant votre problème, si vous avez bien les 2 classeurs ouverts que FichierExcelDonnes à bien une feuille nommée "feuil1", FichierExcelCopie à bien une feuille nommée "USINE" Le 1er code doit fonctionner, mais vous devez mettre les extensions Sub Bouton1_Cliquer() Workbooks("FichierExcelDonnes.xlsx").Worksheets("Feuil1").Range("C5").Copy _ Workbooks("FichierExcelCopie.xlsx").Worksheets("USINE").Range("J32799") End Sub A+...