Discussion :

[Antichoc]

Voila,

Je cherche à copier, à l'aide d'un bouton, un modèle de document afin de l'enregistrer sur un ficher spécifique (dépendant des valeurs saisi sur le modèle), et ensuite l'envoyer par mail ou de l'imprimer (si pas de mail)

J'ai donc une feuille modèle; bourée de marco et de code VBA qui contient le fameux bouton "générer" pour créer le résultat.

Je ne sais pas comment faire cela sachant que lorsque je clique sur le bouton générér, je souhaite dupliquer la feuille avec les conditions suivantes :

-> Je voudrais que la nouvelle feuille dupliquée n'est pas le code VBA du modèle
-> Que le bouton "générer" du modèle soit supprimé de la feuille dupliquée
-> Que les formule du modèle soit remplacées par les valeurs dans la feuille dupliquée

Avez vous une idée ? Merci d'avance !

[Bigalo]

Bonsoir,

Voici une façon de faire :

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
18
Sub NewClasseurSansVBA()
' ***************************************************************************************
' Cette sub supprime tous les objets de la collection Shapes sur la feuille créée       *
' Cette sub NE DOIT DONC pas être utilisée si la feuille active contient des objets     *
' de la collection Shapes à conserver                                                   *
' ***************************************************************************************
Dim s As Shape
    ' Création du classeur
    ThisWorkbook.Sheets(1).Copy
    ' Suppression des objets de la collection Shapes dont le(s) bouton(s).
        For Each s In ActiveSheet.Shapes
            s.Delete
        Next
    ' Suppression du code de la feuille active
        With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
            .DeleteLines 1, .CountOfLines
        End With
End Sub

NB - Il faut avoir coché la référence "Microsoft Visual Basic for Applications Exensibility X.x"

A ta disposition pour toute information complémentaire. Selon ton niveau, quelques lignes peuvent suffire ou plusieurs pages peuvent être nécessaires !

Joyeux Noël

Michel Gaboly

[Antichoc]

Merci pour ta réponse. Cependant, je dois envoyer ce document par mail apres. l'option COPY de la worksheet ne crée pas un fichier sauvegardé. Comment puis je faire pour le sauver et récupérér son nom de fichier pour l'envoyer par mail puis le supprimer après ?

Sais tu aussi comment remplacer les formules par les valeurs ?

[kiki29]

Jour Bon
Voir http://excel.developpez.com/faq/?pag...ailCDOexchange

[Bigalo]

Bonjour,

Je ne t’avais donné le code que pour la partie techniquement complexe.

Le reste est quasi trivial, et tu peux l’obtenir en adaptant à peine le résultat obtenu par enregistrement automatique :

1. Démarre l'enregistrement automatique
2. Crée un nouveau classeur, puis saisis quelque chose dans une cellule au moins.
3. Sélectionne ensuite la plage avec les données que tu as entrées, copie-les puis fais un copiage spécial valeurs.
4. Enregistre-le : tu devras entrer le nom sous lequel il doit être enregistré.
5. Arrête l’enregistrement auto.

Tu as pratiquement ton code.

Les seules modifs importantes à effectuer sont la sélection de la zone à copier pour y remplacer les formules : il faut utiliser la propriété UsedRange

Code :

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

1
2
3
4
Sub RemplaceFormuleParValeurs()
    ActiveSheet.UsedRange.Copy
    ActiveSheet.UsedRange.PasteSpecial xlValues
End Sub

et le nom de fichier à fournir pour l’’enregistrement. Tu n’as pas à récupérer ce nom, puisque c’est toi qui le choisis ou le détermines. Cela pourrait être le nom de l’onglet de la feuille active par exemple.

Code :

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

1
2
3
Sub EnregistreAvecNomFeuille()
    ActiveWorkbook.SaveAs ActiveSheet.Name & "xls"
End Sub

Pour pouvoir utiliser ensuite le nom du classeur pour l'envoyer par mail, stocke-le dans une variable :

Code :

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

1
2
3
4
5
Sub EnregistreEnUtilsantUneVariable()
Dim NomClasseur$
    NomClasseur = ActiveSheet.Name
    ActiveWorkbook.SaveAs NomClasseur & "xls"
End Sub

Bon Noël

Michel Gaboly

[Antichoc]

Merci pour toutes ces précisions, je devrais pouvoir m'en sortir !!!

Je te tiens au courant.

