lancelot92
XLDnaute Nouveau
Bonjour à tous,
J'ai un problème avec VBA que je n'arrive pas à résoudre en entier.Celui-ci est en deux partie dont je n'ai réussi à résoudre que la première. Je m'explique.
1) Je souhaitais, grâce à une macro d'un fichier de suivi, récupérer des données contenues dans des cellules bien précises d'un fichier excel _ celles-ci devant être copiées et collées dans mon fichier de suivi dans un tableau.
Voici mon code :
Sub suivi1_5S()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim titre As String
Dim wbk1 As Workbook
Dim wbk2 As Workbook
titre = "G:\Audit\Audits 5S\PROJET\Sauvegarde Audits 5S 2014\LIGN DR2\LIGN_DR2.xlsm"
Set wbk1 = ThisWorkbook
Set wbk2 = Workbooks.Open(titre)
wbk1.Sheets(1).Range("A2").Value = wbk2.Sheets(2).Range("D45").Value
wbk1.Sheets(1).Range("B2").Value = wbk2.Sheets(2).Range("F36").Value
wbk2.Close
End Sub
Tout fonctionne parfaitement.
2) En fait, je n'ai pas un seul fichier dont les données m'intéressent. J'en ai 62. Chacun de ces fichiers est contenu dans un sous-dossier, et ces 62 sous dossiers sont contenus dans un seul et même dossier parent.
Aussi, comme les sous dossiers ou fichiers peuvent êre modifiés, mon but est de demander à VBA qu'il balaye tous les fichiers du dossier parent, et que, lorsqu'il trouve un fichier, il copie les valeurs des cellules (ce sont les mêmes qui m'intéressent pour les 62 fichiers) et les écrit dans mon tableau de suivi où il y a la macro, en incrémentant pour que le tableau se construise automatiquement.
J'ai tenté des choses avec SourceFolder, mais je ne sais pas comment m'y prendre.
Auriez - vous des idées de codes à rajouter sur mon codes initial ?
Un grand merci d'avance.
J'ai un problème avec VBA que je n'arrive pas à résoudre en entier.Celui-ci est en deux partie dont je n'ai réussi à résoudre que la première. Je m'explique.
1) Je souhaitais, grâce à une macro d'un fichier de suivi, récupérer des données contenues dans des cellules bien précises d'un fichier excel _ celles-ci devant être copiées et collées dans mon fichier de suivi dans un tableau.
Voici mon code :
Sub suivi1_5S()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim titre As String
Dim wbk1 As Workbook
Dim wbk2 As Workbook
titre = "G:\Audit\Audits 5S\PROJET\Sauvegarde Audits 5S 2014\LIGN DR2\LIGN_DR2.xlsm"
Set wbk1 = ThisWorkbook
Set wbk2 = Workbooks.Open(titre)
wbk1.Sheets(1).Range("A2").Value = wbk2.Sheets(2).Range("D45").Value
wbk1.Sheets(1).Range("B2").Value = wbk2.Sheets(2).Range("F36").Value
wbk2.Close
End Sub
Tout fonctionne parfaitement.
2) En fait, je n'ai pas un seul fichier dont les données m'intéressent. J'en ai 62. Chacun de ces fichiers est contenu dans un sous-dossier, et ces 62 sous dossiers sont contenus dans un seul et même dossier parent.
Aussi, comme les sous dossiers ou fichiers peuvent êre modifiés, mon but est de demander à VBA qu'il balaye tous les fichiers du dossier parent, et que, lorsqu'il trouve un fichier, il copie les valeurs des cellules (ce sont les mêmes qui m'intéressent pour les 62 fichiers) et les écrit dans mon tableau de suivi où il y a la macro, en incrémentant pour que le tableau se construise automatiquement.
J'ai tenté des choses avec SourceFolder, mais je ne sais pas comment m'y prendre.
Auriez - vous des idées de codes à rajouter sur mon codes initial ?
Un grand merci d'avance.