Macro : Activer un fichier en utilisant le début de son nom

Question

Comment puis-je, dans une macro, activer automatiquement un fichier en utilisant uniquement le début de son nom. Exemple : Windows("Test1.xls").Activate active Test1 Windows("Test2.xls").Activate active Test2 Existe-il un caractère ( * ou % )ou une commande qui permettrait d'activer le fichier "Test" indépendamment du n° 1 ou 2. Merci de votre aide Cordialement Bertrand...

Dan · Answer

Il est possible d'activer automatiquement si on remplace le chiffre par une variable. exemple si "i" est la variable Windows("Test" &amp; i &amp; ".xls").Activate Lorsque i vaudra 1, ce sera Test1 et ainsi de suite. Maintenant faut éviter les "activate" car excel permet de lire d'un fichier vers l'autre sans l'activer. Le tout est de bien déclarer les noms dans le code. A voir avec l'application car mom commentaire n'est qu'un conseil qui ne peut être confirmé que si 'lon connait le problème complet. Amicalement...

Dan · Answer

Re, Cela se pourrait oui. Hormis la date en fin de nom de fichier, quel est le nom exact du fichier ? Je suppose que tu l'ouvres manuellement et ce 1 par 1 puis tu veux copier la feuille dans le 5 eme fichier. Si oui, quel est le nom de la feuille à copier ? A te relire...

Dan · Answer

Re Il y a une raison particulière à cela ? Les copies se font vers une feuille générale ou des feuilles comportant le même nom que le fichier ? Attention aussi si tu fais cela à l'ouverture de manière automatique car à chaque ouverture de ton 5ieme fichier, le code exécutera le code en question. A te relire...

Dan · Answer

Re,

Merci de ces explications bien claires

Pour le mettre à jour, je clique sur un bouton (situé sur ce 5° fichier)

C'est mieux de faire cela plutôt que de faire le transfère automatiquement à l'ouverture du fichier 5 comme tu le précisais avant.

Le fait que ton nom change chaque jour ne gêne pas puisque je vois maintenant le nom des onglets qui est repris dans le nom de fichier. Juste pour confirmer dans le fichier 5 le nom onglet est bien BAD ou est M2_TO_DATE_REQUIREMENT_(BAD) ?

Je suppose que la structure des 4 fichiers correspond à la structure de la feuille concernée dans le fichier 5.

A te relire

Dan · Answer

Re,

Voici un code à essayer et à associer avec ton bouton

Sub test()
'Dan pour legrandb
Dim wb As Workbook
For Each wb In Workbooks
    If Workbooks.Count = 1 Then MsgBox "les fichiers M2... à transférer ne sont pas ouverts !!"
    If wb.Name <> ThisWorkbook.Name Then
        On Error Resume Next
        Select Case Left(wb.Name, Len(wb.Name) - 13)

        Case Is = UCase("M2_TO_DATE_REQUIREMENT_(BAD)")
            'ici le code pour transférer les données vers onglet BAD

        Case UCase("M2_LINKS")
            'ici le code pour transférer les données vers onglet LINKS

        Case UCase("M2_INVENTORIES")
            'ici le code pour transférer les données vers onglet INVENTORIES

        Case UCase("M2_ORDERS")
            'ici le code pour transférer les données vers onglet ORDERS

        End Select
    End If
Next
End Sub

Il te faudra ajouter le code pour le transfère des données vers chaque feuille en question. Là je ne peux t'aider plus sans voir le fichier recap en question.

A ta dispo si besoin.

Amicalement

Dan · Answer

Re,

A chaque "case", le code doit savoir dans quel fichier aller faire l'opération que tu demandes.

Exemple :

Cells.Select
Selection.Copy
Sheets("Links").Select
Range("A1").Select
ActiveSheet.Paste

Excel ne sait pas où il doit prendre l'info..

Comme je vois ce que tu veux faire je vais te donner les instructions pour adapter.

PS : Lorsque tu places un code, utilises les balises prévues et sélectionnant le code puis en cliquant sur le bouton "Code"

Amicalement

Dan · Answer

Re,

Essaie comme ceci :

Sub test()
'Dan pour legrandb
Dim wb As Workbook

For Each wb In Workbooks
    If Workbooks.Count = 1 Then MsgBox "les fichiers M2... à transférer ne sont pas ouverts !!"
    If wb.Name <> ThisWorkbook.Name Then
        On Error Resume Next
        Select Case Left(wb.Name, Len(wb.Name) - 13)

        Case Is = UCase("M2_TO_DATE_REQUIREMENT_(BAD)")
        Workbooks(wb.Name).ActiveSheet.Columns("A:T").Copy _
            ThisWorkbook.Sheets(UCase("bad")).Range("A1")

        Case UCase("M2_LINKS")
        Workbooks(wb.Name).ActiveSheet.Cells.Copy _
            ThisWorkbook.Sheets(UCase("Links")).Range("A1")

        Case UCase("M2_INVENTORIES")
        Workbooks(wb.Name).ActiveSheet.Cells.Copy _
            ThisWorkbook.Sheets(Ucase("Inventories")).Range("A1")

        Case UCase("M2_ORDERS")
        Workbooks(wb.Name).ActiveSheet.Cells.Copy _
            ThisWorkbook.Sheets(ucase("Orders")).Range("A1")

        End Select
    End If
Next
End Sub

Note que là tu copies des feuilles entières y compris les cellules vides et qu'il serait parfois plus simple de ne copier réellement les données. Mais le code sera plus conséquent bien sûr

Oublie pas de cloturer si ok

Amicalement

Dan · Answer

Re, tant mieux Pour le reste je ne comprends pas car j'ai tout de même testé le code avant de le poster et je n'ai aucun souci. ton code est bien placé dans le fichier 5 et ce, dans un module ?? essaie : en enlevant le "on error resume next" du code pour voir où tu as une erreur. vérifie le nom de tes feuilles dans ton fichier 5. Pas d'espace dans le nom des onglets. Il doit correspondre à Bad, Links, .... sinon mets tes deux fichiers en ligne que je fasse le test en réel. A te relire...

Banzai64 · Answer

Bien que Dan aurait pu te répondre Tes noms de fichier ne correspondent pas trop à ce que tu avais indiqué Remplace cette ligne Select Case Left(wb.Name, Len(wb.Name) - 13) par celle-ci Select Case Left(wb.Name, InStrRev(wb.Name, "_") - 1) Bonne soirée...

Dan · Answer

Re, Ben comme dit Banzai, tes infos mentionnaient que le fichier se terminait par une date et là je vois 3 caractères en plus ... &#91;1&#93; Donc dans cette instruction Select Case Left(wb.Name, Len(wb.Name) - 13) , on peut remplacer le 13 par 16. Il n'y a pas besoin du "paste" car dans ce cas excel voit qu'il faut coller l'info. Ceci n'est pas valable en cas d'un "paste special" où là il faut mentionner le "paste…" Amicalement...