Excel 2016 nom classeur dans macro

Excel 2016 nom classeur dans macro Sujet résolu

Ajouter un message à la discussion

TJA435

Posté le 08/05/2022 @ 14:40

Bonjour,

Dans la macro ci-dessous (récupérée sur le site de Jacques Boisgontier),

-------------------------------------------------------------------------------------------------------------

Sub FiltreAutreClasseur()
' le classeur cible existe (FiltreCible.xls)
' le classeur cible contient les en-têtes de colonne à extraire en A1:E1
nf = ActiveWorkbook.Name
ChDir ActiveWorkbook.Path
Application.DisplayAlerts = False
Workbooks.Open ("filtrecible.xls")
Windows(nf).Activate
Range("A1:E1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("F1:F2"), _
CopyToRange:=Workbooks("FiltreCible.xls").Sheets("Cible").Range("A1:E1"), Unique:=False
End Sub

-------------------------------------------------------------------------------------------------------------

je n’ arrive pas à codifier le fichier équivalent à « nf » :

("D:\ODUJ\ACTUEL\CL710290_2021-2022\CL710290_2021-2022 - Copie.xlsx")

qui se trouve dans un répertoire différent de celui du classeur (FiltreCible.xls) contenant la macro.

Merci pour vos conseils et votre aide.

galopin01

Posté le 13/05/2022 à 20:11

Bonjour,

Essaie de modifier comme ça :

Sub FiltreAutreClasseur()
Dim NameFil$, WBS As Workbook, WBC As Workbook
NameFil = "D:\ODUJ\ACTUEL\CL710290_2021-2022\CL710290_2021-2022 - Copie.xlsx"
Application.DisplayAlerts = False
Set WBS = ThisWorkbook
Set WBC = Workbooks.Open(NameFil)
WBS.Range("A1:E1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=WBS.Range("F1:F2"), _
CopyToRange:=WBC.Sheets("Cible").Range("A1:E1"), Unique:=False
End Sub

A+

Modifié par galopin01 le 13/05/2022 20:24

TJA435

Posté le 15/05/2022 à 18:17

Bonjour Galopin01,

Merci pour ta réponse.

Ça marche.

Pourquoi ajoutes-tu un $ à Namefil (Dim NameFil$) ?

As tu vu mon autre demande "Excel 2016 message dans macro" ?

Merci beaucoup pour ton aide.

galopin01

Posté le 15/05/2022 à 20:42

Bonjour,

Dim NameFil$ est l'équivalent à :

Dim NameFil as String

Personnellement je préfère cette écriture plus courte et universellement connue.

Pour l'autre fil je considère que c'est le même non ?

A+

TJA435

Posté le 16/05/2022 à 08:59

Bonjour,

Merci pour ta réponse.

Pour l' autre fil, c' est un autre fil.

Merci encore.

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

18,99 €

Souris Logitech G402 Hyperion à 18,99 €
~~40 €~~ -53%

Grosbill propose actuellement la souris Logitech G402 Hyperion à 18,99 € alors qu'on la trouve ailleurs à partir de 40 €. Une belle réduction pour une très bonne souris filaire dédiée aux joueurs (capteur 4000 dpi, résolution ajustable, 8 boutons programmables).

Voir l'offre

291,33 €

SSD Interne M.2 NVMe PCIe 4.0 Samsung 980 PRO 2 To (avec dissipateur, 7000 Mo/s) à 291,33 €
~~350 €~~ -17%

Amazon fait une promotion sur le SSD Interne M.2 NVMe PCIe 4.0 Samsung 980 PRO 2 To avec son dissipateur de chaleur qui passe à 291,33 €. On le trouve ailleurs à partir de 350 €. Ce SSD offre des taux de transfert de 7000 Mo /s en lecture et 5100 Mo/s en écriture. Une excellente affaire.

Notez qu'il est compatible avec la console de jeux PS5.

Voir l'offre

209,99 €

Ecran PC 24.5 pouces Dell S2522HG (FullHD, IPS, 240 Hz, 1 ms, FreeSync) à 209,99 €
~~299,99 €~~ -30%

Fnac fait une promotion sur l'écran PC 24.5 pouces Dell S2522HG qui passe à 209,99 € au lieu de 299,99 € ailleurs. Cet écran possède une dalle IPS Full HD (1920x1080) à 240 Hz et avec un temps de réponse de 1 ms. Il est compatible FreeSync (et GSync via Adaptive Sync). La hauteur, l'inclinaison et la rotation de l'écran sont réglables. 2 ports HDMI et 1 port DP. Il peut faire également office de hub USB 3.2 (2 ports).

Voir l'offre

99 €

PC fixe Lenovo ThinkCentre M83 reconditionné (Core i3, 8Go RAM, SSD 240 Go, DVD-R, Win10) à 99 €
~~159 €~~ -38%

AfB Shop propose le PC fixe Lenovo ThinkCentre M83 reconditionné à 99 €. Il possède un processeur Intel Core i3-4130 (3.4 GHz), 8 Go de RAM, un SSD de 240 Go, un graveur de DVD et tourne sous Windows 10. Le PC est nettoyé, remis en état, testé et garanti 12 mois.

Ce PC est adapté pour un poste bureautique / Internet.

Voir l'offre