Enregistrement de données d'un fichier vers un autre fichie
Bonjour !
Voilà, j'ai un problème, dans le code ci-joint je peux enregistrer les données d'une feuille vers une autre feuille. Mais j'aimerais enregistrer les données d'une feuille d'un fichier fichier vers une feuille d'un autre fichier.
Le bouton doit se trouver sur la feuille de contrôle, il doit permettre l'enregistrement d'un nouveau
contrôle à chaque enregistrement (il ne doit pas écraser les ancients contrôles déjà enregistrés).
Il doit donc sauvegarder à chaque fois sur une ligne vierge.
Merci à Paulinette et à Zirak pour le code.
Bonjour ITMMartin,
Il faut déclarer les fichiers qui seront utilisés et il faut ici que les fichier soient ouverts
fichier_1 As String
fichier_2 As String
fichier_1 = nom_du_fichier_1.xlsm
fichier_2 = nom_du_fichier_2.xlsm
Worksheets(fichier_1).Activate
Sheets("accueil").Select
Range("C5:E5").Select
Selection.Copy
Worksheets(fichier_2).Activate
Sheets("Feuil3").Select
Range("A" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Exemple qui s'applique au code fourni.
Il faut cependant mettre l'instruction Worksheets() au-dessus de tous les Sheets() ... et avant la condition de la boucle pour que cela fonctionne correctement.
Et pour l'enregistrement sur une ligne vierge, il faut par exemple compter le nombre de ligne déjà présent sur la colonne du fichier et coller en-dessous.
Code pour compter le nombre de ligne de la colonne 1 (A) ici :
Dim Lgnombreslignes As Long
Lgnombreslignes = Worksheets().Sheets().Cells(Rows.Count, 1).End(xlUp).Row
la ligne vierge se trouve en Lgnombreslignes + 1
Merci beaucoup ! ça m'a réellement aidé !
J'ai fait des tests au début et j'ai eu des difficultés sur l'emplacement du code que tu m'as fourni pour le saut de ligne et les indications concernant l'activation des fichiers et des feuilles avant la boucle.
Voici mon code amélioré sans les deux indications citées ci-dessus :
Et sincèrement, encore merci de m'avoir déjà tellement aidé !
Bonjour !
J'ai réussi à coder le bouton. Merci de m'avoir aidé.
Voici le code du bouton commenté pour ceux qui le souhaitent :