XL 2010 Mettre à jour un fichier cible à partir d'une fichier source

thespeedy20 · 24 Septembre 2017

Bonjour le forum,

Pouvez-vous me donner un petit coup de main.... j'aurais voulu mettre à jour un fichier cible à partir d'un fichier source (ajout, modification et suppression de ligne)....

Donc après chaque intervention ( ajout, modif et suppression) que le fichier cible, soit égale au fichier source.

Une solution par macro serait il possible....

Merci d 'avance pour votre aide et solution éventuelle....

youky(BJ) · 25 Septembre 2017

Bonjour,
Voici une proposition.
Le fichier en retour est en xlsx car macro.
Les 2 fichiers doivent être dans le même dossier. (Source et Cible sinon faudra mentionner où)
Je recopie toutes les données de A1 à M6000 (à modifier si +)
La macro s'exécute à l'ouverture du fichier comme cela tout est à jour direct.
Copie ce fichier là ou existe le fichier "Source 2018" et active les macros
Macro en Module1 et Thisworkbook
Bruno

thespeedy20 · 1 Octobre 2017

Bonjour Bruno,
Bonjour le Forum,

Merci pour cette proposition, j'ai une petite demande... est il possible en ouvrant le fichier cible de choisir par un userform le fichier pour la mise à jour.

Encore Merci Bruno pour ta rapidité....

Olivier

youky(BJ) · 1 Octobre 2017

Hello,
Pour la demande voici une nouvelle macro qui remplace l'ancienne macro "ouverture"

VB:

Sub ouverture()
'vu
MsgBox "Choissiez le fichier Source !"
fichier = Application.GetOpenFilename("TextFiles (*.xlsx), *.xlsx")
If fichier <> False Then
Workbooks.Open fichier
Else
MsgBox "ANNULATION", "Pas de fichier selectionné !"
Exit Sub
End If
Application.ScreenUpdating = False
fichier = Right(fichier, InStr(StrReverse(fichier), "\") - 1)
ActiveWindow.WindowState = xlMinimized
ThisWorkbook.Activate
ActiveWindow.WindowState = xlMaximized
With Workbooks(fichier).Sheets(1)
'Feuil1.[A1:M6000].Clear
Feuil1.[A1:M6000].Value = .[A1:M6000].Value
End With
Workbooks(fichier).Close False
End Sub

XL 2010 Mettre à jour un fichier cible à partir d'une fichier source

thespeedy20

XLDnaute Occasionnel

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

thespeedy20

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

Discussions similaires