Microsoft 365 Reporter le contenu de plusieurs cellules dans un autre classeur par VBA

sebastien176 · 30 Juin 2022

Bonjour à tous,

Comme dit dans le titre, j'aimerais pourvoir reporter le contenu (si non vide) des colonne B, H et M du classeur TEST1 sur les mêmes colonnes et mêmes lignes du classeur TEST2 en temps réel (Que le classeur TEST2 soit ouvert ou fermé)

Je vous remercie par avance de votre aide

Bonne journée à tous

Sébastien

fanch55 · 30 Juin 2022

Bonjour,
Pourriez-vous être plus précis dans la demande :
Quand vous dites reporter, ce que vous voulez est :

un lien dans Test2 ( ce qui oblige à toujours avoir Test1 ) avec les données mises à jour dès l'ouverture de test2.
une copie de test1, ce qui oblige à avoir une macro dans Test1, Test2 étant de ce fait asynchrone .

Êtes vous sûr des colonnes ?

herve62 · 30 Juin 2022

Bonjour
Début de réponse : si en temps réel il faudra faire une détection d'événement dans la feuille comme "worksheet_change" avec des plages précises (B2-B1000) ..etc et écrire le code : copier les données et les coller à destination Mais comme on ne peut recopier que dans un classeur ouvert il faudra donc tester si oui ou non , si non alors ouvrir puis refermer
Voilà la démarche à suivre bien sûr il faut connaitre le VBA

sebastien176 · 30 Juin 2022

fanch55 à dit:
Bonjour,
Pourriez-vous être plus précis dans la demande :
Quand vous dites reporter, ce que vous voulez est :

un lien dans Test2 ( ce qui oblige à toujours avoir Test1 ) avec les données mises à jour dès l'ouverture de test2.

une copie de test1, ce qui oblige à avoir une macro dans Test1, Test2 étant de ce fait asynchrone .

Êtes vous sûr des colonnes ?

Bonjour,

J'aimerais pouvoir faire un copier coller auto par vba (sans copier la mise ne forme) de ce qui se trouve dans les colonnes B,H et N du classeur TEST1 vers les colonnes B,H et N du classeur TEST2
Les fichiers originaux que j'utilise se trouvent sur des disques réseaux partagés

fanch55 · 30 Juin 2022

sebastien176 à dit:
Bonjour,

J'aimerais pouvoir faire un copier coller auto par vba (sans copier la mise ne forme) de ce qui se trouve dans les colonnes B,H et N du classeur TEST1 vers les colonnes B,H et N du classeur TEST2
Les fichiers originaux que j'utilise se trouvent sur des disques réseaux partagés

Vous voulez donc copier/coller les cellules où il y a actuellement :
Vérifié par "utilisateur" le "date du jour"

fanch55 · 30 Juin 2022

Je pense qu'il ne faut faire la copie que si l'utilisateur sauvegarde Test1 ?

sebastien176 · 30 Juin 2022

fanch55 à dit:
Vous voulez donc copier/coller les cellules où il y a actuellement :
Vérifié par "utilisateur" le "date du jour"

oui c'est ça

sebastien176 · 30 Juin 2022

fanch55 à dit:
Je pense qu'il ne faut faire la copie que si l'utilisateur sauvegarde Test1 ?

Oui le classeur sera enregistré avant fermeture

fanch55 · 30 Juin 2022

A mettre dans le module Thisworkbook :

VB:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim Wb As Workbook
Dim Wi As Worksheet
Dim Wt As Worksheet
    Set Wi = ThisWorkbook.Worksheets("Feuil1")
    Set Wb = Workbooks.Open(ThisWorkbook.Path & "\Test2.xlsm")
    Set Wt = Wb.Worksheets("Feuil1")
    For i = 1 To Wi.UsedRange.Rows.Count
        For Each C In Array("B", "H", "N")
            If Wi.Cells(i, C) <> vbNullString Then Wt.Cells(i, C) = Wi.Cells(i, C)
        Next
    Next
    Wb.Close True
    
End Sub

Microsoft 365 Reporter le contenu de plusieurs cellules dans un autre classeur par VBA

sebastien176

XLDnaute Junior

Pièces jointes

fanch55

XLDnaute Barbatruc

herve62

XLDnaute Barbatruc

sebastien176

XLDnaute Junior

fanch55

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

sebastien176

XLDnaute Junior

sebastien176

XLDnaute Junior

fanch55

XLDnaute Barbatruc

Discussions similaires