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 2016 Macro copie feuille avec USF

Discussion dans 'Forum Excel' démarrée par guiyom, 7 Février 2019.

  1. guiyom

    guiyom XLDnaute Nouveau

    Inscrit depuis le :
    20 Octobre 2018
    Messages :
    33
    "J'aime" reçus :
    4
    Bonjour,

    Je rencontre actuellement un problème avec une macro qui a pour fonction la copie d'une feuille de mon classeur.

    Celle-ci fonctionné très bien jusqu'à l'ajout d'un USF que je n'arrive pas à lui faire prendre en charge.

    En PJ un fichier simplifié illustrant le problème.

    Cordialement

    Edit : Plutôt que de créer une copie du USF avec la macro peut-être est-il plus simple de supprimer de la copie le contenu (visualiser le code) de la feuille "impropre" ? De cette façon l'appel de l'USF n'aura pas lieu.
     

    Pièces jointes:

    Dernière édition: 7 Février 2019
  2. Chargement...

    Discussions similaires - Macro copie feuille Forum Date
    macro pour copier une ligne d'une feuille a lautre selon un critere défini Forum Excel 27 Janvier 2019
    copier une feuille dans autre classeur en supprimant les macros Forum Excel 10 Décembre 2018
    Macro pour copier coller dans autre feuille Forum Excel 3 Juillet 2018
    XL 2010 Copier feuille excel par macro Forum Excel 3 Mai 2018
    Toutes versions [Réglé] Copier une feuille vers une autre avec incrémentation ? Macro ? VBA ? Forum Excel 5 Septembre 2017

  3. guiyom

    guiyom XLDnaute Nouveau

    Inscrit depuis le :
    20 Octobre 2018
    Messages :
    33
    "J'aime" reçus :
    4
    Bon ne trouvant pas de solution à mon problème j'ai fait une parade nul et pas propre à base de If qui au final désactive l'appel du USF sur la copie.
     

    Pièces jointes:

  4. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    26301
    "J'aime" reçus :
    2311
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Bonjour guiyom, le forum,

    Oui vous pédalez allègrement dans la choucroute, voyez plutôt ceci :
    Code (Text):
    Sub sav()
    Dim chemin$
    chemin = ThisWorkbook.Path & "\" 'à adapter
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With Workbooks.Add(xlWBATWorksheet).Sheets(1)
        ThisWorkbook.Sheets("IMPROPRE").Cells.Copy .[A1]
        .[A1].Copy .[A1] 'allège la mémoire
        .Name = "Stock du " & .[O2] & "." & .[P2] & "." & .[Q2]
        .[K6,O2:Q2] = "" 'supprime les formules
        .Parent.SaveAs Filename:=chemin & .Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
        .Parent.Close
    End With
    End Sub
    L'enregistrement en .xlsx suffit puisqu'il n'y a pas de macro.

    Bonne journée.
     
  5. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    26301
    "J'aime" reçus :
    2311
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Re,

    Autre solution :
    Code (Text):
    Sub sav()
    Dim chemin$
    chemin = ThisWorkbook.Path & "\" 'à adapter
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.EnableEvents = False 'désactive les évènements
    Sheets("IMPROPRE").Copy
    With ActiveWorkbook.Sheets(1)
        .Name = "Stock du " & .[O2] & "." & .[P2] & "." & .[Q2]
        .[K6,O2:Q2] = "" 'supprime les formules
        .Parent.SaveAs Filename:=chemin & .Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
        .Parent.Close
    End With
    Application.EnableEvents = True 'réactive les évènements
    End Sub
    Les macros de la feuille sont supprimées puisqu'on enregistre en .xlsx.

    A+
     
  6. guiyom

    guiyom XLDnaute Nouveau

    Inscrit depuis le :
    20 Octobre 2018
    Messages :
    33
    "J'aime" reçus :
    4
    Bonjour Job75

    Encore une fois vous apporté réponse à mon problème.
    Merci pour cette solution qui marche très bien, effectivement je n'avais pas pensé que sans le USF et les macros le format .xlsx convenait très bien.
    C'est au final beaucoup plus propre que des "IF".

    Cordialement
     
    Dernière édition: 8 Février 2019

Partager cette page