Excécution d'un macro
bonjour à tous,
je vous pose ma problematique
je recois tous les jours un fichier excel du logiciel ERP (toujours le même format) que je dois intégrer dans un autre fichier excel (toujours le même format mais avec 6 colonnes de plus à ajouter)
je m explique un peu plus on retrouve les même colonnes (même titre) dans le deux fichiers mais dans le fichier excel reçu par ERP j'aurais pas les données sur quelques informations que je serai obligé de le rechercher dans un tableau différent .
je voudrait automatiser les actions pour eviter des copier/coller longs et repetitifs
(peut etre une macro ou vb)
En esperant avoir que mes explications etaient assez claire
par avance merci de vos réponses et conseils
Bonjour,
Peut-être avec un classeur exemple, il y aura plus de chance d'avoir des réponses
Re-bonjour
le fichier est très grand j'arrive pas à le joindre par contre voiçi le code utilisé:
Sub qdfho()
'Creer la liste des nom clients
ComboBoxNomclient = .Range("AJ" & j)
'...et filtre les doublons
If ComboBoxNomclient.ListIndex = -1 Then ComboBoxNomclient.AddItem .Range("AJ" & j)
'Creer la liste des IVC
ComboBoxIVC = .Range("AF" & j)
'...et filtre les doublons
If ComboBoxIVC.ListIndex = -1 Then ComboBoxIVC.AddItem .Range("AF" & j)
'Creer la liste des Nom porteur
ComboBoxNomporteur = .Range("H" & j)
'...et filtre les doublons
If ComboBoxNomporteur.ListIndex = -1 Then ComboBoxNomporteur.AddItem .Range("H" & j)
'Creer la liste des code porteur
ComboBoxcodeporteur = .Range("G" & j)
'...et filtre les doublons
If ComboBoxcodeporteur.ListIndex = -1 Then ComboBoxcodeporteur.AddItem .Range("G" & j)
'Creer la liste des code article
ComboBoxcodearticle = .Range("F" & j)
'...et filtre les doublons
If ComboBoxcodearticle.ListIndex = -1 Then ComboBoxcodearticle.AddItem .Range("F" & j)
End Sub
Sub Macro1()
'
' Macro1 Macro
'
'Supprimer l'ancien données
Rows("5:5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Application.ScreenUpdating = False
'Filtrer avec le client.
Sheets("DATABASE").Select
ActiveSheet.ListObjects("Tableau5").Range.AutoFilter Field:=1, Criteria1:= _
Sheets("DONNEES A CALCULER").Range("C2").Value
'Copier les donées.
Sheets("DATABASE").Select
Range("Tableau5[Article]").Select
Selection.Copy
Sheets("DONNEES A CALCULER").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("DATABASE").Select
Range("Tableau5[PORTEUR]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DONNEES A CALCULER").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("DATABASE").Select
Range("Tableau5[NOM_PORTEUR]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DONNEES A CALCULER").Select
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("DATABASE").Select
Range("Tableau5[Ligne_Produit]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DONNEES A CALCULER").Select
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("DATABASE").Select
Range("Tableau5[DESCRIPTION]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DONNEES A CALCULER").Select
Range("F5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("DATABASE").Select
Range("Tableau5[FAMILLE]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DONNEES A CALCULER").Select
Range("G5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("DATABASE").Select
Range("Tableau5[Desc1]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DONNEES A CALCULER").Select
Range("H5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("DATABASE").Select
Range("Tableau5[Qté]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DONNEES A CALCULER").Select
Range("J5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("DATABASE").Select
Range("Tableau5[Mois de commande]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DONNEES A CALCULER").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("DATABASE").Select
Range("Tableau5[IVC]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DONNEES A CALCULER").Select
Range("I5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("DATABASE").Select
Range("Tableau5[Réseau]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DONNEES A CALCULER").Select
Range("K5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("DATABASE").Select
Range("Tableau5[MT_EUR]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DONNEES A CALCULER").Select
Range("L5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("DATABASE").Select
Range("Tableau5").Select
ActiveSheet.ShowAllData
Sheets("DONNEES A CALCULER").Select
Range("C2").Select
Application.ScreenUpdating = True
End Sub
Je crois j'aurai pas de réponse sans le fichier excel
Si no j'aurai une autre question comment je pourrais faire une relation pour que j'obtienne les données automatiquement d'un fichier dans une autre
voici ci joint le fichier excel
merci par avance