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+
