VBA transfert de données entre deux classeurs
Bonjour, je souhaite rapatrier une ligne d'un classeur vers un autre. J'essaye en effet de transférer les valeurs de mes cellules "A30" à "L30" vers la dernière ligne non vide (à partir de la ligne 14) d'un classeur dont j'ai spécifié le chemin.
J'ai essayé de bricoler le code suivant mais rien ne se passe...
Sub MAJPA()
Dim wb As Workbook
Dim ws As Worksheet
Dim Ligne As Integer
Set wb = Workbooks.Open("C:\users\jpeyres\cheminverslefichier.xlsm")
Set ws = wb.Worksheets(1)
Ligne = ws.Range("A1048576").End(xlUp).Row + 1
If Ligne > 13 Then
Range("A30").Value = ws.Range("A" & Ligne).Value
Range("B30").Value = ws.Range("J" & Ligne).Value
Range("C30").Value = ws.Range("O" & Ligne).Value
Range("D30").Value = ws.Range("R" & Ligne).Value
Range("E30").Value = ws.Range("S" & Ligne).Value
Range("F30").Value = ws.Range("Q" & Ligne).Value
Range("G30").Value = ws.Range("P" & Ligne).Value
Range("H30").Value = ws.Range("X" & Ligne).Value
Range("J30").Value = ws.Range("AA" & Ligne).Value
Range("K30").Value = ws.Range("Y" & Ligne).Value
Range("L30").Value = ws.Range("Z" & Ligne).Value
ws.Range("AB" & Ligne).Value = "1"
Range("G19").Value = ws.Range("T" & Ligne).Value
End If
End Sub
Avez-vous des idées ?
merci bien
Salut Johan,
Tes explications et ta macro sont d’une très grande confusion. On se sait pas quel est le ‘’Fichier Cible’’, quel est le ‘’Fichier Source’’. Le nombre de réponses reçues semble d’ailleurs corroborer mes affirmations
Fournis-nous deux fichiers modèles – si possible nommés tels qu’indiqué ci-dessus – et précise quelles lignes du fichier source tu voudrais voir reportées dans le fichier cible et à quel endroit.
Cordialement.
Si tes deux fichiers sont placés dans ton arborescence dans le même dossier, ça simplifierait un tout petit peu la macro. Qu’en est-il ?
Cordialement.
Bonjour Yvouille,
Dsl pour cette confusion, je débute en VBA. Les classeurs spécifiés sont des fichiers que je crée pour le compte d'une entreprise, je suis pas sûr d'avoir le droit de les envoyer en PJ au vu des données qu'ils contiennent.
Quoi qu'il en soit je me suis quand même tiré à ma manière, peu académique je l'avoue!
Sub MAJPA()
Dim wb As Workbook
Dim ws As Worksheet
Dim f1 As Worksheet
Dim Ligne As Integer
Set wb = Workbooks.Open("cheminverslefichier.xlsm")
Set ws = wb.Worksheets("PLAN D'ACTIONS")
Set f1 = Feuil1
Ligne = ws.Range("A65536").End(xlUp).Row + 1
ws.Range("A" & Ligne) = f1.Range("A30").Value
ws.Range("J" & Ligne) = f1.Range("B30").Value
ws.Range("O" & Ligne) = f1.Range("C30").Value
ws.Range("R" & Ligne) = f1.Range("D30").Value
ws.Range("P" & Ligne) = f1.Range("E30").Value
ws.Range("Q" & Ligne) = f1.Range("F30").Value
ws.Range("S" & Ligne) = f1.Range("G30").Value
ws.Range("X" & Ligne) = f1.Range("H30").Value
ws.Range("AA" & Ligne) = f1.Range("J30").Value
ws.Range("Y" & Ligne) = f1.Range("K30").Value
ws.Range("Z" & Ligne) = f1.Range("L30").Value
ws.Range("V" & Ligne) = f1.Range("G19").Value
ws.Range("AB" & Ligne).Value = "1"
End Sub
Merci d'avoir voulu essayer!