XL 2010 Enregistrement du fichier + copie

erwanhavre

XLDnaute Occasionnel
Bonjour je galère un peu
je cherche à l'aide d'un Bouton enregistrer le fichier en cour mais aussi l'enregistrer Avec le nom : "PLAN CONSULT"
celui-ci doit être situé dans le même dossier que celui ouvert et dois écraser sans alerte le précédent "PLAN CONSULT"


Voici ma macro à certainement modifier
merci à vous


Sub Macro16()
'
' Macro16 Macro
'
Dim LePath As String
If MsgBox("Êtes vous certain d'avoir la qualification pour enregistrer le document ?", vbQuestion + vbYesNo, "Autorisation") = vbYes Then
LePath = ThisWorkbook.Path & "\"
ActiveWorkbook.Save


d = "PLAN CONSULT" & ".xlsm"

ActiveWorkbook.Activate
ActiveWorkbook.SaveAs Filename:=LePath & d _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End If
End Sub
 

Jacky67

XLDnaute Accro
hello personne ne peut m'aiguiller svp ?
Bonjour,
Essaye comme ceci
VB:
Sub copie()
Dim LePath As String, Lenom As String
If MsgBox("Etes vous certain d'avoir la qualification pour enregistrer le document?", vbQuestion + vbYesNo, "Autorisation") = vbYes Then
  LePath = ThisWorkbook.Path & "\"
  Lenom = "PLAN CONSULT"
  ActiveWorkbook.SaveCopyAs LePath & Lenom & ".xlsm"
End If
End Sub
 

erwanhavre

XLDnaute Occasionnel
bonjour ça fait le job merci mais je me rend contre que ce fichier si il es ouvert par un autre utilisateur bug normale il faut donc que je change ma méthode avec une copie qui fait la liaison
merci en tout cas
 

Jacky67

XLDnaute Accro
bonjour ça fait le job merci mais je me rend contre que ce fichier si il es ouvert par un autre utilisateur bug normale il faut donc que je change ma méthode avec une copie qui fait la liaison
merci en tout cas
Re…
Si l'enregistrement de la copie doit se faire sur un autre pc tu peux essayer ceci.
En adaptant "LePath"

Code:
Sub copie()
Dim LePath As String, Lenom As String, LePc As String
If MsgBox("Etes vous certain d'avoir la qualification pour enregistrer le document?", vbQuestion + vbYesNo, "Autorisation") = vbYes Then
  LePc = "\\" & Environ("COMPUTERNAME") & "\"
  LePath = "Mes documents\testcopie\" ' A adapter
  Lenom = "PLAN CONSULT"
  ActiveWorkbook.SaveCopyAs LePc & LePath & Lenom & ".xlsm"
End If
End Sub
 
Dernière édition:

Discussions similaires


Haut Bas