VBA => Copier, fermer et ouvrir un classeur

Bonjour,

je souhaiterais faire une macro qui se déclenche automatiquement au démarrage du classeur. (il me semble qu'elle doit s'appeler "Auto_Open()"

De plus, mon classeur se situe sur un lecteur nommé G: (réseau)

Je souhaiterais que s'il se trouve sous G, qu'il me le copie sous C:\Temp\classeur.xls

J'ai donc fait ceci:

Sub Macro1()

lecteur = Left(Application.ThisWorkbook.Path, 1)

a = Application.ThisWorkbook.Path & "\" & ActiveWorkbook.Name

If lecteur = "G" Then
    FileCopy a, "C:\Temp\" & ActiveWorkbook.Name
    MsgBox "aa"
End If

End Sub

Mais voila, lors du FileCopy, il m'indique permission refusée.

Après le must ce serait fermer celui sous G et ouvrir celui sous C ...

Pouvez-vous m'aider ?

Bonsoir,

Ce code enregistre ton fichier sur la partition que tu veux, dans le répertoire que tu veux, et tu peux travailler de suite dessus, tu n'es plus sur le fichier que tu viens d'ouvrir....

Sub ee()
Dim Fs As Object, Fich As Object
Set Fs = CreateObject("Scripting.FileSystemObject")
Set Fich = Fs.GetFile(ActiveWorkbook.FullName)
If Fich.Drive = "G:" Then
    ActiveWorkbook.SaveAs ""C:\Temp\"" & ActiveWorkbook.Name
End If
End Sub

Bonne soirée

Bonsoir,

merci. Néanmoins j'ai deux petites questions:

• Si le fichier existe, est-il remplacé sans demander de confirmation ?
• A ce moment là, à la fin de la macro, est-il possible de supprimer le fichier qui est sous G: sans message du style "Ce fichier est utilisé" ?

Cordialement.

Re-,

Au vu de tes questions, tu n'as pas encore testé.....

- Si le fichier existe, est-il remplacé sans demander de confirmation ?

Non, mais on peut le faire....

- A ce moment là, à la fin de la macro, est-il possible de supprimer le fichier qui est sous G: sans message du style "Ce fichier est utilisé" ?

Tout pareil.....

Maintenant, pourquoi supprimer un fichier du Réseau?

C'est le premier qui l'ouvre, qui gagne?

@ te relire

Salut,

Non, mais on peut le faire....

Allé je tente ma chance :

application.displayalerts=false

??

Maintenant, pourquoi supprimer un fichier du Réseau?

Non pas le supprimer, mais le mettre à jour via un copier coller remplacer le fichier sans qu'il soit verrouillé

A+

Re-,

Non pas le supprimer, mais le mettre à jour via un copier coller remplacer le fichier sans qu'il soit verrouillé

Tu entres dans une autre dimension.........

soit tu partages ton fichier, soit, tu ne le partages pas.....

Imagine....

Vous êtes 5 sur le même réseau, à utiliser le même fichier....

On fait quoi?

Bonjour,

Mouais ...

Grâce a ton aide, je suis parvenu à mes fins, et tout fonctionne sans soucis.

Merci a toi !