Macro pour enregistrer selon plusieurs critères

Question

Bonjour, 
Je cherche à créer une macro (je suis proche du niveau 0 de ce côté là) pour:

-Enregistrer mon fichier excel selon la valeur de la cellule H4 (cellule liée à une liste de choix de laquelle découlent, via formules, tout un tas de valeurs dans ma feuille excel), 
-TOUT EN n'enregistrant en format .xlsx QUE les valeurs qui apparaissent dans mes différentes cellules, en laissant mon fichier .xlsm intact, et prêt à resservir avec une autre valeur dans H4.

En parcourant différent forum (dont celui-ci), j'ai déjà réussi à créer des macros pour insérer des images selon la valeur d'une cellule, effacer d'un coup toutes mes images, et d'autres choses qui me sont bien utile au boulot.

J'ai surtout appris qu'avec Excel, rien ne semblait impossible.

Si en plus, il n'était possible d'enregistrer sous un nouveau fichier "que" la partie de la feuille délimitée par une zone d'impression (la finalité est d'imprimer une fiche de renseignements pour un classeur papier ou un Pdf), ça serait réellement le top...


Je compte sincèrement sur votre aide.
Merci d'avance


Configuration: Windows / Chrome 92.0.4515.107

cs_Le Pivert · Answer

Bonjour,

Faire Alt F11 pour accéder à l'éditeur.

Insérer un module et mettre ce code pour la feuille entière:

Option Explicit
Sub save()
Dim chemin_dossier As String
chemin_dossier = ThisWorkbook.Path ' adapter chemin
If Range("H4") = "" Then Exit Sub
ThisWorkbook.Sheets("Feuil1").Copy 'adapter nom feuille
ActiveWorkbook.SaveAs Filename:=chemin_dossier & "\" & Range("H4").Value & ".xlsx"
ActiveWorkbook.Close
MsgBox "Votre fichier " & Range("H4").Value & " est créé", vbInformation, "Création fichier"
End Sub
 

et pour une plage de cellule:

Sub enreg()
Dim LePath As String, LeNom As String
LePath = ThisWorkbook.Path & "\" 'adapter chemin
LeNom = Range("H4").Value & ".xlsx"
With Sheets("Feuil1") 'adapter nom feuille
    Sheets.Add
    .Range("A1:E12").Copy Range("A1") 'adapter plage cellule
    ActiveSheet.Move
    With ActiveWorkbook
        .SaveAs LePath & LeNom
        .Close False
    End With
End With
MsgBox "Votre fichier " & Range("H4").Value & " est créé", vbInformation, "Création fichier"
End Sub

tacounet · Answer

Bonjour Pivert,

Merci bcp pour la rapidité de la réponse
j'ai directement essayé la méthode avec les plages de cellule, et, quelques petits soucis.
Tout d'abord, j'ai une erreur d'exécution 1004, fichier inaccessible.

Je pense avoir fait le tour des vérifications
Mon dossier de destination existe, il n'est pas en lecture seule, et mon nom de fichier ne semble pas comprendre les caractères proscrits (dans ma liste de choix, j'ai bien des noms avec "-" et/ou "_") mais même un essai avec un nom ne comportant que des lettres remonte la même erreur...

Sub enreg()Dim LePath As String, LeNom As StringLePath = ThisWorkbook.Path & "C:\Users\steph\Documents\Travaux divers pour HBG MBH\Fiches de poser\XLS en cours\" 'adapter cheminLeNom = Range("H4").Value & ".xlsx"With Sheets("GENERATION FICHE") 'adapter nom feuille    Sheets.Add    .Range("A1:Z103").Copy Range("A1") 'adapter plage cellule    ActiveSheet.Move    With ActiveWorkbook        .SaveAs LePath & LeNom        .Close False    End WithEnd WithMsgBox "Votre fichier " & Range("H4").Value & " est créé", vbInformation, "Création fichier"End Sub

Ensuite, mais c'est de ma faute car je ne l'avais pas spécifié initialement, je souhaite aussi conserver la mise en forme, en plus des valeurs que remontent les formules dans mon fichier excel "de travail"...
Le "enregistrer sous, copier/collage spécial" fonctionne, mais j'aurais aimé "automatiser" la chose...
Je continue à tatonner...

tacounet · Answer

Rebonjour,

Préférant travailler étape par étape, afin de bien visualiser les différentes étapes et ainsi identifier facilement les problèmes, j'ai:

Créé une deuxième feuille, qui, via macro, va chercher les valeurs et format des cellules de ma feuille d'origine, (1ère macro), affiche les images qui correspondent à mes différentes données (2ème macro).
J'ai modifié la macro d'enregistrement en .xlsx pour que ce soient bien les éléments de cette 2ème feuille (valeurs + images) qui soient sauvegardées en.xlsx.
Mais là où le bas blesse, c'est que la mise en page (taille des cellules, polices, couleurs de remplissage) de cette feuille ne sont pas pris en compte dans cet .xlsx pourtant correctement créé, au bon endroit...
qu'ai-je loupé???

Je vais faire comme à mon habitude, laisser pour ce soir le PC de côté (au risque de m'énerver dessus), et espérer que la nuit me permettra d'y revenir demain, avec un regard neuf...

Macro pour enregistrer selon plusieurs critères

3 réponses

Discussions similaires

Newsletters