Code vba à compléter

[pierrof]

Rebonjour forum
Voila j'ai ce code qui me permet de copier et nommer ma feuille par la date
et de l'enregistrer dans mes documents dans un nouveau classeur nommer lui aussi par la date:
Private Sub CommandButton2_Click()
' copier feuille "fab"
Sheets("fab").Select
Sheets("fab").Copy
' Nommer onglet par la date
ActiveSheet.Name = Range("e1")
' Nommer fichier par la date
ActiveWorkbook.SaveAs Filename:=Range("e1").Value
End Sub

Je désire l'enregistrer dans "O:\Production\Données de production\Base de données", le fermer et oter les liaisons si possible
Quels sont les codes à rajouter?
ci joint mon fichier exemple
En vous remerciant par avance😉

 

[pierrof]

Re : Code vba à compléter

J'ai oublier de rajouter un fichier exemple...

 

[Baside]

Re : Code vba à compléter

Bonsoir le Forum,

Si le répertoire est déjà créé, voir le fichier joint.

Amicalement, Hervé.

 

[pierrof]

Re : Code vba à compléter

Bonjour Baside
ça marche impecable.
Merci beaucoup😉

 

[Baside]

Re : Code vba à compléter

Bonjour le Forum,

Merci pierrof

Amicalement

 

[pierrof]

Re : Code vba à compléter

Dernière ptite question baside
Quand je lance la macro une msgbox me demande soit de continuer pour ouvrir le classeur tel quel (se que je souhaite) ou soit de modifier.
y a t-il uun code pour ne pas l'afficher (continuer)
merci

 

[Baside]

Re : Code vba à compléter

Bonjour le Forum, pierrof,

Soit diminuer la sécurité Outils --> Macro --> Sécurité

Soit créer un certificat dans la partie VBA

Amicalement, Hervé.

 

[Bebere]

Re : Code vba à compléter

bonjour pierrof,baside

application.displayalerts=false
la ligne qui sauve le classeur
application.displayalerts=true

à bientôt