Aspirer texte identique cellule vers une autre

Résolu/Fermé
deanerys Messages postés 82 Date d'inscription jeudi 27 septembre 2018 Statut Membre Dernière intervention 30 novembre 2019 - 27 sept. 2018 à 18:18
deanerys Messages postés 82 Date d'inscription jeudi 27 septembre 2018 Statut Membre Dernière intervention 30 novembre 2019 - 28 sept. 2018 à 11:18
Hello everybody !

J'espère que vous avez la forme !

Alors une question me taraudait,
est-il possible d'aspirer un texte d'une cellule d'un classeur et le copier, l'aspirer ou l'envoyer directement, automatiquement vers une autre cellule d'un autre autre classeur ?

Voilà j'espère avoir était clair :)

Merci pour tout bonne journée :) @+

3 réponses

fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
28 sept. 2018 à 08:37
Bonjour,

Qu'est ce que tu entends par "aspirer"?
il suffit de faire = et selectionner la cellule du classeur qui t'interesse
='[NOM-DU-CLASSEUR.xls]NOM-DE-LA-FEUILLE'!$A$1 

Ca sous entend que tes 2 classeurs doivent être ouverts pour les liaisons se fassent correctement
1
deanerys Messages postés 82 Date d'inscription jeudi 27 septembre 2018 Statut Membre Dernière intervention 30 novembre 2019
Modifié le 28 sept. 2018 à 09:20
Bonjour,

Ha oui suis-je bête Merci infiniment effectivement je suis honteuse pardonnez moi :)

Très belle journée et encore merci :)
0
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
Modifié le 28 sept. 2018 à 10:06
Pas de quoi
si votre problème est réglé merci de passer le sujet en résolu ;)
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 307
28 sept. 2018 à 09:00
Bonjour
Avec Excel:
ton classeur source (classeur1) restant fermé. par exemple:
='D:\docus\[classeur1.xlsx]Feuil1'!$A$1

avec macro XL4
Sub lire_ferme()
Dim chemin As String
chemin = "D:\docus" ' A ADAPTER
Cells(2, 2) = ExecuteExcel4Macro("'" & chemin & "\[classeur1.xlsx]Feuil1'!R1C1") 'R1C1=A1

End Sub
1
deanerys Messages postés 82 Date d'inscription jeudi 27 septembre 2018 Statut Membre Dernière intervention 30 novembre 2019
28 sept. 2018 à 11:18
Ha merci bien c'est gentil :)
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 307
28 sept. 2018 à 09:25
J'ai encore bossé pour rien :-(((((

RAS LE BOL
1
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
28 sept. 2018 à 09:41
non michel tu m'as appris quelque chose si ça peut te consoler ;)
0
deanerys Messages postés 82 Date d'inscription jeudi 27 septembre 2018 Statut Membre Dernière intervention 30 novembre 2019
28 sept. 2018 à 11:18
Oui à moi aussi je ne savais pas qu'on pouvait faire aussi comme ça merci c'est très gentil :)
0