Bonne fêtes de fin d'année à toi également

[Bigalo]

De rien,

N’hésite pas à demander des précisions si tu en a besoin.

[Antichoc]

Pas d'idée ?

En fait, je souahitez juste retirer la mise en forme confitionnelle d'une cellule mais en conservant le résultat de cette mise en forme.

Certaines cellules sont grise suite à une mise en forme conditionnelle, je souhaites donc les garder grises tout en retirant la mise en forme conditionnelle qui a institué cette couleur.

MErci

[Bigalo]

Des idées, oui, bien sûr, très précises, même.

Cependant pouvoir conserver le résultat des mises en forme conditionnelles (MEFC) est un traitement beaucoup plus lourd que tu ne sembles l’imaginer :

Il faut faire une boucle qui passe dans chaque cellule pour laquelle une MEFC a été définie. Ensuite, pour chaque cellule concernée,

1. Lire la ou les conditions qui ont été définies (formule ou test sur valeur).
2. Tester dans l’ordre si chaque condition définie est remplie.
3. Si oui, déterminer les choix de mises en forme associés (détail des encadrements, couleur de police, gras ou pas, souligné ou pas, couleur de fond, ...)
4. Les appliquer inconditionnellement.
5. Effacer la MEFC.

Voici comment se présente le traitement :

Code :

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

1
2
3
4
5
6
7
8
Sub ReproductionEffetsMEFC()
Dim Ref As Range, c As Range
    ActiveCell.SpecialCells (xlCellTypeAllFormatConditions)
        For Each c In Ref
            ' Lecture des éléments de mise en forme induits par la MEFC
            ' pour c et reproduction de cette mise en forme (police, bordures, fond)
        Next
End Sub

C’est un développement relativement long, qui selon moi sort du cadre de l’entraide dans un forum

C’est éventuellement faisable si tu n’as qu’un format (cellules grisées). Mais dans ce cas, indique les conditions pour lesquelles les cellules sont grisées et ce que tu appelles grisées : quelle nuance de gris ? La couleur de la police ou la couleur de fond ?

Il faudrait que tu joignes en pièce jointe un classeur Excel avec au moins une cellule grisée par ta mise en forme, afin de pouvoir la reproduire précisément.

Cordialement,

Michel Gaboly

[Antichoc]

J'était parti sur une solution semblable mais je ne sais pas comment récupérér la mise en forme.

Effectivement, le fait de tester la condition directement en VBA me semble une bonne idée, je vais donc créer une procédure qui recrée la MEFC et je vais l'appliquer à chaque cellule avant de la détruire.

Je n'ai que deux format :

• bordure pleine avec couleur de fond gris (couleur unique)
• bordure pleine sans couleur de fond

A charge après à l'utilisateur une fois le traitement terminé de modifier comme bon lui semble les couleurs.

Pour info, c'est un tableau de gestion de planning vierge qui est généré. Toute les cellules sont blanches abev une bordures sauf certaines heures sui sont grises.

Je vois ca ce soir !!

Merci

[Bigalo]

Bonjour,

J’ai l’impression que tu te compliques beaucoup la vie pour rien

S’il s’agit de générer un tableau vierge sans mise en forme conditionnelle (MEFC), et avec des zones grisées, ajoute-le au classeur avec les macros (celui évoqué dans ton premier message), et génère avec ton bouton, situé sur UNE AUTRE feuille, un classeur vierge, ayant pour seule feuille ton planning vierge :

Code :

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

1
2
3
4
Sub NouveauPlanning()
    ThisWorkbook.Sheets("PlanningVierge").Copy
    ActiveSheet.Name = "Planning semaine 4"
End Sub

La seconde ligne, pas forcément nécessaire, te permet de renommer la feuille dans le classeur créé.

Ainsi, tu n’auras plus à te préoccuper d’effacer le bouton, du code VBA, ni de devoir reproduire le résultat de MEFC.

Michel Gaboly

[Antichoc]

C'est malheureusement un peu plus compliqué que ca car ce document sera évolutif à l'avenir ...

Mais je note que effectivement, je n'ai pas besoin d'utiliser de mise en forme conditionnelle mais uniquement de coder une procedure l'imitant.

Je penses avoir tout ce dont j'ai besoin pour terminer ce planning. Il me manque juste le point sur la protection de la feuille.

Je te remercie grandement pour ta préciseuse aide et espère ne pas t'avoir trop embetté !!