comparer 2 fichier excel

comparer 2 fichier excel - VB/VBA/VBS - Programmation

Marsh Posté le 17-04-2005 à 11:36:05    

Bonjour
 
Voila j'ai besoin de réaliser un fichier excel pour mon stage qui va chercher des données dans un autre fichier excel
Tous les 15 jours je reçoi un fichier excel contenant une liste d'outil avec un ID et un nom donc 2 colonnes.
Je dois donc étudier ce fichier et ajouter à mon autre fichier les nouveaux outils qui aurai ete ajouter.
Je pense qu'il doit être possiblde de réaliser sa avec vba mais je connais pas ce language.
Ca serait cool si quelqu'un pourrai me donner des idées ou un bout du code.
 
merci d'avance

Reply

Marsh Posté le 17-04-2005 à 11:36:05   

Reply

Marsh Posté le 17-04-2005 à 19:47:04    

manu_le_malin a écrit :

Bonjour
 
Voila j'ai besoin de réaliser un fichier excel pour mon stage qui va chercher des données dans un autre fichier excel
Tous les 15 jours je reçoi un fichier excel contenant une liste d'outil avec un ID et un nom donc 2 colonnes.
Je dois donc étudier ce fichier et ajouter à mon autre fichier les nouveaux outils qui aurai ete ajouter.
Je pense qu'il doit être possiblde de réaliser sa avec vba mais je connais pas ce language.
Ca serait cool si quelqu'un pourrai me donner des idées ou un bout du code.
 
merci d'avance


 
pour lire dans un autre fichier excel (non ouvert)
 
    Dim lignE As Integer, NbLigneS As Integer
    Dim ColonnE As Integer, NbColonneS As Integer, valeur As Variant
    Dim Chemin As String, NomFic As String
    Worksheets("Sel3" ).Select
    Application.ScreenUpdating = False
 
    Ncolonnes = "22"
    Nlignes = "200"
 
    NbColonneS = CInt(Ncolonnes)
    NbLigneS = CInt(Nlignes)
 
    Chemin = "D:\ttt" 'InputBox("Chemin du fichier à lire :", "lire fichier Fermé", "C:\Mes Documents" )
    NomFic = "BIBSELST.xls" 'InputBox("Nom du fichier EXCEL à lire :", "lire fichier Fermé", "MonFichier.xls" )
 
     On Error Resume Next
    valeur = ""
    With Worksheets("Sel3" )
    For lignE = 1 To NbLigneS
        For ColonnE = 1 To NbColonneS
            .Cells(lignE, ColonnE).FormulaR1C1 = "='" & Chemin & "\[" & NomFic & "]Sel3'!RC"
            Application.StatusBar = "L" & lignE & "C" & ColonnE & ": " & .Cells(lignE, ColonnE).Value
            If .Cells(lignE, ColonnE).Value = "0" Then
            .Cells(lignE, ColonnE).Clear
            Else
            valeur = .Cells(lignE, ColonnE).Value
            .Cells(lignE, ColonnE).Value = valeur
            End If
        Next ColonnE
    Next lignE
    End With
a coller dans WorkBook_Open
 
ceci a été trouvé sur le MPFE (disciplus simplex) et je m'en sert comme un fou.
 
regarde sur le site de laurent longre pour le reste
(je n'ai pas le lien sous la main  je crois qu'il s'apelle xcell05)
 
A+

Reply

Marsh Posté le 17-04-2005 à 20:57:54    

merci pour la réponse je vais regarder sa

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed