MACRO - Exécuter la macro sur un excel du même dossier

Version imprimable

13/02/2023, 09h07
ctobi

MACRO - Exécuter la macro sur un excel du même dossier

Bonjour à tous,

j'ai créé une macro sur un fichier excel nommé A mais je souhaiterai que quand je la lance, la macro s'éxécute sur le fichier B.
Ces 2 fichiers sont dans le même dossier.
Le fichier B n'aura pas toujours le même nom.
Est-il possible de rajouter en début de ma macro une ligne disant : Ouvrir le fichier du même dossier peu importe son nom, exécuter la macro sur ce fichier.

merci pour votre aide :)

Bonjour Ctobi, la forum
Je risque de ne pas bien comprendre la demande
mais si j'ai un classeur A avec le code VBA et je veux aller ouvrir un classeur sous le même répertoire pour copier des données , tu peux faire avec :*

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub test()
Dim wkA As Workbook, wkB As Workbook
Application.ScreenUpdating = False
Set wkA = ThisWorkbook 'ton dossier ouvert ou se trouve les données
Dim fd As Office.FileDialog
Dim strFichier As String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
    .Filters.Clear
    .Filters.Add "Fichiers Excel", "*.xlsx?", 1
    .Title = "Choisissez un fichier Excel"
    .AllowMultiSelect = False
    .InitialFileName = "C:\Users\DELL\Desktop\TEST"
    If .Show = True Then
        strFichier = .SelectedItems(1)
    End If
End With
Workbooks.Open strFichier
Set wkB = ActiveWorkbook ' la classeur ouvert prends le nom WkB
wkA.Worksheets("Feuil1").Range("A1:A100").Copy wkB.Worksheets("Feuil1").Range("A1")
wkB.Close True 'fermer le classeur
 Application.ScreenUpdating = True
End Sub

13/02/2023, 12h09
deedolith

Salut,

Généralement, quand on veut qu'une fonctionnalité agisse sur plusieurs trucs, on lui donne des arguments.
Dans ton cas, ca peut être le classeur visé (EXCEL.Workbook).