[RESOLU] Comparer 2 fichiers de données

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [RESOLU] Comparer 2 fichiers de données

azkatari

Salut,

je cherche à comparer les données de deux fichiers, et ai réalisé la macro suivante:

Code :

Sub comparer()
Dim FileName, Path, Comp, Ini, Fin As String
Dim NumLigne, NumCol, MinL, MaxL, MinC, MaxC As Integer
Path = "T:\Reporting\Consolidation\"
Comp = "Indicateurs Reporting"
Workbooks.Open (lancement_comp.TextBox1)
Workbooks.Open (lancement_comp.TextBox2)
Workbooks(Comp).Activate
MinL = 14
MaxL = 30
MinC = 3
MaxC = 6
For Each ws In Worksheets
If (ws.Name <> "Sommaire" ) Then
For NumCol = MinC To MaxC
For NumLigne = MinL To MaxL
Workbooks(Comp).Sheets(ws.Name).Cells(NumLigne, NumCol).NumberFormat = "0%"
If (Workbooks(lancement_comp.TextBox1).Sheets(ws.Name).Cells(NumLigne, NumCol) <> "" ) Then
Workbooks(Comp).Sheets(ws.Name).Cells(NumLigne, NumCol) = (Workbooks(lancement_comp.TextBox1).Sheets(ws.Name).Cells(NumLigne, NumCol) - Workbooks(lancement_comp.TextBox2).Sheets(ws.Name).Cells(NumLigne, NumCol)) / Workbooks(lancement_comp.TextBox2).Sheets(ws.Name).Cells(NumLigne, NumCol)
On Error Resume Next
End If
Next NumLigne
Next NumCol
End If
Next ws
End Sub

ce qui ne marche pas du tout! J'ai une erreur "Type Mismatch" dans le Workbooks(lancement_comp.TextBox1)...
le lancement_comp.Textbox1 donne bien le nom complet du fichier 1 à comparer (C:\...fichier.xls)

qu'set ce qui coince?

Message édité par azkatari le 10-10-2007 à 15:00:19

Publicité

tegu

Si tu utilises la syntaxe « lancement_comp.TextBox1.Text », cela fonctionne-t-il mieux ?

azkatari

non j'avais de l'espoir mais rien! ca bloque toujour sur la ligne If (Workbooks(lancement_comp.TextBox1.Text).Sheets(ws.Name).Cells(NumLigne, NumCol) <> "" ) Then en disant Subscript out of range
Pourtant Textbox1.Text a bien le nom complet du fichier, ws.Name a bien le nom de la feuille, et NumLigne et NumCol sont bien au bon numéro, et le fichier est bien ouvert

tegu

Attends !
Dans la syntaxe « workbooks(truc) », truc ne doit pas comporter le chemin complet, mais juste le nom du document (si le document est bien ouvert, bien sûr).

Message édité par tegu le 10-10-2007 à 14:08:07

azkatari

j'ai rajouté ca:

Dim Splichemin(),Fin,Ini as String
Splitchemin = Split(lancement_comp.TextBox1, "\", -1, vbTextCompare)
Fin = Splitchemin(UBound(Splitchemin))

ca marche beaucoup mieux comme ca! merci chef :hello:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[RESOLU] Comparer 2 fichiers de données

Sujets relatifs
[Delphi] fonction sur String [Résolu]	[Résolu]Probleme d'enregistrement - envoi de formulaire
[Résolu] Probleme d'enregistrement lors d'un envoi de formulaire	[RESOLU] Enlever retour à la ligne entre balises HTML
[Résolu] [Ajax-Rico] Réponse envoyée mais pas de mise à jour	[Résolu] WMI requete WQL
Quelques problèmes de fichiers + chemins d'accès	[resolu]Besoin d'aide pour jointure sur mySQL
[Résolu] Tableau dynamique	[Resolu] Ie6 me surprendra toujours....
Plus de sujets relatifs à : [RESOLU] Comparer 2 fichiers de données

Page générée en 0.049 secondes