Transfert de données d'un claseur vers un autre (VBA)
Bonjour,
Je souhaiterais transférer des données du classeur "TR18031 APP L18096A" vers le classeur "PREPARATION CASTEL L18096A_systeme-autom" automatiquement et SANS ETRE OBLIGE DE LAISSER LE CLASSEUR "TR18031 APP L18096A" OUVERT.
Voici le code, il fonctionne mais m'oblige à laisser le classeur "TR18031 APP L18096A" ouvert pour pouvoir faire le transfert de données vers le classeur "PREPARATION CASTEL L18096A_systeme-autom" :
Sub Transfert_donnees_TSR()
' Transfert Macro
Workbooks("TR18031 APP L18096A").Sheets("TSR").Range("O6:O30000").Copy Workbooks("PREPARATION CASTEL L18096A_systeme-autom").Worksheets("DP DS Cde TEST").Range("A5:A30001")
Workbooks("TR18031 APP L18096A").Sheets("TSR").Range("L6:L30000").Copy Workbooks("PREPARATION CASTEL L18096A_systeme-autom").Worksheets("DP DS Cde TEST").Range("B5:B30001")
Workbooks("TR18031 APP L18096A").Sheets("TSR").Range("D6:D30000").Copy Workbooks("PREPARATION CASTEL L18096A_systeme-autom").Worksheets("DP DS Cde TEST").Range("C5:C30001")
Workbooks("TR18031 APP L18096A").Sheets("TSR").Range("F6:F30000").Copy Workbooks("PREPARATION CASTEL L18096A_systeme-autom").Worksheets("DP DS Cde TEST").Range("D5:D30001")
Workbooks("TR18031 APP L18096A").Sheets("TSR").Range("E6:E30000").Copy Workbooks("PREPARATION CASTEL L18096A_systeme-autom").Worksheets("DP DS Cde TEST").Range("F5:F30001")
Workbooks("TR18031 APP L18096A").Sheets("TSR").Range("AA6:AA30000").Copy Workbooks("PREPARATION CASTEL L18096A_systeme-autom").Worksheets("DP DS Cde TEST").Range("L5:L30001")
Application.Goto Reference:="Transfert_donnees_TSR"
End Sub
Auriez-vous une idée ?
Pourriez-vous me confirmer que le classeur "PREPARATION CASTEL L18096A_systeme-autom" va se mettre à jour automatiquement en cas de modification du classeur "TR18031 APP L18096A" ?
Merci
Fabien
Je crois bien que transférer des données entre deux classeurs dont l'un des deux n'est pas ouverts est malheureusement impossible
Tout simplement parce que pour que les lignes de codes fonctionnent il faut avoir les fichiers d'ouvert. Je pensais aussi comme toi que cela était possible mais je crois finalement que non.
Dommage que Excel ne soit pas comme une application permettant des alertes ou des transfert d'infos tout en étant en "veille".
À revérifier la précision de mes informations
Amitiés
Bonjour MPETIT,
Merci pour ton retour.
En effet, ceci n'est pas possible (selon un informaticien de mon entreprise, ceci est possible mais risquerait de mettre le fichier source en danger "risque potentiel de perte de données")
Je penses que la solution est de réaliser le transfert à l'aide de formule (cela alourdira le fichier mais permettra de le mettre à jour à chaque nouvelle ouverture).
Qu'en pensez vous ?
Oui cela me semble le plus adaptable en utilisant l’événement "Private Sub Workbook_Open". Cela permettrais d'actualiser les infos dès son ouverture et serrais le plus pratique je pense.
Amitiés
Dans le cas de l'utilisation de l’événement "Private Sub Workbook_Open", celle-ci met à jour le second fichier automatiquement mais nous oblige à ouvrir le fichier source ?
Oui pour se faire, les deux fichiers doivent être ouvert
Je penses dans ce cas que l'utisation de formule est plus approprié et évitera de devoir ouvrir les 2 fichiers pour que le transfert s'opère.
Malheuresement ceci alourdira le fichier 2 mais ceci répond au besoin.
Merci pour ton aide !
Très bien ! Au final c'est un mal pour un bien ;D
N'oublie de mettre ton post en "résolu".
Bien à toi,
Amitiés