1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Transférer des données d'un fichier à un autre

Discussion dans 'Forum Excel' démarrée par Roseline, 11 Février 2019 à 14:19.

  1. Roseline

    Roseline XLDnaute Nouveau

    Inscrit depuis le :
    20 Janvier 2018
    Messages :
    37
    "J'aime" reçus :
    0
    Bonjour,
    J'ai besoin de votre aide. J'ai deux fichiers et j'aimerais qu'en cliquant sur mon bouton "transférer les données" que les informations de mon fichier "test" se transpose dans mon fichier "TEST 2". J'ai fait la vba mais mon problème c'est que mon fichier "test" change de nom à tous les mois et je ne voudrais pas faire le changement manuellement dans la vba à tous les mois. Aussi, je ne comprend pas pourquoi une fois sur deux il prend les données du bon fichier pour les copier dans l'autre et la fois d'après il prend le mauvais fichier pour copier les données.
    Merci de votre aide et bonne journée
     

    Pièces jointes:

  2. Chargement...

    Discussions similaires - Transférer données fichier Forum Date
    Macro pour transferer des données sur open office dans un fichier Excel Forum Excel 14 Novembre 2014
    transferer des données de VBA à un fichier excell. Forum Excel 30 Juillet 2009
    Extraire des données et transférer dans un autre fichier Forum Excel 18 Février 2009
    Transferer des données sous conditions Forum Excel 6 Février 2019
    transférer des données sur une autre feuille Forum Excel 19 Décembre 2018

  3. sousou

    sousou XLDnaute Accro

    Inscrit depuis le :
    21 Février 2005
    Messages :
    1656
    "J'aime" reçus :
    67
    Habite à:
    La Garenne Colombes
    Utilise:
    Excel 2010 (PC)
    bonjour
    lorsque tu utilises with il faut des points pour appeler les objets
    exemple:
    with wb
    .Range("A" & Rows.Count).End(xlUp).Select
    .x = ActiveCell.Row
    .Range("A2:f" & x).Select
    .Selection.Copy
    ect...
    sinon tu utilise le classeur actif
     
  4. Roseline

    Roseline XLDnaute Nouveau

    Inscrit depuis le :
    20 Janvier 2018
    Messages :
    37
    "J'aime" reçus :
    0
    Merci pour la réponse et oui je pense qu'il manque de l'information à ma commande mais c'est ce bout là où je suis un peu mélangé. Pourriez-vous me donner un peu plus de détail svp.
    Merci et bonne journée
     
  5. sousou

    sousou XLDnaute Accro

    Inscrit depuis le :
    21 Février 2005
    Messages :
    1656
    "J'aime" reçus :
    67
    Habite à:
    La Garenne Colombes
    Utilise:
    Excel 2010 (PC)
    bonsoir
    essai ce code,
    La fonction nomattendu calcule ou calculera le nom du fichier que tu souhaite traité, à voie en fonction de ton contexte
    'calcule la dernière ligne
    Function dernièrelg(feuille, col) ' ici on calcul la dernière ligne utilisée, col représente la colonne sur laquelle du recherche la dernière ligne
    With feuille
    Set k = .Cells(.UsedRange.Columns(col).Rows.Count + 1, 1).End(xlUp)
    If k <> "" Then dernièrelg = k.Row + 1 Else dernièrelg = 1
    End With
    End Function

    Sub export()
    dldest = dernièrelg(Sheets("Données"), 1)
    For Each cl In Workbooks
    If cl.Name Like nomattendu() Then Set masource = cl
    Next
    With masource.Sheets(1)
    dlsource = dernièrelg(.Parent.Sheets(1), 1)
    Set zonecopy = .Range(.Cells(2, 1), .Cells(dlsource, 6))
    zonecopy.Copy (ThisWorkbook.Sheets("Données").Cells(dldest, 1))
    End With

    End Sub
    Function nomattendu()
    nomattendu = "test -*"
    End Function
     
  6. Roseline

    Roseline XLDnaute Nouveau

    Inscrit depuis le :
    20 Janvier 2018
    Messages :
    37
    "J'aime" reçus :
    0
    Rebonjour,
    merci encore de votre aide mais je suis toujours dans un impasse...cela ne fonctionne pas. J'ai un code d'erreur 424 et je comrpend pas. Pouvez-vous m'aider à nouveau
    Merci et bonne journée
     
  7. sousou

    sousou XLDnaute Accro

    Inscrit depuis le :
    21 Février 2005
    Messages :
    1656
    "J'aime" reçus :
    67
    Habite à:
    La Garenne Colombes
    Utilise:
    Excel 2010 (PC)
    re
    à quelle ligne l'erreur 424?
    fichier joint: lancer la macro export.
    ici je considère que le second fichier à été déjà ouvert, et que son nom commence par test -
    Si tel n'est pas le cas merci de fournir des infos
     

    Pièces jointes:

    Dernière édition: 12 Février 2019 à 17:58
  8. Roseline

    Roseline XLDnaute Nouveau

    Inscrit depuis le :
    20 Janvier 2018
    Messages :
    37
    "J'aime" reçus :
    0
    Rebonjour,
    J'ai fait le test avec le fichier que tu as mis en pièce jointe et cela fonctionne....Je vais revoir ma vba je crois que j'ai inversé une commande. Avec ce que tu viens de me fournir je vais être en mesure de l'adapter à mon fichier. Merci encore énormément de ton aide, c'est vraiment apprécié.
    Bonne journée
     
  9. sousou

    sousou XLDnaute Accro

    Inscrit depuis le :
    21 Février 2005
    Messages :
    1656
    "J'aime" reçus :
    67
    Habite à:
    La Garenne Colombes
    Utilise:
    Excel 2010 (PC)
    Pour être honnête j'avais oublié un thisworkbook! c'était peut-être cela ton erreur
     
  10. Roseline

    Roseline XLDnaute Nouveau

    Inscrit depuis le :
    20 Janvier 2018
    Messages :
    37
    "J'aime" reçus :
    0
    Merci encore tout fonctionne à merveille dans mon fichier. Vous m'avez été d'un grand secours et m'avez évité bien du travail de recherche.
    Bonne journée et merci encore une fois de votre aide
     

Partager cette page