1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2010 Enregistrement du fichier + copie

Discussion dans 'Forum Excel' démarrée par erwanhavre, 6 Décembre 2018.

  1. erwanhavre

    erwanhavre XLDnaute Occasionnel

    Inscrit depuis le :
    12 Mai 2007
    Messages :
    262
    "J'aime" reçus :
    0
    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
     
  2. Chargement...

    Discussions similaires - Enregistrement fichier copie Forum Date
    copie onglet et enregistrement nouveau fichier (en via) Forum Excel 25 Janvier 2016
    [VBA] Enregistrement copie + continuer sur fichier d'origine Forum Excel 27 Février 2012
    Copie de mise en forme et problème d'enregistrement automatique de fichier Forum Excel 29 Juillet 2011
    Fichier Excel qui plante Excel lors des enregistrements successifs Forum Excel 6 Décembre 2018
    XL 2010 Import et enregistrement d'un fichier CSV en Excel Forum Excel 31 Octobre 2018

  3. erwanhavre

    erwanhavre XLDnaute Occasionnel

    Inscrit depuis le :
    12 Mai 2007
    Messages :
    262
    "J'aime" reçus :
    0
    hello personne ne peut m'aiguiller svp ?
     
  4. Jacky67

    Jacky67 XLDnaute Accro

    Inscrit depuis le :
    12 Juin 2016
    Messages :
    1149
    "J'aime" reçus :
    166
    Utilise:
    Excel 2007 (PC)
    Bonjour,
    Essaye comme ceci
    Code (Visual Basic):
    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
     
  5. erwanhavre

    erwanhavre XLDnaute Occasionnel

    Inscrit depuis le :
    12 Mai 2007
    Messages :
    262
    "J'aime" reçus :
    0
    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
     
  6. Jacky67

    Jacky67 XLDnaute Accro

    Inscrit depuis le :
    12 Juin 2016
    Messages :
    1149
    "J'aime" reçus :
    166
    Utilise:
    Excel 2007 (PC)
    Re…
    Si l'enregistrement de la copie doit se faire sur un autre pc tu peux essayer ceci.
    En adaptant "LePath"

    Code (Text):
    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: 9 Décembre 2018 à 17:33

Partager cette page