Transfert entre deux feuille de deux classeur

[Ced29]

Bonjour cher Forum,

J'ai xherxhé dans les 24 dernière page de discusion et rien n'a pu répondre à cette question.

Pourriez vous m'aidez?
De plus, aurais-je pu chercher autrement et plus efficasement?

Très simple:

Deux fichier: Départ, et terminus
Deux feuil: feuil1Depart et feuil1terminus

Ligne un identique
Plage A2: P2000 de donnée possible

J'aimerais simplement copier toute l'information de départ sur terminus
À LA SUITE DES DONNÉES SI DONNÉE IL Y A.
Alors si des données sont déja enregistré dans terminus, j'aimerais que le tout soit copier sur la ligne suivant.

Merci et encore une fois bravo pour ce forum.
Je lis et ce pour le plaisir les échange que certain intervenant : Excel-lent, JP14, Roger2237, patrinec et tant d'autre....vous est beau avoir aller et expliquer et surtout partager votre art...WoW

Bon matin

 

[Staple1600]

Re : Transfert entre deux feuille de deux classeur

Re

Robert
C'est bien toi qui m'a parlé de vignes et de vignerons hier non ?

être oenophile c'est une qualité non ?

J'ai remarqué que tu te la coupes souvent sur ce forum.

Tu es plutôt Opinel ou Laguiole 😛 ?

Un hommage c'est une marque de respect

L'humiliation je la pratique quand des gens (toujours en binôme, qui eux ne sont non oenophiles mais "religiosophiles" ) viennent sonner à ma porte avec un livre sacré dans leur besace...

 

[Robert]

Re : Transfert entre deux feuille de deux classeur

Bonsoir le fil, bonsoir le forum,

Staple, tout à coup le doute m'habite. Aurais-tu pris mes sottises au sérieux ? Je suis sûr que non car la seule chose vraiment sérieuse dans mon dernier post était mon remerciement pour ta réponse.

Sinon oui bien sûr, je me la coupe souvent... la barbe, mais pas au couteau au rasoir...

 

[Ced29]

Re : Transfert entre deux feuille de deux classeur

Bonjour, le fil,

Il commence à avoir plusieurs intervenants. J'ai bien essayé de faire fonctionné ta Macro simplifier Stample, mais j'ai un code d'erreur qui apparait.

Mon probleme n'est toujours pas réglé.

Quelqu'un aurait une idée ?

Merci et en passant j'espère que vous profitez de la belle fin de semaine....

A+

 

[Staple1600]

Re : Transfert entre deux feuille de deux classeur

Re


Peut-être est-ce aux accents ?

J'ai testé chez moi avec Départ comme string pour
le nom du classeur et de la feuille

Alors que ton exemple fonctionne avec Départ et Depart

Je n'ai posté mon code que dans un but récréatif.

Puisque le code de Robert fonctionne , utilise le

Ou alors utilise Départ dans ton nom de classeur et de feuille pouir pouvoir utiliser mon code.

 

[Ced29]

Re : Transfert entre deux feuille de deux classeur

RE-re- bonjour,

Je viens de changer mon nom de feuille qui était FeuilDepart depuis le début pour le remplacer par Départ.

J'ai collé ton code à la place de celle Robert,

Erreur d'exécution 9
l'indice n'appartient pas à la sélection.

Es-ce que ton code reproduit intégrallement celui de Robert ou il ajoute la modification que j'ai demandé au sujet de la l'insertion du nom de la feuille oo la sélection fut copier

Tourlou

A+

 

[Robert]

Re : Transfert entre deux feuille de deux classeur

Bonsoir le fil, bonsoir le forum,

Ced (Tourlou), j'ai réussi à faire fonctionner le code de Staple mais comme il a utilisé la même variable pour le nom du classeur (Départ.xls) et pour le nom de l'onglet (Feuil1Depart) il faut adaper en renommant soit l'onglet soit le classeur et le code en conséquence.

Une fois ces détails réglés Staple, j'ai rencontré plusieurs problèmes. Le premier est que les étiquettes Nom, Prénom, Téléphone dans le classeur cible sont effacées. Ensuite, il n'accepte qu'une seule ligne. Si on en sélectionne plusieurs, seule la première est copiée.

J'ai donc préféré revenir à mon code mais je n'arrive pas non plus à le faire fonctionner comme je voudrais. Pour que le nom du classeur cible soit inscrit dans la colonne D, il faut au départ sélectionner minimum 4 cellules par ligne (de A à D) ou, pour eviter un balayage rébarbatif, sélectionner la ligne entière. Mais on peut sélectionner des lignes non contiguës ça marche (à mon grand étonnement d'ailleurs...)

Deux options donc, pour sélectionner une donnée, soit sélectionner les quatres colonnes (A, B, C et D) de la donnée soit sélectionner la ligne entière... (faisable si il n'y a rien d'édité dans les autres colonnes).
J'ai rajouté une gestion d'erreur qui sort de la procédure si les conditions de sélection ne sont pas respectées.

J'espère avoir été clair dans mes explications...
le code :

Sub Macro2()
Dim co As Workbook 'déclare la variable co (Classeur Origine)
Dim cc As Workbook 'déclare la variable cc (Classeur Cible)
Dim oo As Worksheet 'déclare la variable oo (Onglet Origine)
Dim oc As Worksheet 'déclare la variable oc (Onglet Cible)
Dim dest As Range 'déclare la variable dest (DESTination)
Dim pl As Range 'déclare la variable pl
 
Set co = Workbooks("Départ.xls") 'définit la variable co
Set cc = Workbooks("terminus.xls") 'définit la variable cc
Set oo = co.Sheets("Feuil1Départ") 'définit la variable oo
Set oc = cc.Sheets("Feuil1Terminus") 'définit la variable oc
 
With cc 'prend en compte le classeur "terminus.xls"
    Set dest = oc.Range("A65536").End(xlUp).Offset(1, 0) 'définit la variable dest
End With 'fin de la prise en compte du classeur "terminus.xls"
 
co.Activate 'active le classeur origine
oo.Activate 'active l'onglet origine
Selection.Copy dest 'copie et colle les données
 
On Error Resume Next 'gestion des erreurs (si la colonne D ne fait pas partie de la selection)
'marque le nom du classeur cible dans la colonne 4
Application.Intersect(Columns(4), Selection).Value = Split(cc.Name, ".")
If Err <> 0 Then 'condition : si il y a une erreur
    MsgBox "Sélection non valide" 'messgae
    Err = 0 'annule l'erreur
    Exit Sub 'sort de la procédure
End If 'fin de la condition
 
'colore la cellule sélectionnée de la colonne 3 en vert (couleur à adapter il y a plusieurs vert...)
Application.Intersect(Columns(3), Selection).Interior.ColorIndex = 4
ActiveCell.Select 'active une seule cellule
End Sub

 

[Ced29]

Re : Transfert entre deux feuille de deux classeur

Bonjour à tous,
Robert, salutation distingué,

Merci pour votre effort soutenu dans ma discusion, Je suis gandement satisfait avec cette dernière.

Merci beaucoup