Comment faire apparaître la fenêtre enregistrer sous

[Paritec]

Bonjour Le forum,
J'aimerais avoir une macro qui me fasse apparaître la fenêtre d'enregistrement pour enregistrer sous aaaa .xls puis vérifier si le nom de fichier existe et enregistrer s'il n'existe pas.
dans l'attente de vos répônse merci d'avance
Papou

 

[Pierrot93]

Re : Comment faire apparaître la fenêtre enregistrer sous

Bonsoir Paritec

essaye avec :

Application.GetSaveAsFilename

bonne soirée
@+

 

[Paritec]

Re : Comment faire apparaître la fenêtre enregistrer sous

Bonsoir Pierrot, bonsoir le forum
T'es toujours là pour me sauver la mise, je te remercie d'avance
j'essaye de suite et je te donne la résultat
a+
Papou

 

[Paritec]

Re : Comment faire apparaître la fenêtre enregistrer sous

Re Pierrot re le Forum,
Juste un truc oui la fenêtre vient mais dans la ligne du type de fichier il n'y a aps le type de fichier possible et là cela ne m'enregistre rien moi je voudrais enregistrer un .xls
si tu sais commen faire STP merci d'avance
Papou

 

[Pierrot93]

Re : Comment faire apparaître la fenêtre enregistrer sous

Re

il faut préciser certains arguments, comme ceci :

Application.GetSaveAsFilename InitialFileName:="aaaa.xls",  fileFilter:="Feuilles de calcul(*.xls), *.xls"

@+

Edition : j'ai enlevé 2 parenthèses

 

[Paritec]

Re : Comment faire apparaître la fenêtre enregistrer sous

Re Pierrot, Re le forum,
Je viens d'essayer mais il me met "erreur de complilation syntaxe incorecte"
j'ai pourtant bien recopié toute ta ligne
regardes si cela marche chez toi STP merci Pierrot
a+
Papou

 

[Pierrot93]

Re : Comment faire apparaître la fenêtre enregistrer sous

Re

Regarde ce code, n'enregistre que si le fichier n'est pas déjà présent.

Dim n As String
Do
    n = Application.GetSaveAsFilename(InitialFileName:="casino.xls", _
        fileFilter:="Feuilles de calcul(*.xls), *.xls")
Loop Until n <> ""
If Dir(n) = "" Then ActiveWorkbook.SaveAs Filename:=n, FileFormat:=xlNormal

@+

 

[Pierrot93]

Re : Comment faire apparaître la fenêtre enregistrer sous

Re

tu peux également retourner vers la boucle, pour obliger l'enregistrement sous un autre nom :

Sub test()
Dim n As String
debut:
Do
    n = Application.GetSaveAsFilename(InitialFileName:="casino.xls", _
        fileFilter:="Feuilles de calcul(*.xls), *.xls")
Loop Until n <> ""
If Dir(n) = "" Then
    ActiveWorkbook.SaveAs Filename:=n, FileFormat:=xlNormal
Else
    GoTo debut
End If
End Sub

@+

 

[Paritec]

Re : Comment faire apparaître la fenêtre enregistrer sous

Re Pierrot Re le forum,
je fais cela de suite et je reviens te dire
a tout de suite
Papou

 

[Paritec]

Re : Comment faire apparaître la fenêtre enregistrer sous

Re Pierrot re le forum,
Bon c'est OK je suis arrivé à enregistré comme je voulais
je n'ai pas vu si le fichier existe déjà si il me le dit?
Je vais vérifier
merci encore Pierrot
a plus
Papou

 

[ZZR09]

Re : Comment faire apparaître la fenêtre enregistrer sous

Bonjour Paritec, Pierrot93, le forum

en mon temps j'avais appris ces méthodes grace à un fichier que je vous joint.
😛 je n'en suis pas l'auteur maisun grand merci à Abel 😛
le code est assez complexe mais bien expliqué. ce document est destiné à ceux qui veulent apprendre.

Par contre, je ne suis pas sûr qu'il y ait des instructions pour vérifier l'éventuelle présence d'un fichier dans un dossier avant de l'y enregistrer.
cf méthode Pierrot93

bon courage

 

[Paritec]

Re : Comment faire apparaître la fenêtre enregistrer sous

Bonsoir ZZR bonsoir le forum,
je vais garder ton fichier pour l'osculter après, mais avec le code de Pierrot cela marche bien maintenant
bonne soirée à tous
Papou

 

[Pierrot93]

Re : Comment faire apparaître la fenêtre enregistrer sous

Bonjour Paritec, zzro

pour avoir un message d'alerte, modifies comme suit :

Sub test()
Dim n
debut:
Do
    n = Application.GetSaveAsFilename(InitialFileName:="casino.xls", _
        fileFilter:="Feuilles de calcul(*.xls), *.xls")
Loop Until n <> False
If Dir(n) = "" Then
    ActiveWorkbook.SaveAs Filename:=n, FileFormat:=xlNormal
Else
    [B]MsgBox "Le ficher existe déjà, modifier le nom !!!"[/B]
    GoTo debut
End If
End Sub

j'ai également modifié le type de donnée, plus fiable si l'on utilise le bouton "annuler".

bonne journée
@+

 

[Paritec]

Re : Comment faire apparaître la fenêtre enregistrer sous

Bonjour Pierrot Bonjour Le forum,
Je te remercie beaucoup Pierrot, c'est juste ce qui me manquait pour avoir fini mon claseur.
C'est vraiment gentil de ta part de toujours être là.
Ce classeur va me faciliter la vie.
Bonne journée
amicalement
Pascal

 

[Paritec]

Re : Comment faire apparaître la fenêtre enregistrer sous

Bonjour Pierrot,
J'ai un souci incompatibilité de type c'est Loop Until <> n False qui se met en jaune?
si tu as le temps?
amicalement
Papou