Macro Changer le type de fichier
Résolu
DemandeAide
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je ne trouve pas de réponse sur le net au problème suivant:
J'utilise la commande Application.Dialogs(xlDialogSaveAs).Show (NomFichier) dans workbook_open() pour forcer mon utilisateur à enregistrer une copie de mon document, mais je souhaiterais changer le type de fichier dans la boite de dialogue "Enregister sous" pour avoir le type .xlsx (classeur sans macro) et shunter le message d'avertissement qui s'affiche ensuite prevenant de la perte des macros.
Merci d'avance pour votre aide.
Cdt
Christophe
Je ne trouve pas de réponse sur le net au problème suivant:
J'utilise la commande Application.Dialogs(xlDialogSaveAs).Show (NomFichier) dans workbook_open() pour forcer mon utilisateur à enregistrer une copie de mon document, mais je souhaiterais changer le type de fichier dans la boite de dialogue "Enregister sous" pour avoir le type .xlsx (classeur sans macro) et shunter le message d'avertissement qui s'affiche ensuite prevenant de la perte des macros.
Merci d'avance pour votre aide.
Cdt
Christophe
A voir également:
- Xldialogsaveas
- Changer dns - Guide
- Fichier bin - Guide
- Fichier epub - Guide
- Changer extension fichier - Guide
- Fichier rar - Guide
6 réponses
salut le forum
Essaye ceci
Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
Essaye ceci
Sub Enregistrement()
Dim Sauvegarde As Variant, Question As Integer
Sauvegarde = Application.GetSaveAsFilename("c:\dede.xlsx", FileFilter:="XLSX (*.xlsx), *.xlsx", Title:="Sauvez moi vite ...")
' Demande ou sauver le doc et le nom à lui donner
If Sauvegarde = False Then Exit Sub
' Si click sur annuler, alors exit sub
If Dir(Sauvegarde) <> "" Then ' le fichier renseigné par l'utilisateur existe-t-il ?
Question = MsgBox("Attention le fichier existe déjà" & Chr(13) & "Voulez vous le remplacer ?", vbQuestion + vbYesNo, "Attention...")
' Si oui, faut t-il l'effacer ?
If Question = 6 Then ' Oui
Kill Sauvegarde ' Efface
Else ' Non
Exit Sub ' Stop procédure
End If
End If
ThisWorkbook.SaveAs Sauvegarde ' Sauvegarde
End Sub
Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
Re le forum
Tu veux plutot ceci :
Application.Dialogs(xlDialogSaveAs).Show arg1:="C:\Transfert\test.xlsx"
ou
Application.Dialogs(xlDialogSaveAs).Show ("leNom.xlsx")
Mytå
Tu veux plutot ceci :
Application.Dialogs(xlDialogSaveAs).Show arg1:="C:\Transfert\test.xlsx"
ou
Application.Dialogs(xlDialogSaveAs).Show ("leNom.xlsx")
Mytå
Merci pour vos réponses,
Voici le code que j'utilise finalement:
NomFichier = Application.GetSaveAsFilename(Code, FileFilter:="XLSX (*.xlsx), *.xlsx", Title:="Sauvez moi vite ...")
ThisWorkbook.SaveAs Filename:=NomFichier, FileFormat:=xlOpenXMLWorkbook
En revanche je ne parviens pas à mettre une réponse automatique au message d'alerte prévenant de la perte des macros lors d'un passage d'xlsm en xlsx.
Cdt
Christophe
Voici le code que j'utilise finalement:
NomFichier = Application.GetSaveAsFilename(Code, FileFilter:="XLSX (*.xlsx), *.xlsx", Title:="Sauvez moi vite ...")
ThisWorkbook.SaveAs Filename:=NomFichier, FileFormat:=xlOpenXMLWorkbook
En revanche je ne parviens pas à mettre une réponse automatique au message d'alerte prévenant de la perte des macros lors d'un passage d'xlsm en xlsx.
Cdt
Christophe
Bonjour,
Essaie :
Cordialement,
Patrice
Essaie :
NomFichier = Application.GetSaveAsFilename(Code, FileFilter:="XLSX (*.xlsx), *.xlsx", Title:="Sauvez moi vite ...")
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=NomFichier, FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
Cordialement,
Patrice
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question