> Tous les forums > Forum Bureautique
 Excel 2016 nom classeur dans macroSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
TJA435
  Posté le 08/05/2022 @ 14:40 
Aller en bas de la page 
Astucien
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.

Publicité
galopin01
 Posté le 13/05/2022 à 20:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Merci pour ta réponse.

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

Merci encore.

Page : [1] 
Page 1 sur 1

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

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

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

Sujets relatifs
excel 2016 erreur dans macro
[Macro XL 2016- Recherche de texte dans classeur]
Excel 2016 Macro avec erreur 9
Excel 2016 macro filtre avancé
Excel 2016 erreur 1004 dans vba
excel vba comment changer le nom du classeur
Les modèles dans Excel 2016
Excel 2016 macro
Anomalie à l'édition dans excel 2016
Pourquoi classeur Excel 2016 s'affiche partiellement à l'écran avant impres
Plus de sujets relatifs à Excel 2016 nom classeur dans macro
 > Tous les forums > Forum Bureautique