je cherche à enregistrer par macro, dans le même répertoire, un
classeur xl d'une seule
feuille en un fichier *.prn (pour le reprendre ensuite entre 2
tags PRE en html).
Je dois faire une erreur avec ce qui suit, car même si je n'ai
pas de msg
d'erreur, le fichier prn n'est pas créé.
Si la méthode n'est pas la bonne, je compte sur vous pour me
guider
Sub EnrPrn()
Dim fileSaveName As Variant
Dim futurprn As Variant
futurprn = InputBox("Nom fichier prn", "choix nom",
"ResConcoursDate.prn")
fileSaveName = Application.GetSaveAsFilename( _
initialfilename:=futurprn, fileFilter:="Text Files (*.PRN),
*.prn")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Croquignol
Bonjour Patrick,
GetSaveAsFile ne fait que récupérer le nom du fichier sélectionné, il ne l'enregistre pas. Il faut ajouter un Workbook.SaveAs :
Dim fileSaveName fileSaveName = Application.GetSaveAsFilename( _ initialfilename:=futurprn, fileFilter:="Text Files (*.PRN), *.prn") If VarType(initialfilename) <> vbBoolean Then ActiveWorkbook.SaveAs fileSaveName, xlTextWindows MsgBox "Enregistré" End If
Amicalement,
Croquignol
Bonjour à tous,
je cherche à enregistrer par macro, dans le même répertoire, un classeur xl d'une seule feuille en un fichier *.prn (pour le reprendre ensuite entre 2 tags PRE en html).
Je dois faire une erreur avec ce qui suit, car même si je n'ai pas de msg d'erreur, le fichier prn n'est pas créé. Si la méthode n'est pas la bonne, je compte sur vous pour me guider
Sub EnrPrn() Dim fileSaveName As Variant Dim futurprn As Variant futurprn = InputBox("Nom fichier prn", "choix nom", "ResConcoursDate.prn") fileSaveName = Application.GetSaveAsFilename( _ initialfilename:=futurprn, fileFilter:="Text Files (*.PRN), *.prn") If fileSaveName <> False Then MsgBox "Save as " & fileSaveName End If
j'ai le msgbox ok et rien d'autre !
Merci d'avance
Patrick
End Sub
Bonjour Patrick,
GetSaveAsFile ne fait que récupérer le nom du fichier sélectionné, il ne
l'enregistre pas. Il faut ajouter un Workbook.SaveAs :
Dim fileSaveName
fileSaveName = Application.GetSaveAsFilename( _
initialfilename:=futurprn, fileFilter:="Text Files (*.PRN), *.prn")
If VarType(initialfilename) <> vbBoolean Then
ActiveWorkbook.SaveAs fileSaveName, xlTextWindows
MsgBox "Enregistré"
End If
Amicalement,
Croquignol
Bonjour à tous,
je cherche à enregistrer par macro, dans le même répertoire, un
classeur xl d'une seule
feuille en un fichier *.prn (pour le reprendre ensuite entre 2
tags PRE en html).
Je dois faire une erreur avec ce qui suit, car même si je n'ai
pas de msg
d'erreur, le fichier prn n'est pas créé.
Si la méthode n'est pas la bonne, je compte sur vous pour me
guider
Sub EnrPrn()
Dim fileSaveName As Variant
Dim futurprn As Variant
futurprn = InputBox("Nom fichier prn", "choix nom",
"ResConcoursDate.prn")
fileSaveName = Application.GetSaveAsFilename( _
initialfilename:=futurprn, fileFilter:="Text Files (*.PRN),
*.prn")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If
GetSaveAsFile ne fait que récupérer le nom du fichier sélectionné, il ne l'enregistre pas. Il faut ajouter un Workbook.SaveAs :
Dim fileSaveName fileSaveName = Application.GetSaveAsFilename( _ initialfilename:=futurprn, fileFilter:="Text Files (*.PRN), *.prn") If VarType(initialfilename) <> vbBoolean Then ActiveWorkbook.SaveAs fileSaveName, xlTextWindows MsgBox "Enregistré" End If
Amicalement,
Croquignol
Bonjour à tous,
je cherche à enregistrer par macro, dans le même répertoire, un classeur xl d'une seule feuille en un fichier *.prn (pour le reprendre ensuite entre 2 tags PRE en html).
Je dois faire une erreur avec ce qui suit, car même si je n'ai pas de msg d'erreur, le fichier prn n'est pas créé. Si la méthode n'est pas la bonne, je compte sur vous pour me guider
Sub EnrPrn() Dim fileSaveName As Variant Dim futurprn As Variant futurprn = InputBox("Nom fichier prn", "choix nom", "ResConcoursDate.prn") fileSaveName = Application.GetSaveAsFilename( _ initialfilename:=futurprn, fileFilter:="Text Files (*.PRN), *.prn") If fileSaveName <> False Then MsgBox "Save as " & fileSaveName End If
j'ai le msgbox ok et rien d'autre !
Merci d'avance
Patrick
End Sub
Patrick Loury
Bonjour Croquignol, la réponse est aussi sympa et efficace que le pseudo ! Impec. Patrick "Croquignol" a écrit dans le message de news:
Bonjour Patrick,
GetSaveAsFile ne fait que récupérer le nom du fichier sélectionné, il ne
l'enregistre pas. Il faut ajouter un Workbook.SaveAs :
If VarType(initialfilename) <> vbBoolean Then ActiveWorkbook.SaveAs fileSaveName, xlTextWindows MsgBox "Enregistré" End If
Amicalement,
Croquignol
Bonjour à tous,
je cherche à enregistrer par macro, dans le même répertoire, un
classeur xl d'une seule feuille en un fichier *.prn (pour le reprendre ensuite entre 2
tags PRE en html).
Je dois faire une erreur avec ce qui suit, car même si je n'ai
pas de msg d'erreur, le fichier prn n'est pas créé. Si la méthode n'est pas la bonne, je compte sur vous pour me guider
Sub EnrPrn() Dim fileSaveName As Variant Dim futurprn As Variant futurprn = InputBox("Nom fichier prn", "choix nom", "ResConcoursDate.prn") fileSaveName = Application.GetSaveAsFilename( _ initialfilename:=futurprn, fileFilter:="Text Files (*.PRN), *.prn") If fileSaveName <> False Then MsgBox "Save as " & fileSaveName End If
j'ai le msgbox ok et rien d'autre !
Merci d'avance
Patrick
End Sub
Bonjour Croquignol,
la réponse est aussi sympa et efficace que le pseudo !
Impec.
Patrick
"Croquignol" <nospam@free.fr> a écrit dans le message de news:
3F8A9637.856E7831@free.fr...
Bonjour Patrick,
GetSaveAsFile ne fait que récupérer le nom du fichier
sélectionné, il ne
l'enregistre pas. Il faut ajouter un Workbook.SaveAs :
If VarType(initialfilename) <> vbBoolean Then
ActiveWorkbook.SaveAs fileSaveName, xlTextWindows
MsgBox "Enregistré"
End If
Amicalement,
Croquignol
Bonjour à tous,
je cherche à enregistrer par macro, dans le même répertoire,
un
classeur xl d'une seule
feuille en un fichier *.prn (pour le reprendre ensuite entre
2
tags PRE en html).
Je dois faire une erreur avec ce qui suit, car même si je
n'ai
pas de msg
d'erreur, le fichier prn n'est pas créé.
Si la méthode n'est pas la bonne, je compte sur vous pour me
guider
Sub EnrPrn()
Dim fileSaveName As Variant
Dim futurprn As Variant
futurprn = InputBox("Nom fichier prn", "choix nom",
"ResConcoursDate.prn")
fileSaveName = Application.GetSaveAsFilename( _
initialfilename:=futurprn, fileFilter:="Text Files (*.PRN),
*.prn")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If
If VarType(initialfilename) <> vbBoolean Then ActiveWorkbook.SaveAs fileSaveName, xlTextWindows MsgBox "Enregistré" End If
Amicalement,
Croquignol
Bonjour à tous,
je cherche à enregistrer par macro, dans le même répertoire, un
classeur xl d'une seule feuille en un fichier *.prn (pour le reprendre ensuite entre 2
tags PRE en html).
Je dois faire une erreur avec ce qui suit, car même si je n'ai
pas de msg d'erreur, le fichier prn n'est pas créé. Si la méthode n'est pas la bonne, je compte sur vous pour me guider
Sub EnrPrn() Dim fileSaveName As Variant Dim futurprn As Variant futurprn = InputBox("Nom fichier prn", "choix nom", "ResConcoursDate.prn") fileSaveName = Application.GetSaveAsFilename( _ initialfilename:=futurprn, fileFilter:="Text Files (*.PRN), *.prn") If fileSaveName <> False Then MsgBox "Save as " & fileSaveName End If
