Retranscription d'un fichier à un autre

Fermé

lorenzo - 7 oct. 2015 à 10:18
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 7 oct. 2015 à 14:01

Bonjour,

J'ai 2 fichiers excel qui contient chacun 1 tableau. Vous pouvez me dire SVP comment faire si je remplis par exemple la cellule A1 dans le tableau de mon 1er fichier et qu'il soit copier la même chose automatiquement dans la cellule A1 du tableau de mon 2eme fichier et ainsi de suite pour les lignes suivantes(A2,A3,A4...). Je vous remercie d'avance.

A voir également:

Retranscription d'un fichier à un autre
Comment ouvrir un fichier epub ? - Guide
Comment réduire la taille d'un fichier - Guide
Fichier rar - Guide
Ouvrir un fichier .bin - Guide
Comment ouvrir un fichier docx ? - Guide

1 réponse

Réponse 1 / 1

Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
7 oct. 2015 à 10:48

Bonjour bonjour,

Par VBA (ouvrez vos 2 fichier excel avant)

Sub Code()

Dim DL As Long

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row 'Définit la dernière ligne du tableau à copier, prendre la colonne la plus remplie, ici 1 = A

For i = 1 to DL

Workbooks("Votre_fichier_à_copier.xls").Sheets(1).Range("A" & i).Value = Workbooks("Votre_fichier_où_les_données_sont_copiées.xls").Sheets(1).Range("A" & i).Value

Next i

End Sub

Sinon avec une formule =[fichier1.xls]Feuil1!$A$1 A adapter

Cordialement.

lorenzo
7 oct. 2015 à 12:42

Merci, mais je n'y arrive toujours pas. Si ça serait possible de donner 1 exemple avec 1 vrai formule de A1 jusqu'à A3 en français SVP

Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
Modifié par Kuartz le 7/10/2015 à 14:06

Fichiers exemples :

https://www.cjoint.com/c/EJhmaUWIrQf

https://www.cjoint.com/c/EJhmbuWQYAf

Plusieurs choses :

- Renommez le premier fichier en "TEST1CCM"

- Renommez le deuxième fichier en "TEST2CCM"

Le code se trouve sur le fichier 1. Affichez l'onglet développeur sur excel :

https://support.office.com/fr-fr/article/Afficher-l-onglet-D%C3%A9veloppeur-ou-ex%C3%A9cuter-le-mode-d%C3%A9veloppeur-1b4a8529-3094-432a-9a7f-53935089e5ed

Allez sur cet onglez et allez dans Visual Basic. Vous verrez le code affiché. Dans ce code, changez la ligne :

Workbooks("TEST2CCM.xlsm").Sheets(1).Range("A" & i).Value = Sheets(1).Range("A" & i).Value

Pour :

Workbooks("LE NOM DE VOTRE FICHIER OU LES DONNEES SERONT COPIEES".xls").Sheets(1).Range("A" & i).Value = Sheets(1).Range("A" & i).Value

J'attire votre attention sur le fait qu'il faut mettre la bonne extension de fichier (ici .xls)

Cordialement.

Discussions similaires

comment donner les droits sur fichier partage