salut le FORUM
je me permets de solliciter de l'aide car j'ai ce code que je dois modifier car l'architecture de mon fichier doit-être modifié aussi. ce code permet de faire une recherche dans une feuille4 qui se trouvais dans le même fichier excel que mes tableaux à remplir. aujourd'hui cette feuille4 va devoir faire l'objet d'un fichier propre.
en somme il y aura 2 fichiers dans un dossier:
fichier A (tableaux à remplir)
fichier B (Bdd feuille4)
...et le hic c'est qu'il y aura des copies de ce dossier par mois.
je souhaiterais pr faire simple, indiquer à ma macro qu'il faut qu'elle récupère le fichier B avec la feuille4 dans le même dossier où ce trouve le fichier A avec cette macro?
en gros un code qui permet de rechercher un nom de fichier dans le répertoire du fichier ouvert?
quelqu'un connaitrait-il un code pour rechercher l'adresse du fichier ouvert?
du genre "ActiveWorkbook.Path"
mais je ne sais pas comment l'adapter...
pourriez-vous me filer un coup de main?
merci par avance et n'hésitez à me contacter.
a + le forum et merci par avance pr tte proposition
je me permets de solliciter de l'aide car j'ai ce code que je dois modifier car l'architecture de mon fichier doit-être modifié aussi. ce code permet de faire une recherche dans une feuille4 qui se trouvais dans le même fichier excel que mes tableaux à remplir. aujourd'hui cette feuille4 va devoir faire l'objet d'un fichier propre.
en somme il y aura 2 fichiers dans un dossier:
fichier A (tableaux à remplir)
fichier B (Bdd feuille4)
...et le hic c'est qu'il y aura des copies de ce dossier par mois.
je souhaiterais pr faire simple, indiquer à ma macro qu'il faut qu'elle récupère le fichier B avec la feuille4 dans le même dossier où ce trouve le fichier A avec cette macro?
en gros un code qui permet de rechercher un nom de fichier dans le répertoire du fichier ouvert?
quelqu'un connaitrait-il un code pour rechercher l'adresse du fichier ouvert?
du genre "ActiveWorkbook.Path"
mais je ne sais pas comment l'adapter...
pourriez-vous me filer un coup de main?
merci par avance et n'hésitez à me contacter.
a + le forum et merci par avance pr tte proposition
Code:
Sub PLAY()
bas = [A65000].End(3).Row
dcol = [IV4].End(xlToLeft).Column - 2
Range("C5", Cells(bas, dcol)).ClearContents
[COLOR="Red"]avant la feuille4 était dans le même fichier, aujourd'hui j'aurais
besoin de modifier cette ligne de code pour
mettre à la place l'adresse du fichier où se situera cette feuille4[/COLOR]
For k = 2 To Feuil4.[A65000].End(3).Row
col = Application.Match(Feuil4.Cells(k, 3), Range("C3", Cells(3, dcol)), 0)
lig = Application.Match(Feuil4.Cells(k, 1), Range("A5:A" & bas), 0)
On Error Resume Next
Cells(lig + 4, col + 2) = Cells(lig + 4, col + 2) + 1
If Err > 0 Then Err.Clear
Next
End Sub