Bonjour,
J'essaye (sans réussite pour l'instant), de lancer la mise à jour d'un module du classeur de macros personnelles de façon automatique. L'idée : l'utilisateur ouvre le classeur Excel :
1 - si le fichier de macros "Editions" existe, il le remplace par la nouvelle version
2 - si le fichier de macros "Editions" n'existe pas, il le créé et génère un nouveau menu dans Excel avec la liste des éditions et le rattachement aux macros correspondantes (pour ce dernier point je ne suis pas sûre d'avoir été très claire
).
Voici ce que j'ai commencé à préparer :
Dim User
Workbooks.Open ("C:\Documents and Settings\User\Application Data\Microsoft\Excel\XLSTART\PERSO.xls")
ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents("EDITIONS.bas")
ActiveWorkbook.VBProject.VBComponents.Import ActiveWorkbook.VBProject.VBComponents("Z:\MACROS\EDITIONS.bas") 'Z est un lecteur réseau
End Sub
Merci d'avance pour votre aide
Plec
J'essaye (sans réussite pour l'instant), de lancer la mise à jour d'un module du classeur de macros personnelles de façon automatique. L'idée : l'utilisateur ouvre le classeur Excel :
1 - si le fichier de macros "Editions" existe, il le remplace par la nouvelle version
2 - si le fichier de macros "Editions" n'existe pas, il le créé et génère un nouveau menu dans Excel avec la liste des éditions et le rattachement aux macros correspondantes (pour ce dernier point je ne suis pas sûre d'avoir été très claire
).Voici ce que j'ai commencé à préparer :
Dim User
Workbooks.Open ("C:\Documents and Settings\User\Application Data\Microsoft\Excel\XLSTART\PERSO.xls")
ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents("EDITIONS.bas")
ActiveWorkbook.VBProject.VBComponents.Import ActiveWorkbook.VBProject.VBComponents("Z:\MACROS\EDITIONS.bas") 'Z est un lecteur réseau
End Sub
Merci d'avance pour votre aide
Plec
