Macro Enregistrer sous

Bonjour

Voici un autre de mes classeurs sur lequel il me manque un petit ajustement

Quand je clique sur le Bouton 1, j'ai deja une macro qui enregistre mon fichier dans un dossier spécifié.

Dans cette macro, j'ai ajouté un avertissement qui me confirme l'enregistrement de ce fichier

Mais il est possible que je mettre a jour ce classeur plusieurs fois par jour, et je ne veux pas écraser l'ancien

CE QUE J'AIMERAIS AJOUTER, est une boite de dialogue qui me proposerait de modifier le nom de ce nouveau classeur SI IL EXISTE DEJA

voici le fichier

MERCI

MARTIN

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Merci

ca me convient , mais juste une chose , pourrait-il y avoir dans la case vide le nom du fichier ?

Il resterait juste a changer un caractere

Martin

Bonjour

à voir

        If flag = 1 Then
            rep = InputBox("Ce nom (" & nom1C & " Existe déjà." & Chr(13) & _
                    "Vous pouvez en changer :", nom1C, nom1C)

        End If

Edit le problème c'est que cela ne m'enregistre pas comme je souhaite

crdlt,

André

Oui merci

Martin

Derniere chose

J'ai un autre classeur avec une macro similaire

J'essai de la modifier comme toi, mais je N'y arrive pas

Je suis novice en VBA

Meme chose, j'aimerais avoir cette fenetre qui s'ouvre quand le fichier existe deja

voici la MACRO

'******************************************************************************

'Procedure permettant de sauvegarder au format Excel Un Formulaire

'dans le dossier actif ayant pour nom la valeur d'une cellule

'******************************************************************************

Sub Archivage()

'Décalration des variables

Dim NomDossier As String

Dim CheminDossier As String

On Error GoTo 1 'Gestion des erreurs

Application.DisplayAlerts = False 'On désactive les messages d'alerte

If Range("V3").Value = "" Then 'On teste que le nom du fichier a bien été saisi ou pas

MsgBox "*** Atention *** Vous n'avez pas saisi"

Range("V3").Select

Else ' SINON

With ActiveWorkbook 'Enregistrement du classeur portant le nom de la cellule V3

.SaveAs Filename:=ThisWorkbook.Path & "\" & UCase(Format([V3], "DD MMMM YYYY (")) & Range("G3") & ")", FileFormat:=xlOpenXMLWorkbookMacroEnabled

End With

'On affiche un message informant que le fichier a bien été sauvegardé.

MsgBox "Votre Formulaire Au Nom [ " & Range("V3") & " ] a bien été enregistré dans votre dossier"

Sheets("Fiche Renseignement").Shapes("Bouton").Delete

End If

Application.DisplayAlerts = True 'On réactive la gestion des alertes.

1

End Sub

Merci encore

Martin

Re,

à voir

'******************************************************************************
'Procedure permettant de sauvegarder au format Excel Un Formulaire
'dans le dossier actif ayant pour nom la valeur d'une cellule
'******************************************************************************

