Discussion :

[EditeClean]

Bonjour à tous, je viens à vous pour vous demander votre aide
Cela semble facile pour certain et il y a pas mal de forum qui en parle mais après avoir tout essayé, je me tourne vers vous

Le but est d'avoir un bouton (Déja installer et prêt a foncitonner ) qui va tout d’abord "enregistrer sous" dans le même dossier que le fichier de base, avec un nom de fichier personnalisé, dans mon cas : "Olivier" & [C3] & ".xlsm". Celui ci se fera sans que l'utilisateur s'en rende compte. En même temps, je voudrais que le bouton soit supprimer sur la copie et non sur le document de base.

Je voudrais que tout le classeur soit enregistrer, et non seulement la première page.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Enregistrer_sous()
Dim FileD As FileDialog
Dim chemin As String, fichier As String
 
Set FileD = Application.FileDialog(msoFileDialogSaveAs)
 
If FileD.Show = True Then
 
chemin = ThisWorkbook.Path
 
fichier = "Olivier" & [C3] & ".xlsm"
 
ActiveWorkbook.SaveCopyAs Filename:=fichier
 
End If
 
End Sub

- Ce code m'affiche la boite de dialogue sans nom de fichier , Mais une fois un nom de fichier indiqué, et enregistrer, la macro de mon bouton continue sur sur chemin à exécuter la deuxième requête, toujours dans le document de base "OlivierHeuresSup.xlsm", il passera a l'année prochaine


Un grand merci