Pb sur macro

Bonjour Messieurs - dames,
J'ai un soucis avec le code ci-dessous, le débogage me dit qu'il y a un problème avec le Pastespecial/Range.
Je souhaiterais envoyer plusieurs valeurs de cellules non contiguës d'un classeur ouvert à un classeur fermé et que ces valeurs des cellules soit classées sur la même ligne dans des cellules contiguës dans le classeur fermé.
Si j'ai bien compris, on ne peux pas faire de sélection multiple, je pensais donc reproduire le code ci-dessous pour chaque cellule à envoyer.
Je m'y prends peut-être hyper mal, n'hésitez pas à me corriger, voire à me flageller.
Merci par avance et bonne soirée !!

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Envoi_DEP()     ThisWorkbook.Sheets("NomFeuilleEntree").Range("J22").Select Selection.Copy Workbooks.Open(Filename:="adresseNomclasseursortie").Sheets("Nomfeuilleclasseursortie").Range("A2").End(xlUp).Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.DisplayAlerts = False Workbooks.Open(Filename:="adressenomlasseursortie").Save Workbooks.Open(Filename:="adressenomlasseursortie").Close End Sub

---

Bonjour, en ce qui me concerne, je verrais plutôt cela?
mais il faut le tester?

Code:

---

1 2 3 4 5 6 7

Sub Envoi_DEP() ThisWorkbook.Sheets("NomFeuilleEntree").Range("J22").Copy Workbooks.Open(Filename:="adresseNomclasseursortie").Sheets("Nomfeuilleclasseursortie").Range("A100000").End(xlUp)(2).Selection.PasteSpecial Paste:=xlPasteValues Application.DisplayAlerts = False Workbooks.Open(Filename:="adressenomlasseursortie").Save Workbooks.Open(Filename:="adressenomlasseursortie").Close End Sub

---

Cordialement 8-)

Citation:

---

Envoyé par Markal

Je souhaiterais envoyer plusieurs valeurs de cellules non contiguës d'un classeur ouvert à un classeur fermé et que ces valeurs des cellules soit classées sur la même ligne dans des cellules contiguës dans le classeur fermé.

---

Première chose : ce que tu demandes n'est pas possible.
Pour une raison élémentaire simple : on ne peut pas écrire dans un fichier fermé, que ce soit avec Excel ou un autre logiciel.

Deuxième chose : je ne comprends pas pourquoi tu mets des "Open" à toutes les lignes.
Une fois qu'un classeur est ouvert, il l'est. Pas besoin d'essayer de l'ouvrir dix fois.

Donc :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Envoi_DEP() Dim WSDest As Worksheet Dim WBDest As Workbook Dim WSSource As Worksheet   Set WSSource = ThisWorkbook.Sheets("NomFeuilleEntree")   Workbooks.Open(Filename:="adresseNomclasseursortie") Set WBDest = ActiveWorkbook Set WSDest = WBDest.Sheets("Nomfeuilleclasseursortie")   WSSource.Range("J22").Copy WSDest.Range("A2").End(xlUp).PasteSpecial Paste:=xlPasteValues   WBDest.Save WBDest.Close End Sub

---

Répéter les lignes 12 et 13 pour chaque copie (adapté à la zone source et destination souhaitée).

Autre détail : il est étonnant qu'il n'y ait pas de chemin dans ton nom de fichier pour l'ouvrir.

Bonjour,
Merci pour vos réponses et désolé pour ma réaction tardive.

Transitoire : le VBA me dit "Propriété ou méthode non géré par cet objet".

Menhir : la copy s'effectue sur le fichier de sortie, mais uniquement en A1 et chaque nouvelle copie écrase la précédente.

Merci par avance pour vos remarques.

Citation:

---

Envoyé par Markal

Menhir : la copy s'effectue sur le fichier de sortie, mais uniquement en A1 et chaque nouvelle copie écrase la précédente.

---

C'est pour ça que j'ai écris :

Citation:

---

Envoyé par Menhir

Répéter les lignes 12 et 13 pour chaque copie (adapté à la zone source et destination souhaitée).

---

Vu que dans ta demandes tu ne dis rien sur la façon d'ordonner les valeurs dans le fichier destination, on ne peut pas le deviner. :roll:

Si tu ne montres pas ton code, impossible de dire ce que tu as fais de travers.

Je me rends compte qu'effectivement ma demande n'était pas claire du tout, je vais reprendre.
J'ai fais un modèle de bon de commande, je souhaiterais que plusieurs éléments de celui-ci se déverse dans un autre fichier de façon ordonnées.
Par exemple : les cellules J22, B5, G56 soient déversées dans les cellules A2, B2 et C2 d'un autre classeur.
Et que pour lr prochain bon de commande les cellules J22, B5 et G56 soient déversées dans les cellules A3, B3 et C3.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Envoi_DEP() Dim WSDest As Worksheet Dim WBDest As Workbook Dim WSSource As Worksheet   Set WSSource = ThisWorkbook.Sheets("BCF")   Workbooks.Open ("C:\mes_documents\test_bdd_communes\DEP_test.xlsx")   Set WBDest = ActiveWorkbook Set WSDest = WBDest.Sheets("bdd")   WSSource.Range("J22").Copy WSDest.Range("A2").End(xlUp)(2).Selection.PasteSpecial Paste:=xlPasteValues Application.DisplayAlerts = False WBDest.Save WBDest.Close End Sub

---

Merci par avance et encore désolé pour m'être mal exprimé.
Bonne journée