Sub Archivage()

    'Décalration des variables
    Dim NomDossier As String
    Dim CheminDossier As String

    On Error GoTo 1 'Gestion des erreurs

    Application.DisplayAlerts = False 'On désactive les messages d'alerte

    If Range("B1").Value = "" Then 'On teste que le nom du fichier a bien été saisi ou pas
       MsgBox "*** Atention *** Vous n'avez pas saisi"
       Range("B1").Select

    Else ' SINON

        nom = ThisWorkbook.Path & "\" & Range("V3") & UCase(Format([B1], " DD MMMM YYYY"))
        flag = 0
        chemin = ThisWorkbook.Path & "\"
        nom1C = Range("V3") & UCase(Format([B1], " DD MMMM YYYY"))
        nomfichier = Dir(chemin & "*.xls*")
        Do While Len(nomfichier) > 0
            If nomfichier = ThisWorkbook.Name Then
                flag = 1
            End If
            nomfichier = Dir
        Loop
        If flag = 1 Then
            rep = InputBox("Ce nom (" & nom1C & " Existe déjà." & Chr(13) & _
                    "Vous pouvez en changer :", nom1C, nom1C)

        End If
       With ActiveWorkbook 'Enregistrement du classeur portant le nom de la cellule B1
            .SaveAs Filename:=ThisWorkbook.Path & "\" & Range("V3") & UCase(Format([B1], " DD MMMM YYYY")), FileFormat:=xlOpenXMLWorkbookMacroEnabled
       End With
       'On affiche un message informant que le fichier a bien été sauvegardé.
       MsgBox "Votre Formulaire Au Nom [ " & Range("V3") & " ] a bien été enregistré dans votre dossier"
       Sheets("Fiche Renseignement").Shapes("Bouton").Delete

    End If

    Application.DisplayAlerts = True 'On réactive la gestion des alertes.
1
End Sub

crdlt,

André

Merci beaucoup André pour ton travail

il y a un petit bug avec ton VBA

Meme si le fichier existe pas, il me demande de le renommer sur autre nom

Ensuite j'aimerais qu'il sauvegarde sur ce format 19 JANVIER 2018 (17-5501)

ce qu'il me donne est 2018-01-1917-5501

merci encore

Martin

Re,

Regarde si ce n'est pas la date en B1 de ton formulaire

j'ai modifie le post précédent

à toi de tester tu y arriveras

crdlt,

André

J'ai essayé plusieurs fois et je ne vois pas comment

J'ai encore le message "ce nom existe déja, Changez Pour:" meme si ce fichier existe pas

Ce message de remplacer ne devrait pas y etre si ce classeur est nouveau

Dans la fenetre qui apparait, il y a le bouton OK et Annuler

La commande Annuler ne change rien, le classeur s'enregistre quand meme

J'ai besoin d'aide

merci

voici le classeur

Il y a surement un petit ajustement tres simple, mais je n'y arrive pas

merci

Quelqu'un peut m'aider svp

merci

Bonjour,

regarde mon post d'hier

Hier, 22:27

crdlt,

André

Bonjour André

dans ce formulaire il n'y as aucune date en B1

C'est en V3 qu'il y a une date

Si tu vieux bien regarde le classeur

Il fonctionne bien mais cette macro qui fait apparaitre une fenetre de confirmation qui me dit qu'un fichier existe deja est mal adapté

merci encore

Bonjour

cela doit fonctionner maintenant ci joint

Note: 1 / clic sur Nom_feuil

2 / Archivage

crdlt,

André

ztest002
5test5.xlsm (81.59 Ko)

Bonjour André

Je mis la date 26 janvier 2018 pour etre sur que ce fichier n'existe pas sur dans mon dossier

meme chose, je clique sur l'icone jaune en haut a gauche, la fenetre apparait et me dit que ce fichier existe deja.

Pourtant rien auparavant a été crée comme 26 janvier 2018

aurais-je un probleme sur mon pc

merci

Martin

Re,

ton fichier prend la date de la cellule de la date du jour + la date de ta feuille =now (=Aujourd'hui)

c'est pour cela

crdlt,

André

Je sais que J'ai un bouton en AC3 avec une macro

c'est donc cette macro qui donne le resultat en v3

y a t-il un moyen de corriger cela ?

merci

Re,

Dans la cellule 'AE1' de la feuille servira pour le futur titre de la sauvegarde

remplacer BlaBla par le titre

1/ Clic sur le bouton Nom_feuille

2/ Clic sur Archivage

ce qui sauvegardera le texte BlaBla+ date

Après cela je n'ai plus d'idée

crdlt,

André

5test99999.xlsm (80.68 Ko)

Merci pour tout ton travail

Mais ca ne fonctionne pas plus

Martin

Rechercher des sujets similaires à "macro enregistrer"