récupérer la valeur d'une cellule dans plusieurs classeurs

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : récupérer la valeur d'une cellule dans plusieurs classeurs

lefiguier

Bonjour à tous,
Merci d'avance de m'accorder un peu de votre temps, pour m'aider à résoudre mon problème.

Je vous solicite car je voudrais récupérer la valeur d'une cellule dans plusieurs classeurs identiques sauf le nom qui change.
Je voudrais donc copier ces valeurs situées dans les cellules "F12" des feuilles "Cover Page CAA" de chaque classeurq afin de coller toutes ces valeurs dans un fichier "test_list2" dans la feuille "Listes_Devis" à partir de la cellule "D13".

Voilà le début du code mais sa marche pas :s, où est mon erreur.

Code :

Sub test()
Dim objFSO, objDossier
Dim mWbk As Excel.Workbook
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objDossier = objFSO.GetFolder("D:\totot\" )
If (objDossier.Files.Count > 0) Then
For Each objFichier In objDossier.Files
If (InStr(1, objFichier.Name, ".xls", 1) > 0) Then
Set mWbk = Excel.Workbooks.Open(objDossier.Path & "\" & objFichier.Name)
mWbk.Worksheets("Cover page CAA" ).Range("F12" ).Value
Workbook("test_list2" ).Worksheets("Liste_Devis" ).Range("D" & 13).End(xlUp)(2).Row.Paste
mWbk.Close
Set mWbk = Nothing
End If
Next
End If
End Sub

Merci d'avance de votre aide.

Publicité

otobox

Maison fondée en 2005

Ça ne marche pas où ?

---------------
OtObOxBlOg - - - Etre seul à avoir tort c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons

kiki29

Salut, peut-être en adaptant http://forum.hardware.fr/hfr/Progr [...] 0232_1.htm

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

lefiguier

Merci, de votre aide.
j'ai la solution merci à Nad.
voici la solution :

Code :

Sub Transferer()
Dim dossier As Object, Fichier As Object, Chemin As String, Lg As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = True
DerLg = Range("D65536" ).End(xlUp).Row + 1
Range("D13:D" & DerLg).Delete
Chemin = ThisWorkbook.Path
FName = Dir(Chemin & "\" & "*.xls" )
Set dossier = CreateObject("Scripting.FileSystemObject" ).GetFolder(Chemin)
Lg = 13
For Each Fichier In dossier.Files
NomFichier = Fichier.Name
If Not Fichier.Name = "test_list2.xls" Then
Workbooks.Open Filename:=Chemin & "/" & NomFichier
On Error Resume Next
With Workbooks(NomFichier)
.Sheets("Cover Page CAA" ).Range("F12" ).Copy ThisWorkbook.Sheets("Listes_Devis" ).Range("D" & Lg)
.Close
Lg = Lg + 1
End With
End If
Next
End Sub

FORUM HardWare.fr

Programmation

VB/VBA/VBS

récupérer la valeur d'une cellule dans plusieurs classeurs

Sujets relatifs
Rendu de plusieurs "plans d'eau" non aligné en OpenGL	Plusieurs TCD sur une même feuille
transmettre valeur à une image PHP	Macro sur plusieurs fichier Excel d'un même répertoire
Modifier valeur dans une base SQL	Modifier une valeur pour l'affichage
[VB/VBA/VBS]Trouver une référence dans plusieurs centaines de word	Récupérer les nombres d'une chaine de caractère ???
Récupérer valeur dir en vbs
Plus de sujets relatifs à : récupérer la valeur d'une cellule dans plusieurs classeurs

Page générée en 0.042 secondes