XL 2016 VBA : Copier des valeurs entre deux fichiers

[Leché]

Bonjour,

J'ai ce bout de code qui me permet de :

1- Je copie une plage de donnée du FichierA ( les données sont le résultat d'une formule)
2- J'ouvre un second Fichier (dans le même dossier que le FichierA) ayant un nom aléatoire et dont le nom est contenue dans mon fichierA en cellule A1
3- Je colle les données copier du FichierA sur mon fichier fraichement ouvert (en valeur)

Workbooks("FichierA.xlsm").Worksheets("Feuil1").Range("D8").Select
Workbooks("FichierA.xlsm").Worksheets("Feuil1").Range("D8:D100").Copy

MonFichier = Range("A1").Value
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & MonFichier

Worksheets("Feuil1").Range("V2:V100").Select 'Zone selectionnée
Worksheets("Feuil1").Range("V2:V100").Clear 'Zone selectionnée supprimé
Worksheets("Feuil1").Range("V2").Select 'Cellule selectionné pour copier les donnée du fichier A
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Cependant cela me met une erreur au moment du collage, avez vous une idée de ce qui ne va pas ?
Je pensais rajouter un bout de code qui garde en mémoire le copiage des données, mais je ne voit pas comment faire?

Merci pour votre aide,

Salutations,

 

[xUpsilon]

Bonjour,

Commence par supprimer les select qui ne servent à rien :

Workbooks("FichierA.xlsm").Worksheets("Feuil1").Range("D8:D100").Copy

MonFichier = Range("A1").Value
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & MonFichier

Worksheets("Feuil1").Range("V2:V100").Clear
Worksheets("Feuil1").Range("V2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Ensuite, quel est le message d'erreur ? Je me demande si les Select ne posent pas un problème de non correspondance de la taille de plage.

Bonne journée,

 

[Leché]

Bonjour,

Commence par supprimer les select qui ne servent à rien :

Workbooks("FichierA.xlsm").Worksheets("Feuil1").Range("D8:D100").Copy

MonFichier = Range("A1").Value
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & MonFichier

Worksheets("Feuil1").Range("V2:V100").Clear
Worksheets("Feuil1").Range("V2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Ensuite, quel est le message d'erreur ? Je me demande si les Select ne posent pas un problème de non correspondance de la taille de plage.

Bonne journée,

Bonjour,

Merci pour ta réponse

Alors j'ai toujours l'erreur, sur la dernière ligne, en faisant cette modification :

Erreur d'exécution '1004' :
La méthode PasteSpecial de la classe Range à échoué.

Salutations,

 

[xUpsilon]

Re-bonjour,

C'est ton clear qui force la déselection du copy.
Essaye comme suivant :

MonFichier = Range("A1").Value
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & MonFichier

Worksheets("Feuil1").Range("V2:V100").Clear
Workbooks("FichierA.xlsm").Worksheets("Feuil1").Range("D8:D100").Copy
Worksheets("Feuil1").Range("V2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Bonne journée,

 

[Leché]

Re-bonjour,

C'est ton clear qui force la déselection du copy.
Essaye comme suivant :

MonFichier = Range("A1").Value
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & MonFichier

Worksheets("Feuil1").Range("V2:V100").Clear
Workbooks("FichierA.xlsm").Worksheets("Feuil1").Range("D8:D100").Copy
Worksheets("Feuil1").Range("V2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Bonne journée,

Et bah ça fonctionne

Merci beaucoup pour ton aide.

Bonne journée,

Salutations