Récupérer des données d'un fichier vers un autre

[luno123]

Bonsoir,

J'ai deux fchiers: l'un s'appelle prévisionnel 2011 & l'autre Réalisés 2011.
Je souhaiterai à partir du premier(prévisionnel 2011) récupérer certaines données de la feuille " CR PREVISIONNEL", à savoir les tableaux bleu & rouge pour les renvoyer automatiquement sur l'autre fichier (Réalisés 2011) & sur la feuille "CRN".
Mes deux fichiers en réalité sont très volumineux. Donc j'ai d"cidé de les séparer et d'en faire 2 distincts.
Par contre je ne sais pas comment faire pour les relier.

Merci pour votre aide.

PS/ je fais l'envoi en 2 fois.

 

[luno123]

Récupérer des données d'un fichier vers un autre 2/2

le deuxième fichier pour compléter mon envoi...

Merci d'avance pour votre aide

Luno

 

[Guest]

Re : Récupérer des données d'un fichier vers un autre

Bonsoir,

Une macro qui importera les données de l'un dans l'autre. Les classeurs ne seront pas 'relier' comme tu dis.

Si par ce terme tu pense à une liaison au sens excel, rien de plus simple
Ouvre les deux fichiers

Dans la cellule D7 de 'C.R. N' du classeur 'Réalisé', tu tapes '='
ensuite sans valider tu cliques dans la cellules correspondantes du deuxième classeur et tu valides la formules.

Enlève les $ de la formule : '[Previsionnel 2011 (1).xls]C.R. prévisionnel'!C10

tire la formule à droite, puis en bas, enregistre et voilou.

Sub ImportDonneesPrevisionnelles()
    Dim wkb As Workbook
    Dim sht As Worksheet
    
    On Error GoTo Err_WKB
    Set wkb = Workbooks("Previsionnel 2011 (1).xls")
    Err.Clear
    
    On Error GoTo Err_SHT
    Set sh = wkb.Sheets("C.R. prévisionnel")
    
    On Error GoTo 0
    
    With ThisWorkbook.Sheets("C.R. N")
        .Range("C7:D39").Value = sh.Range("C9:D41").Value
        .Range("I7:J39").Value = sh.Range("F9:G41").Value
    End With
    
    GoTo Sortie
    
Err_WKB:
    MsgBox "Ouvrez le classeur prévisionnel avant de lancer la macro", vbExclamation, "Importation datas"
    Resume Sortie
    
Err_SHT:
    MsgBox "La feuille 'C.R. prévisionnel' est introuvable dans le classeur '" & wkb.Name & "'!", vbExclamation, "Importation datas"
Sortie:
   
End Sub

A+

 

[luno123]

Re : Récupérer des données d'un fichier vers un autre

Merci hasco j'ai pensé à cette possibilité mais je me suis dt après en faisant du copie coller(pour les années suivantes) je risque de perdre cette liaison. Bon je vais la tenter néanmoins.

Merci beaucoup

Luno

 

[Guest]

Re : Récupérer des données d'un fichier vers un autre

Bonjour Luno,

Bon je vais la tenter néanmoins.

Quelle solution? Celle par macro avec copie en 'dur' ou celle par formule?
Si c'est celle par formule, tu pourras toujours faire un copier/collage spécial->valeurs des zones sur elles-même.

A+