Retranscription d'un fichier à un autre
lorenzo
-
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention -
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention -
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.
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 réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier bin - Guide
- Fichier rar - Guide
- Ouvrir un fichier .dat - Guide
1 réponse
Bonjour bonjour,
Par VBA (ouvrez vos 2 fichier excel avant)
End Sub
Sinon avec une formule =[fichier1.xls]Feuil1!$A$1 A adapter
Cordialement.
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.
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).ValuePour :
Workbooks("LE NOM DE VOTRE FICHIER OU LES DONNEES SERONT COPIEES".xls").Sheets(1).Range("A" & i).Value = Sheets(1).Range("A" & i).ValueJ'attire votre attention sur le fait qu'il faut mettre la bonne extension de fichier (ici .xls)
Cordialement.