Modification d'une macro

[guenfood]

Bonjour,

J'ai actuellement une macro sur un fichier excel qui me permet de "matcher" 2 fichiers.

Je reporte le code ci-dessous :

Sub Match()

' -------------------------
' déclaration des variables
' -------------------------

Dim fichier1 As String             ' variable de type chaîne
Dim fichier2 As String
Dim fichier3 As String
Dim chemin As String

' ------------------------
' ouverture des 2 fichiers
' ------------------------
fichier1 = "BNPP.xls"
fichier2 = "ASTERION.xls"
fichier3 = "ALLER.xls"
chemin = "S:\APAC FLUX DOMESTIQUES\Domaine ACOM\POINTAGE MICROFICHES\Test match microfiches\"                        ' **** A CORRIGER SELON BESOIN
Workbooks.Open Filename:=chemin + fichier3
Workbooks.Open Filename:=chemin + fichier2
Workbooks.Open Filename:=chemin + fichier1
Application.ScreenUpdating = False
Workbooks("ALLER.xls").Activate
    Range("A4:K" & Range("A65536").End(xlUp).Row).Cut
Workbooks("BNPP.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Workbooks("ALLER.xls").Close savechanges:=True
Workbooks("ASTERION.xls").Activate
Derlig = Range("A65536").End(xlUp).Row
For Each Cel In Range("F2:F" & Derlig)
If Cel.Value <> "" Then
Lig = Cel.Row
Num = Cells(Lig, 2)
Etat = Cells(Lig, 13)
Workbooks("BNPP.xls").Activate
On Error Resume Next
Range("E1").Select
With Range("E1:E65536")
.Find(Etat).Activate
End With
If ActiveCell.Offset(0, -4).Value = Num Then
ActiveCell.EntireRow.Delete
Workbooks("ASTERION.xls").Activate
Cells(Lig, 1).EntireRow.Delete
End If
End If
Workbooks("ASTERION.xls").Activate
Next Cel
Application.ScreenUpdating = True
Workbooks("ASTERION.xls").Close savechanges:=False
Workbooks("BNPP.xls").Close savechanges:=True
End Sub

Actuellement, les informations comprises dans le fichier ASTERION.XLS pour lesquelles la cellule F est remplie sont effacées.
Ce qu'il me faudrait, c'est qu'au lieu d'être effacées, elles soient coupées et collées dans un nouveau fichier excel nommé ETIQUETTES.XLS

Par la suite, je souhaiterai que les informations qui sont collées dans ETIQUETTES.XLS me remplissent une feuille (pour faire des étiquettes) par rapport aux informations comprises dans les cellules M et cellules F.
La cellule F correspondant au nombre de documents et la cellule M reprenant un code (exemple : 'COL25010M336301J151623000014X01). Ce qui devra être repris sur mes étiquettes dans ce code sont les caractères COL25 correpondant au Nom, J correpondant au mois (A= Janvier, B = Février.... J=Octobre) et le 15 derrière le J correpondant au jour (J15 = 15 Octobre).

Merci par avance pour vos lumières.

 

[skoobi]

Re : Modification d'une macro

Voici le fichier avec la macro modifié.

 

[guenfood]

Re : Modification d'une macro

Merci encore.

Je testerai ca vendredi matin avec mes nouvelles réceptions pour voir si cela fonctionne.

 

[guenfood]

Re : Modification d'une macro

Bonjour,

J'ai testé et ca fonctionne nickel chrome !!

Merci encore pour tout...

 

[skoobi]

Re : Modification d'une macro

Re,
mais de rien 🙂 😉

 

[guenfood]

Re : Modification d'une macro

une dernière chose.

Mon fichier ETIQUETTES est bien alimenté, mais si j'ai plus de données que l'équivalent d'une page, la première page a bien le bon format pour l'impression (fait en sorte que mes étiquettes autocollantes soient bien remplies), mais le reste ne correspond plus.

Tu vois comment est ma première page du fichier ETIQUETTES. En fait, il faut que le remplissage se fasse avec des cellules au même format pour les autres pages (je pense pas que j'aurai plus de 4 ou 5 pages au maximum à imprimer).

As tu une idée ?

 

[skoobi]

Re : Modification d'une macro

Re,
voilà!

PS: tu peux changer la hauteur, largeur, taille de police etc.... Je te laisse regarder dans le code.

Edit: tu peux supprimer le module2 (oubli)

 

[guenfood]

Re : Modification d'une macro

Merci encore pour tout.