XL 2016 Ouvrir un fichier avec ThisWorkbook.Path

[eduraiss]

Bonjour le forum

Voila j'ai une macro qui me permet d'ouvrir un fichier dans une dossier avec ThisWorkbook.Path

Workbooks.Open Filename:= _
ThisWorkbook.Path & "\Fichier Coronavirus.xlsm"

Mon fichier "Fichier Coronavirus.xlsm" change de nom toute les semaines suivant le numéro de semaine
EX:
Fichier Coronavirus S19.xlsm
Fichier Coronavirus S20.xlsm
Fichier Coronavirus S21.xlsm
Comment modifier la macro d'ouverture pour q'u'elle ouvre le fichier pour n'importe quelle semaine
Merci de votre aide

 

[sylvanu]

Bonjour Eduraiss,
Essayez :

Workbooks.Open Filename:= _
ThisWorkbook.Path & "\Fichier Coronavirus S" & Application.WeekNum(Now()) & ".xlsm"

Aujourd'hui 11/05/2020 cela donne : Fichier Coronavirus S20.xlsm

 

[eduraiss]

Re
Bonjour sylvanu
merci de ce retour , je pense ne pas avoir été assez précis désolé
Je renomme le chier toute les semaines, je suis obligé car je peux ouvrir plusieurs dossiers contenant le fichier "Fichier Coronavirus.xlsm"
si il ne sont pas identifier par semaine , je ne mis retrouve pas
merci

 

[jmfmarques]

Bonjour sylvanu
Attention : à défaut de préciser le second paramètre de la méthode weeknum, la valeur qui en sera retenue est 1 ("semaine commençant le dimanche. Les jours de la semaine sont numérotés de 1 à 7") et le résultat ne sera pas conforme à la norme ISO en vigueur en France

 

[sylvanu]

Re,

Comment modifier la macro d'ouverture pour q'u'elle ouvre le fichier pour n'importe quelle semaine

Une macro ne peut pas ouvrir "n'importe quelle semaine". Il va ouvrir un fichier spécifié.
Par exemple si en A1 il y a S20 on peut faire :

Workbooks.Open Filename:= _
ThisWorkbook.Path & "\Fichier Coronavirus S" & [A1] & ".xlsm"

Il lui faut d'une façon ou d'une autre une information pour savoir quel fichier ouvrir.
Ou alors ouvrir la liste des fichiers et demander à l'utilisateur de choisir?

 

[eduraiss]

Re
Merci de ce retour mais
je pensais un truc du genre
ouvrir avec la condition
Tous les fichier commençant par "Fichier Coronavirus "
Je ne sais pas si cela peux se faire

 

[sylvanu]

Essayez :

Sub BoucleFichiers()
    Dim Chemin As String, Fichier As String
    Chemin = CurDir & "\"                   'Définit le répertoire contenant les fichiers
    NomPartiel = "Fichier Coronavirus S*"   'Définit le nom partiel du fichier recherché
    Fichier = Dir(Chemin & NomPartiel)
    Do While Len(Fichier) > 0
        Workbooks.Open Filename:=Chemin & Fichier
        Fichier = Dir()
    Loop
End Sub

il faudra surement adapter en fonction de votre contexte.

 

[jmfmarques]

ouvrir avec la condition
Tous les fichier commençant par "Fichier Coronavirus "

Est de nature à surprendre, ainsi exprimé et sans autres précisions. Cela signifierait entre autres, par exemple, que dans un an tu ouvrirais systématiquement chacun des 52 fichiers créés en un an !
Est-ce vraiment là ton souhait ?

 

[eduraiss]

Re

oui car les fichiers sont archivés au fur et a mesure sur des disques externes donc indépendant

 

[jmfmarques]

Re

oui car les fichiers sont archivés au fur et a mesure sur des disques externes donc indépendant

Que veux-tu dire exactement ? Que le support utilisé ne peut contenir qu'UN fichier dont le nom commence par "Fichier Coronavirus " ?
Et si oui : à la seule racine du disque externe ou n'importe où sur ce support ?

 

[eduraiss]

Re
voici comme je fonctionne
1 dossier Nommé EQUIPES S21
Dans ce dossier 4 fichiers
M2 S21
M3S21
Z1 S21
Fichier coronavirus S21

Je recopie le dossier et le renomme en EQUIPES S22 par exemple , je renomme les fichiers de la même sorte
je travaille sur un réseau et j'archive les fichiers sur un disque dur , je viens d'archiver les équipes de la S10, S11, S12, S13

 

[eduraiss]

Re
J'ai réussi a écrire une macro qui apparemment ouvre un fichier "Fichier Coronavirus "
qui change toute les semaines
Mais je n'arrive pas a le fermer

Bug Windows(Monfichier).Activate


Sub Recuperation_liste_dans_penibilite()
Application.ScreenUpdating = False
Dim X, Monfichier As String

Dim Classeur As Workbook

X = ActiveWorkbook.Name
Monfichier = ActiveWorkbook.Name
Monfichier = ThisWorkbook.Path & "\Fichier Coronavirus*.xlsm"
Workbooks.Open Filename:=Monfichier


Sheets("Semaine salariéS").Select
Range("A2:A1431").Select
Selection.Copy
Application.ScreenUpdating = False
Windows(X).Activate
Range("A3").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Windows(Monfichier).Activate
ActiveWorkbook.Save
ActiveWindow.Close

Application.ScreenUpdating = True

End Sub

Merci de votre aide

 

[sylvanu]

Vous pouvez remplacer :

ActiveWorkbook.Save
ActiveWindow.Close

par

ActiveWorkbook.Close True

 

[eduraiss]

Re

Merci sylvanu mais ça bug toujours

 

[sylvanu]

Mais encore ?
Que dit-il ?