Bonjour à tous,
Je suis tout nouveau sur le forum et je suis débutant en VBA.
Je vous explique mon dilemme, je cherche à récupérer plusieurs variables se trouvant en colonne D dans un onglet nommé "Données" dans des fichiers que je ne souhaite pas ouvrir(trop grand nombre de fichier). Dans l'objectif après de tracer des courbes d'une même variable présent sur différents fichiers et donc de superposer toutes ces variables sur une même courbe.
Ce que j'ai réussi à faire jusqu'à maintenant : Parcourir tous les fichiers présents dans le sous-dossier de ma macro, récupérer le nom du fichier pour l'afficher sous forme d'onglet dans mon code et là je bloque. J'ai tenté quelque chose pour aller récupérer la colonne D de mes fichiers dans l'onglet "Données" mais ça ne fonctionne pas.
Voici mon code :
Merci d'avance pour votre aide.
Je suis tout nouveau sur le forum et je suis débutant en VBA.
Je vous explique mon dilemme, je cherche à récupérer plusieurs variables se trouvant en colonne D dans un onglet nommé "Données" dans des fichiers que je ne souhaite pas ouvrir(trop grand nombre de fichier). Dans l'objectif après de tracer des courbes d'une même variable présent sur différents fichiers et donc de superposer toutes ces variables sur une même courbe.
Ce que j'ai réussi à faire jusqu'à maintenant : Parcourir tous les fichiers présents dans le sous-dossier de ma macro, récupérer le nom du fichier pour l'afficher sous forme d'onglet dans mon code et là je bloque. J'ai tenté quelque chose pour aller récupérer la colonne D de mes fichiers dans l'onglet "Données" mais ça ne fonctionne pas.
Voici mon code :
VB:
Sub test()
Dim nomFeuille As String
Dim start As Single
Dim ws As Worksheet
Dim monFichier As String
Dim wb As Workbook
Dim chemin As String
Dim i As Integer
Dim nom As String
Set wb = Workbooks(ThisWorkbook.Name)
Dim sh As Worksheet
chemin = ThisWorkbook.Path & "\l'emplacement_en_sous_dossier_de_mes_fichiers_excel\"
monFichier = Dir(chemin & "*.xlsx", vbNormal)
Do While monFichier <> ""
Debug.Print monFichier
onglet = Split(monFichier, "_")(4) 'je retiens que la fin du fichier
wb.Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = onglet
'Cette boucle ne fonctionne pas et j'aimerais quelle récupère les valeurs de la colonne D commençant à la ligne 4 et colonne 2
For Each sh In ActiveWorkbook.Worksheets
For i = 8 To 150
'colonne D
j = 4
Cells(i - 4, j - 2) = "='" & ThisWorkbook.Path & "\[" & monFichier & "]Données'!R" & i & "C" & j:
Next
Next sh
monFichier = Dir
Loop
End SubMerci d'avance pour votre aide.