Discussion :

[praetis]

Bonjour ,

J'ai un fichier Excel qui est mis a jours tout les jours (Fichier B) et un autre ou j'ai mis quelque macro (Fichier A)

Est ce possible que le fichier A(celui qui a les macro) puisse les exécuter au fichier B (fichier avec mes donnée?)

Merci d'avance pour votre aide

[Tête de chat]

Bonjour

Est ce possible que le fichier A(celui qui a les macro) puisse les exécuter au fichier B (fichier avec mes donnée?)

Il faut pour ça que les macros soient - un peu - étudiées pour et que le fichier A ouvre le fichier B, exécute ce qu'il a à faire, puis enregistre le fichier B (ou pas) et le ferme

Dans le style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Sub toto()
Dim MonBook as WorkBook
Set MonBook = Workbooks.Open("C:\monEmplacement\FichierB.xls")
 
' ici ce que tu veux exécuter
 
MonBook.Close Save:=true
 
End Sub

pas testé...

Quand je dis que les macros appelées doivent être étudiées pour, il faut par exemple qu'elles ne contiennent pas de select, active et de références implicites

Par exemple (de ce qu'il ne faut jamais faire )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Calcul()
Dim W as long
Sheets("NomDelaFeuille").Activate
Range("A1").Select
W = Selection.Value * 2
Range("A2").Select 
Selection.Value = W
End Sub

Pourra être réécrit en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Calcul(UnBook as WorkBook)
With UnBook.Sheets("NomDelaFeuille")
    .Range("A2").Value = .Range("A1").Value * 2
End With
End Sub

[praetis]

Bonjour,

Voici ma macro que je voudrais pouvoir utiliser sur l'autre fichier.

Mais j'ai un message d'erreur quand je l'exécute sur mon autre fichier(celui qui n'a pas de macro)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
 
 
Sub Traitement() 'Programme principal
    Call SupprimerColonnesSpecifiques
    Call SupprimerLignesSansDonneesColonneE
    Call RenommerEntetes
    Call TrierColonneE
    'Etc...
End Sub
Sub SupprimerColonnesSpecifiques()
    Dim ws As Worksheet
    Dim colonnesASupprimer As String
    Dim colonne As Variant
 
    ' Spécifie la feuille de travail
    Set ws = ThisWorkbook.Sheets("SALES") ' Remplacez "Feuille1" par le nom de votre feuille de travail
 
    ' Liste des colonnes à supprimer
    colonnesASupprimer = "A,C,D,E,F,G,H,I,J,K,L,M,N,O,P,R,U,V,W,Y,Z,AA"
 
    ' Divise la liste des colonnes à supprimer en un tableau
    Dim tableauColonnes As Variant
    tableauColonnes = Split(colonnesASupprimer, ",")
 
    ' Boucle à travers toutes les colonnes à partir de la dernière colonne
    For i = UBound(tableauColonnes) To 0 Step -1
        ' Vérifie si la colonne actuelle doit être supprimée
        On Error Resume Next
        ws.Columns(tableauColonnes(i)).Delete
        On Error GoTo 0
    Next i
End Sub
 
Sub RenommerEntetes()
    Dim ws As Worksheet
 
    ' Spécifie la feuille de travail
    Set ws = ThisWorkbook.Sheets("SALES") ' Remplacez "Feuille1" par le nom de votre feuille de travail
 
    ' Renomme les en-têtes des colonnes A à F
    ws.Cells(1, 1).Value = "N°DOSSIER"
    ws.Cells(1, 2).Value = "CAT TRANS"
    ws.Cells(1, 3).Value = "CLIENT"
    ws.Cells(1, 4).Value = "DATE UTILISATION"
    ws.Cells(1, 5).Value = "PLAQUE"
 
End Sub
Sub SupprimerLignesSansDonneesColonneE()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
 
    ' Spécifie la feuille de travail
    Set ws = ThisWorkbook.Sheets("SALES") ' Remplacez "Feuille1" par le nom de votre feuille de travail
 
    ' Trouve la dernière ligne avec des données dans la colonne E
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
 
    ' Boucle à travers toutes les lignes de bas en haut
    For i = lastRow To 1 Step -1
        ' Vérifie si la cellule de la colonne E est vide
        If IsEmpty(ws.Cells(i, 5).Value) Then
            ' Supprime la ligne si la cellule est vide
            ws.Rows(i).Delete
        End If
    Next i
End Sub
Sub TrierColonneE()
    Dim ws As Worksheet
    Dim lastRow As Long
 
    ' Spécifie la feuille de travail
    Set ws = ThisWorkbook.Sheets("SALES") ' Remplacez "Feuille1" par le nom de votre feuille de travail
 
    ' Trouve la dernière ligne avec des données dans la colonne E
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
 
    ' Trie la colonne E
    ws.Range("E1:E" & lastRow).Sort key1:=ws.Range("E1"), order1:=xlAscending, Header:=xlYes
End Sub

[Franc]

Bonjour, puisque ton fichier B doit être mis à jour quotidiennement, pourquoi ne pas y intégrer les macros ?
Je ne comprends pas l'utilité de développer tes macros dans un fichier, pour les exécuter dans un autre ???

[praetis]

Bonjour, puisque ton fichier B doit être mis à jour quotidiennement, pourquoi ne pas y intégrer les macros ?
Je ne comprends pas l'utilité de développer tes macros dans un fichier, pour les exécuter dans un autre ???

Bonjour, malheureusement c'est un fichier qui est exporté d'une application tiers et donc les macros s'efface a chaque fois

[Franc]

Ok, je comprends mieux maintenant. Dans ce ces, les solutions proposées par Thumb down sont tout à fait adaptées.

[Thumb down]

Bonjour,
ThisWorkbook est le classeur qui exécute la macro donc le classeur A.

activeWorkbook me semble plus approprié.

Tu à le choix entre un classeur xlam ou classeur type Perso.slb place dans le bon répertoire