VBA modification localisation fichier
Bonjour a vous,
j 'ai une macro (merci pour celui a qui je l ai prise d'ailleurs
Sub ConslidateWorkbooks()
Dim FolderPath As String
Dim Filename As String
Dim Sheet As Worksheet
Application.ScreenUpdating = False
FolderPath = Environ("userprofile") & "\Desktop\ST Daily Cash\"
Filename = Dir(FolderPath & "*.xls*")
Do While Filename <> ""
Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
ThisWorkbook.Activate
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
Application.ScreenUpdating = True
Je dois la mettre en ligne sur le serveur pour que tout le monde puisse l utiliser en mon abscence et la c'est le drame....
FolderPath = Environ("userprofile") & "G:\FINANCES\TRESORERIE\STS\DAILY CASH REPORT\ST Daily Cash\"
Filename = Dir(FolderPath & "*.xls*")
ressort en erreur .
Quand j ouvre le fichier sur mon bureau ca marche , mais pas quand je copie colle le fichier sur le serveur G.
L idee est bien de combiner tous les fichiers du folder ST Daily Cash dans mon nouveau fichier qui est ouvert avec la marco dessus
PS/ si necessaire ce fichier s apl ST Bank Daily - MAASTER
merci a vous
Bonjour,
le plus simple si tu mets une copie du répertoire : "ST Daily Cash" sur un serveur.
Alors ton fichier excel devra être enregistré dans ce répertoire.
Ensuite Dans ton code vba tu changes simplement l'adresse du "chemin"
FolderPath = Thisworkbook.path & "\"bonjour, desolé mais ce n est pas clair pour moi.
a termes je ne veux plus de marco sur mon bureau mais tout sur le serveur.
si je met ce que tu notes comment la macro comprend que le folder ou recuperer les fichiers est G:\FINANCES\TRESORERIE\STS\DAILY CASH REPORT\ST Daily Cash\
et comment définir de combiner les fichiers de ce dossier dans le fichier excel ST Bank Daily - MAASTER ?
merci
bonjour, desolé mais ce n est pas clair pour moi.
a termes je ne veux plus de marco sur mon bureau mais tout sur le serveur.
si je met ce que tu notes comment la macro comprend que le folder ou recuperer les fichiers est G:\FINANCES\TRESORERIE\STS\DAILY CASH REPORT\ST Daily Cash\
et comment définir de combiner les fichiers de ce dossier dans le fichier excel ST Bank Daily - MAASTER ?
merci
C'est très simple si tu mets ton fichier excel sur le serveur G : dans le répertoire ST Daily Cash
Alors excel peut trouver l'adresse lui même.
FolderPath = Thisworkbook.path & "\"
Thisworkbook.path = l'adresse de ce fichier dans ton cas :
"G:\FINANCES\TRESORERIE\STS\DAILY CASH REPORT\ST Daily Cash"
comme il manque le slash de fin j'ajoute : & "\" pour avoir l'adresse complète
Donc FolderPath devient = G:\FINANCES\TRESORERIE\STS\DAILY CASH REPORT\ST Daily Cash\
Je fais presque toutes mes macro avec une adresse Thisworkbook.path bien plus pratique en cas de déplacement.