Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fichier source change de nom

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nyal3
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

nyal3

Guest
bonjour
J'ai une macro qui m'importe des données depuis un fichier xls.le problème c'est que ce fichier change de nom toute les semaines.
Je voulais savoir si il y a un moyen pour ne pas changer le chemin d'accés à ce fichier à chaque fois?
Merci.
 
Trier par date Trier par votes
Re : Fichier source change de nom



Bonjour nyal3, le fil,

Effectivement, il y a une erreur sur cette ligne (en effet, faute de fichier exemple à se mettre sous la dent, le code n'avait pas été testé...). Essaye avec cette ligne :
Code: 
Set classeurSemaine = Application.Workbooks.Open(pathClasseurSemaine, ,  True)
a+
 
Vote positif 0 Vote négatif
Re : Fichier source change de nom

nyal3 à dit:
Bon à part le N° de semaine qui differe de la semaine en cours tout est OK.
Merci encore pour votre aide. 🙂
Cliquez pour agrandir...

faut pas faire les choses à moitié :

Code: 
pathClasseurSemaine = "F:\Compteurs\compteurs_Semaine_" & application.WorksheetFunction.WeekNum(date)-iif(application.WorksheetFunction.Weekday(dateserial(year(date),1,1))>5,1,0) & ".xls"

😉
 
Vote positif 0 Vote négatif
Re : Fichier source change de nom


ça me met "propriété ou methode non gerée par cet objet"

@+
 
Vote positif 0 Vote négatif
Re : Fichier source change de nom

Pour les macro complémentaires, le classeur est utilisé par plusieurs personnes et je ne pense pas pouvoir activer les macros sur tous les postes.
@+
 
Vote positif 0 Vote négatif
Re : Fichier source change de nom

bonjour le fil,

essaye avec
Code: 
pathClasseurSemaine = "F:\Compteurs\compteurs_Semaine_" & Format(DatePart("ww", DateSerial(1, 1, 1), vbMonday, vbFirstFourDays), "00") & ".xls"

a+
 
Vote positif 0 Vote négatif
Re : Fichier source change de nom

mromain à dit:
bonjour le fil,

essaye avec
Code: 
pathClasseurSemaine = "F:\Compteurs\compteurs_Semaine_" & Format(DatePart("ww", DateSerial(1, 1, 1), vbMonday, vbFirstFourDays), "00") & ".xls"

a+
Cliquez pour agrandir...

salut

bien vu, mais ça me renvoi = 01

essaie plutot comme ça :


Code: 
pathClasseurSemaine = "F:\Compteurs\compteurs_Semaine_" & DatePart("ww", date, vbMonday, vbFirstFourDays) & ".xls"
 
Vote positif 0 Vote négatif
Re : Fichier source change de nom

Re,

exact, j'avais laissé la ligne de code qui m'avait servis pour les test.
Donc, il faut faire comme propose bérylion.
Par contre, en semaine 1, elle renverra F:\Compteurs\compteurs_Semaine_1.xls.
Si tu souhaites F:\Compteurs\compteurs_Semaine_01.xls, essaye avec cette ligne :
Code: 
pathClasseurSemaine = "F:\Compteurs\compteurs_Semaine_" & Format(DatePart("ww", Date, vbMonday, vbFirstFourDays), "00") & ".xls"

a+
 
Vote positif 0 Vote négatif
Re : Fichier source change de nom

Bonsoir le fil,

Merci MRomain & Bérylion,ça marche super !!

Sans vouloir être lourd,est-il possible de retirer 1 voir 2 semaines à la semaine en cours?

Merci encore pour votre aide .
 
Vote positif 0 Vote négatif
Re : Fichier source change de nom

nyal3 à dit:
Bonsoir le fil,

Merci MRomain & Bérylion,ça marche super !!

Sans vouloir être lourd,est-il possible de retirer 1 voir 2 semaines à la semaine en cours?

Merci encore pour votre aide .
Cliquez pour agrandir...

😱

ça s'appelle une soustraction 😀

Code: 
pathClasseurSemaine = "F:\Compteurs\compteurs_Semaine_" & DatePart("ww", date, vbMonday, vbFirstFourDays) [COLOR="Red"][B]-1[/B][/COLOR] & ".xls"

😉
 
Vote positif 0 Vote négatif
Re : Fichier source change de nom

nyal3 à dit:
Merci,il est vrai que là j'ai l'air un peu c..!
Cliquez pour agrandir...

j'y suis peut-être plus que t'en as l'air...

ça ne gère pas les changements d'année !!

en semaine 01, ton code va chercher la semaine 00 ; et y risque pas de trouver !?

en revanche, de cette manière y veut meme pas couiner :

Code: 
pathClasseurSemaine = "F:\Compteurs\compteurs_Semaine_" & DatePart("ww", date - [COLOR="Red"][B]1[/B][/COLOR]*7+1, vbMonday, vbFirstFourDays) & ".xls"

[chiffre à changer suivant le nbre de semaine dont tu veux reculer]

😉
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
  • Question Question
XL 2021 Création automatique de lien hypertexte
Réponses
4
Affichages
212
Dimitry
D
  • Question Question
XL 2013 La cellule change de valeur à chaque page d'impression
Réponses
9
Affichages
425
Phil69970
B
  • Résolu(e)
XL 2021 Doublon à fusionner
2
Réponses
24
Affichages
676
job75
  • Question Question
XL 2019 Gestion de 4 sources de revenu (A, B, C et D). Et rajout du jour en cours et MEFC qui doit varier selon le mois en cours...
Réponses
8
Affichages
263
sylvanu
K
  • Question Question
Microsoft 365 Gestion de certificat
Réponses
1
Affichages
171
Piment
P
  • Question Question
Microsoft 365 Excel : problème de liaison avec un fichier source "Fichier dans un autre domaine"...
Réponses
2
Affichages
583
nightswan
Y
  • Question Question
Power Query Besoin d'aide pour configurer un power query
Réponses
3
Affichages
271
alexga78
A
  • Résolu(e)
XL 2021 Envoi mail via VBA et Outlook
Réponses
6
Affichages
653
patricktoulon
U
  • Résolu(e)
Microsoft 365 planning étude
Réponses
5
Affichages
352
bsalv
B
  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
195
sylvanu
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
369
Cousinhub
K
  • Résolu(e)
XL 2010 Roulement automatique
Réponses
9
Affichages
351
komarlehomard
K
  • Question Question
XL 2019 Lire un fichier excel fermé
Réponses
2
Affichages
194
controlo
  • Question Question
XL 2016 Fichier calcul de prix de revient
Réponses
13
Affichages
797
sousou
D
  • Question Question
Microsoft 365 TCD et onglets spécifiques selon les filtres à définir
Réponses
2
Affichages
182
Daniel200666
D
P
  • Question Question
Microsoft 365 Insertion texte + numéro qui change à chaque changement de ligne
Réponses
4
Affichages
253
ptit_ange69
P
D
  • Question Question
XL 2019 Application.run
Réponses
4
Affichages
479
dadaze
D
  • Question Question
XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes
Réponses
12
Affichages
389
mapomme
L
  • Question Question
XL 2021 [Power Query] Appliquer un nettoyage identique sur plusieurs tableaux d'une même documentation
Réponses
1
Affichages
189
chris
  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
1 K
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…