VBA - Recherche dans des fichiers fermés

tototiti2008

XLDnaute Barbatruc

• 15 Novembre 2011

• #2

Re : VBA - un novice a besoin de votre aide...

Bonjour julien,

Bienvenue sur XLD,

Pourriez-vous m'aider ?

Cliquez pour agrandir...

Peut-être bien
Mais sans exemple de fichier duquel extraire les données, on risque de rester très théorique.

 

Vote positif 0 Vote négatif

J

julien44340

Guest

• 15 Novembre 2011

• #3

Re : VBA - un novice a besoin de votre aide...

Ce sont des tableaux simples :

- A chaque colonne, vous avez les objectifs pour chaque commercial suivi de l'objectif global (ce qui m'intéresse)

- A chaque ligne, vous avez la nomination de chaque article avec des lignes de sous-totaux pour le petit matériel et pour le gros matériel.

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 15 Novembre 2011

• #4

Re : VBA - un novice a besoin de votre aide...

BONJKOUR
Et ici se sont des bénévoles simple
qui en colonne n'ont pas toujours leur boule de cristal
qui en ligne pas toujours très discipliné.
Tout ce que demande Tototiti c'est tes fichiers exemples ;pour que tu suivent aussi la réalisation de l'aide et ne pas faire n'ont plus le travail a ta place.
Tu devrais déja remercier totiti de s'interesser à ton problème si rapidement
A ++

 

Vote positif 0 Vote négatif

J

julien44340

Guest

• 15 Novembre 2011

• #5

Re : VBA - un novice a besoin de votre aide...

Toutes mes excuses pour ce manque de politesse.

Je vous ai mis les fichiers en pièces jointes.

Depuis 3 bonnes heures, j'essaye de comprendre le langague VBA, et de temps à autre je "pompe" quelques formules à gauche à droite sur le net mais il y a des notions de base que je ne connais pas...

Grand merci à vous !
Et bon courage si vous bossez vous aussi.

 

Pièces jointes

• macro_nantes & rennes.xls

  39 KB · Affichages: 41
• objectifs nantes 010911.xls

  29.5 KB · Affichages: 36
• objectifs rennes 010911.xls

  29 KB · Affichages: 45
• objectifs rennes 011011.xls

  29 KB · Affichages: 32

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 15 Novembre 2011

• #6

Re : VBA - un novice a besoin de votre aide...

Re,

une autre remarque : change le titre de ta discussion en "Recherche dans des fichiers fermés" ou un truc du genre en éditant ton premier message et en modifiant son titre
la charte (Lien supprimé) demande des titres de discussions en lien avec la problématique, de manière à faciliter la recherche d'autres personnes sur le même thème à l'avenir.

Sinon, pour ton problème :
tous les fichiers des objectifs se trouvent dans un même dossier ?
dans le même dossier que la macro ?

 

Vote positif 0 Vote négatif

J

julien44340

Guest

• 15 Novembre 2011

• #7

Re : VBA - un novice a besoin de votre aide...

tototiti2008,

En fait, la macro se trouve dans un dossier qui s'appelle "objectifs".
Et dans ce dossier-là il y a des sous-dossiers appelés "012011", "022011", etc... dans lesquels il y a entre autres les fichiers des objectifs.

Merci pour ton aide.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 15 Novembre 2011

• #8

Re : VBA - Recherche dans des fichiers fermés

Re,

C'est l'objectif global que tu veux récupérer pour chaque ligne, ou dans quelle colonne ?

 

Vote positif 0 Vote négatif

J

julien44340

Guest

• 15 Novembre 2011

• #9

Re : VBA - Recherche dans des fichiers fermés

exactement, pour chaque produit, j'aurais besoin de l'objectif global.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 15 Novembre 2011

• #10

Re : VBA - Recherche dans des fichiers fermés

Re,

Pas sûr de moi, peut-être

Code:

Private Sub CommandButton1_Click()
Dim Adresse As String, Dte As String, Dte2 As String, i As Long, Ligne As Long, Fic As String, NomFic As String
    Dte = Format(Range("A2").Value, "MMYYYY")
    Dte2 = Format(Range("A2").Value, "DDMMYY")
    
    Adresse = ThisWorkbook.Path & "\" & Dte & "\"
    Ligne = Range("A65536").End(xlUp).Row
    For i = 2 To Range("IV4").End(xlToLeft).Column
        Fic = Adresse & Cells(4, i).Value & " " & Dte2 & ".xls"
        NomFic = Cells(4, i).Value & " " & Dte2 & ".xls"
        If Dir(Fic) <> "" Then
            Range(Cells(5, i), Cells(Ligne, i)).FormulaR1C1 = _
                "=INDEX('" & Adresse & "[" & NomFic & "]Feuil1'!R5C2:R65536C27,MATCH(RC1,'" & Adresse & "[" & NomFic & "]Feuil1'!R5C1:R65536C1,0),MATCH(""objectif global"",'" & Adresse & "[" & NomFic & "]Feuil1'!R4C2:R4C256,0))"
        End If
    Next i
End Sub

Edit : Oups, erreur détectée, j'ai corrigé le code

 

Dernière édition: 15 Novembre 2011

Vote positif 0 Vote négatif

J

julien44340

Guest

• 15 Novembre 2011

• #11

Re : VBA - Recherche dans des fichiers fermés

Un grand merci !!!. je vais faire un essai.
A+ c'est sympa de m'avoir aidé.

Bonne soirée

 

Vote positif 0 Vote négatif