Importer des données d'un doc externe

Question

Je me permets de vous contacter car j’ai besoin d’une aide sur un document. Tous les matins, nous imprimons un récapitulatif pour le travail. Nous saisissons ensuite manuellement ces données dans un suivi. Une mise à jour permet désormais d’extraire ce récapitulatif en Excel. Je me suis donc dit : « Bingo, on va pouvoir automatiser la tâche ». Sauf que le « bingo » devient moins fun car je suis incapable de réaliser cette macro. Malgré mes recherches sur le net, je n’y arrive pas. Ce que je souhaiterais que la macro réalise : 1. Je sélectionne dans une boite de dialogue le récapitulatif au format Excel. 2. La macro ajoute les données à mon suivi et fait un tri par date. Ca a l’air simple mais là où je bloque c’est que je n’ai besoin que des régions « Ouest », « Est », « Nord » et « Sud ». Autre inconvénient, les données peuvent parfois être décalées sur la droite, l’extraction est loin d’être parfaite, les infos ne sont pas toujours sur la même colonne… Enfin, comme vous le verrez, la zone « Sud » est particulière (seule une ligne sur deux est à importer) Pouvez-vous m’aider ? Je vous joins un récapitulatif exemple, mon tableau de suivi vierge et mon tableau de suivi avec les infos dont j’ai besoin. Merci d’avance à tous, Excellente journée, Loïc...

Edomath · Accepted Answer

Bon voilà le code de la macro :

Sub format()
    Dim Last As Integer
    Dim Region As String
    Dim NFeuille As Worksheet

    Last = Range("A65536").End(xlUp).Row
    Sheets("Sheet1").Cells.UnMerge
    Set NFeuille = Sheets.Add(After:=Sheets(Sheets.Count))
    Sheets(1).Select
    For i = 16 To Last
        If Range("A" & i).Value <> "" Then
            For j = 1 To 100 'Je boucle 100 colonnes par ce que.. je sai pas la mise en page  du fichier est pas top
                If Range(LetCol(j) & i).Value = "Nord" Or Range(LetCol(j) & i) = "Sud" Or Range(LetCol(j) & i) = "Est" Or Range(LetCol(j) & i) = "Ouest" Then
                     For k = 1 To 100
                        If Range(LetCol(k) & i).Value = "" Then
                            Columns(LetCol(k) & ":" & LetCol(k)).Delete
                        End If
                     Next

                End If
            Next
        Else
            Range("A" & i & ":" & "A" & i).EntireRow.Delete
        End If
    Next
    Last = Range("A65536").End(xlUp).Row
    For i = 16 To Last
        If Range("A" & i).Value <> "" Then
            For j = 1 To 8
                If Range(LetCol(j) & i).Value = "Nord" Or Range(LetCol(j) & i) = "Sud" Or Range(LetCol(j) & i) = "Est" Or Range(LetCol(j) & i) = "Ouest" Then

                    Dim LastF1 As Integer
                    MsgBox (LastF1)
                    LastF1 = Sheets(2).Range("A65536").End(xlUp).Row
                    LastF1 = LastF1 + 1
                    Sheets(2).Range("A" & LastF1).Value = Range("G" & i).Value
                    Sheets(2).Range("B" & LastF1).Value = Range("A" & i).Value
                    Sheets(2).Range("C" & LastF1).Value = Range("B" & i).Value
                    Sheets(2).Range("D" & LastF1).Value = Range("C" & i).Value
                    Sheets(2).Range("E" & LastF1).Value = Range("D" & i).Value
                    Sheets(2).Range("F" & LastF1).Value = Range("E" & i).Value
                End If
            Next

        End If
    Next
End Sub

Function LetCol(numCol)
    LetCol = Split(Cells(1, numCol).Address, "$")(1)
End Function

C'est pas très propre, il y a des points à améliorer mais tu as une bonne base pour comprendre (et c'est utilisable)

Après tu export ta macro. Tu l'ajoute comme macro complémentaire puis tu pourra l'utiliser sur chaque classeur. Donc quand tu télécharge le matin ton fichier tu a juste l'executer sur ce dernier et copier coller les données.

jmd · Answer

Il faut absolument que les fichiers soient de forme figée. mais il peut y avoir des différences entre Est et Ouest et Nord... Est du 15/04/17 doit avoir la même forme que Est du 14/04/17 à voir avec le programmeur de ton ERP/GPAO/GMAO nota : si tu y parviens, il doit exister même une solution sans VBA...

Edomath · Answer

Alors tout d'abord je pense que c'est possible en VBA Concernant le décalage il faut boucler honrizontalement et vérifier le nom de l'entête. Ensuite pour le sud, il suffis avec une condition de récupérer les lignes ayant une valeur dans "groupe de codes". Je vais essayer de le faire/commencer si j'ai le temps...

Edomath · Answer

Je pensais qu'il y avait un début de code mais non

Ce que tu veux c'est que tous les jours sur ton document "rendu suivi" en cliquant sur le bouton ça ajoute les données ?

Si oui, il y a plusieurs techniques faisable. Faire une ptite popup qui te demande l'emplacement du fichier télécharger, qui l'ouvre copie les données sur une autre feuille, les tris puis les insère sur ta feuille.

C'est la solution la plus complexe à mettre en place mais c'est assez performant.

Sinon tu peux faire une macro complémentaire accessible depuis tous les classeurs qui tri les données du fichier téléchargé puis tu fait un copié collé.

Edomath · Answer

Ehehn tu choisis si c'es toi qui code Là je fais la deuxième solution car c'est bien plus simple. Mais je vais chercher si j'ai pas un exemple pour la première solution...

Edomath · Answer

Je regarderais si j'ai du temps.

Mais en gros, tu importe fichier le tableau téléchargé ( c'est peut être ce que fais le code que tu as posté mais j'ai juste survolé ).

Puis tu applique mon code en mettant dans ta feuille les données.