formule sur macro pour transfert de donnés

[abalagha]

Bonjour monsieur je compte sur votre savoir faire et votre compétences pour me résoudre se problème qui se mesure
quand je Click sur le bouton transfert qui se trouve sur la feuille PRODUCTION du fichier GLOBAL les données du FICHIER1(PRODUCTION+IMP) se transfert et s'ajoute dans le FICHIER GLOBAL sur les mêmes feuille(PRODUCTION+IMP)toutes en gardons les anciens informations
abalagha
cordialement .

 

[kjin]

Re : formule sur macro pour transfert de donnés

Bonjour Monsieur,
Ce ne serait pas plutot un transfert à partir du fichier "FICHIER1" vers le fichier "GLOBAL" ou me trompe-je ?
A+
kjin

 

[abalagha]

Re : formule sur macro pour transfert de donnés

bonjour ,
effectivement c'est un transfert à partir du fichier "FICHIER1" vers le fichier "GLOBAL"
salutations

 

[kjin]

Re : formule sur macro pour transfert de donnés

Re,
A associer à un bouton dans le fichier "FICHIER1"
Les fichiers "GOBAL" et "FICHIER1" sont supposés être dans le même répertoire, sinon adapter le chemin

Sub transfert()
Application.ScreenUpdating = False
With Sheets("Production")
    Tprod = .Range("A13:K" & .Range("A65000").End(xlUp).Row).Value
End With
With Sheets("Imp")
    Timp = .Range("A13:K" & .Range("A65000").End(xlUp).Row).Value
End With
Workbooks.Open ActiveWorkbook.Path & "\Global.xls" 'à adapter si répertoire différent
With Sheets("Production")
    dl = .Range("A65000").End(xlUp).Row + 1
    .Range(.Cells(dl, 1), .Cells(dl + UBound(Tprod, 1) - 1, 11)) = Tprod
End With
With Sheets("Imp")
    dl = .Range("A65000").End(xlUp).Row + 1
    .Range(.Cells(dl, 1), .Cells(dl + UBound(Timp, 1) - 1, 11)) = Timp
End With
ActiveWorkbook.Close True
Application.ScreenUpdating = True

End Sub

A+
kjin

 

[abalagha]

Re : formule sur macro pour transfert de donnés

monsieur je n'est pas pu réaliser cette solution
si vous terminer votre gentillesse et me faire cette application sur mes fichiers je n' oublierai jamais votre assistance .
abalagha
cordialement

 

[kjin]

Re : formule sur macro pour transfert de donnés

Re,
Voilà M'sieur
A+
kjin

 

[abalagha]

Re : formule sur macro pour transfert de donnés

Merci beau coups monsieur