Discussion :

[Markal]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Transitoire]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Markal]

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.

[Menhir]

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 :

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.

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

[Markal]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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