Discussion :

[sangokusabri]

Bonjour,
Je veux bien développer une macro qui fait la mise à jour d'un fichier excel "local" à partir d'un autre en réseau et qui me permet d'ajouter les nouvelles lignes publiées dans ce fichier en réseau et par contre supprimé les lignes qui se trouve dans le fichier local par contre ils n'existent plus dans le fichier en réseau.
j'ai déjà un petit programme ci-dessous mais il ne fonctionne pas beaucoup de problèmes d’exécution.

Merci d'avance de proposer des corrections ou d'autres solutions si possible.


"

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
Sub essai()
Dim DerSc As Long, WSource As Workbook, FSource As Worksheet
Dim derMaj As Long, WMaj As Workbook, FMaj As Worksheet, FC As String
Dim x As Long
Application.ScreenUpdating = False
Set WSource = Workbooks.Open(Filename:="C:\Users\ssaddi\Desktop\REQUETEGIR.xls")
Set FSource = WSource.Sheets("REQ")
Set FMaj = WMaj.Sheets("feuil1")
Set WMaj = Workbooks("fichier_maj.xls")
 
'si les ref sont en B dans les deux fichiers
DerSc = FSource.Range("B" & FSource.Rows.Count).End(xlUp).Row 'dernière ligne du fichier source
derMaj = FMaj.Range("B" & FMaj.Rows.Count).End(xlUp).Row 'dernière ligne du fichier source
'les données du fichier "maj" commencent en B2
'une colonne temporaire
FC = "=NB.SI(" & "'[" & WSource.Name & "]" & FSource.Name & "'!$B$2:$B$" & DerSc & ";B2)"
FMaj.Range("F2").FormulaLocal = FC
FMaj.Range("F2").AutoFill Destination:=FMaj.Range("F2:F" & derMaj), Type:=xlFillDefault
For x = derMaj To 2 Step -1
    If FMaj.Range("F" & x) = 0 Then
        FMaj.Range("F" & x).EntireRow.Delete
    End If
Next x
'on supprime la colonne temporaire
FMaj.Columns("F:F").Delete
'on recommence mais à l'envers, pour ajouter les lignes
DerSc = FSource.Range("B" & FSource.Rows.Count).End(xlUp).Row
derMaj = FMaj.Range("B" & FMaj.Rows.Count).End(xlUp).Row
'une colonne temporaire, cette fois au fichier source
FC = "=NB.SI(" & "'[" & WMaj.Name & "]" & FMaj.Name & "'!$B$2:$B$" & derMaj & ";B2)"
FSource.Range("F2").FormulaLocal = FC
FSource.Range("F2").AutoFill Destination:=FSource.Range("F2:F" & DerSc), Type:=xlFillDefault
For x = Der_Sc To 2 Step -1
    If F_Source.Range("F" & x) = 0 Then
        F_Maj.Range("A" & derMaj + 1, "G" & derMaj + 1).Value = FSource.Range("A" & x, "G" & x).Value
        derMaj = FMaj.Range("B" & FMaj.Rows.Count).End(xlUp).Row
    End If
Next x
'on supprime la colonne temporaire
FSource.Columns("F:F").Delete
 
Application.ScreenUpdating = True
 
    Application.Goto Reference:="Miseajour"
    Application.WindowState = xlMinimized
    Application.WindowState = xlMinimized
End Sub

"

[Menhir]

j'ai déjà un petit programme ci-dessous mais il ne fonctionne pas beaucoup de problèmes d’exécution.

Qu'est-ce qui ne fonctionne pas dans ce programme ?
Quels sont les "problèmes d'exécution" ?
Qu'est-ce qu'il est supposé faire EN DETAIL ?
Est-ce un programme que tu as écrit ou quelque chose que tu as récupéré sur le net sans vraiment savoir ce qu'il contient ?

[sangokusabri]

Bonjour,
En effet, j'ai des problèmes de débogage, blocage sur la ligne 9 et vu que je débute la programmation des macros j'arrive pas à localiser l'erreur.
Explication:
la macro doit comparer entre deux fichiers excel (le premier est en ligne et le deuxième est enregistré en local et ils sont sous le même format) et enregistre sur le fichier en local les données de base + mise à jour( la différence entre les deux fichiers).
Je ne sais pas si c'est bien clair?

[SfJ5Rpw8]

Bonjour,

l'erreur ne serait pas plutôt en ligne 8 ? l'ordre des lignes n'est pas cohérent en ligne 8 tu référence une feuille de ton classeur WMaj , cependant tu ne définit ce classeur qu'en ligne 9 ... essai déjà d'inverser tes lignes 8 et 9 et lors d'un "problème de débogage" n'oubli pas de lire le message d'erreur et de nous le reporter...

[sangokusabri]

J'ai essayé d'inverser les lignes mais le problème persiste, vous trouvez en pièce jointe le message d'erreur. Je pense aussi que c'est un problème de déclaration des variables mais je vois pas l'erreur .

[SfJ5Rpw8]

ce message d'erreur est si long que tu ne peu le recopier ... (je n'ai pas word ici...)

[sangokusabri]

OK désolé le message d'erreur est le suivant: WSource.Sheets("REQ")=<Lindicce n'appartirnt pas à la séléction

[SfJ5Rpw8]

bon à ce que je vois l'erreur n'est pas sur la ligne 8 mais sur la ligne 7 ..!

ton classeur "C:\Users\ssaddi\Desktop\REQUETEGIR.xls" possède bien une feuille nommée "REQ" ??

[sangokusabri]

Merci beaucoup pour ton aide j'ai fait fonctionner la macro mais elle ne répond pas à mes besoins.
Je n'ai pas eu le résultat attendu.

Je vais essayer de bricoler sur les boucles de cette solution pour l'adapter a mes besoins.