Bonjour à tous,
il y a longtemps que je n'étais venu vers vous...,
pour enregistrer ma feuille en csv ( ; ), j'utilise
Dim fileSaveName, InitialFileName As Variant
Dim futurCsv As Variant
On Error Resume Next
futurCsv = InputBox("Nom fichier csv sans /", "choix nom",
"ChangerNomDeFichier.csv")
If futurCsv = "" Then Exit Sub
fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:=futurCsv, fileFilter:="Text Files (*.csv), *.csv")
If VarType(InitialFileName) <> vbBoolean Then
ActiveWorkbook.SaveAs fileSaveName, xlCSV, CreateBackup:=False
MsgBox "Enregistré sous " & fileSaveName
End If
Comment éviter qu'à la fin le classeur csv reste ouvert et demande
confirmation pour fermer, pour écraser puisqu'il existe déjà ?
Ceci-dit, c'est le même problème si on le fait par enregistrer sous, à la
main.
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
Jacky
Bonsoir,
Comment éviter qu'à la fin le classeur csv reste ouvert et demande confirmation pour fermer, pour écraser puisqu'il existe déjà ? Cette partie de code à modifier comme ceci
'-------- ----- ---- If VarType(InitialFileName) <> vbBoolean Then Application.DisplayAlerts = False ActiveWorkbook.SaveAs fileSaveName, xlCSV, CreateBackup:úlse 'MsgBox "Enregistré sous " & fileSaveName '****Facultatif ActiveWorkbook.Close Application.DisplayAlerts = True End If '----------
-- Salutations JJ
"Pat L" a écrit dans le message de news: 456882c3$0$25907$
Bonjour à tous, il y a longtemps que je n'étais venu vers vous...,
pour enregistrer ma feuille en csv ( ; ), j'utilise
Dim fileSaveName, InitialFileName As Variant Dim futurCsv As Variant On Error Resume Next
futurCsv = InputBox("Nom fichier csv sans /", "choix nom", "ChangerNomDeFichier.csv") If futurCsv = "" Then Exit Sub fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=futurCsv, fileFilter:="Text Files (*.csv), *.csv") If VarType(InitialFileName) <> vbBoolean Then ActiveWorkbook.SaveAs fileSaveName, xlCSV, CreateBackup:úlse MsgBox "Enregistré sous " & fileSaveName End If
Comment éviter qu'à la fin le classeur csv reste ouvert et demande confirmation pour fermer, pour écraser puisqu'il existe déjà ?
Ceci-dit, c'est le même problème si on le fait par enregistrer sous, à la main.
Pat
Bonsoir,
Comment éviter qu'à la fin le classeur csv reste ouvert et demande
confirmation pour fermer, pour écraser puisqu'il existe déjà ?
Cette partie de code à modifier comme ceci
'--------
-----
----
If VarType(InitialFileName) <> vbBoolean Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs fileSaveName, xlCSV, CreateBackup:úlse
'MsgBox "Enregistré sous " & fileSaveName '****Facultatif
ActiveWorkbook.Close
Application.DisplayAlerts = True
End If
'----------
--
Salutations
JJ
"Pat L" <patrick.loury@1adoo.fr> a écrit dans le message de news:
456882c3$0$25907$ba4acef3@news.orange.fr...
Bonjour à tous,
il y a longtemps que je n'étais venu vers vous...,
pour enregistrer ma feuille en csv ( ; ), j'utilise
Dim fileSaveName, InitialFileName As Variant
Dim futurCsv As Variant
On Error Resume Next
futurCsv = InputBox("Nom fichier csv sans /", "choix nom",
"ChangerNomDeFichier.csv")
If futurCsv = "" Then Exit Sub
fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:=futurCsv, fileFilter:="Text Files (*.csv), *.csv")
If VarType(InitialFileName) <> vbBoolean Then
ActiveWorkbook.SaveAs fileSaveName, xlCSV, CreateBackup:úlse
MsgBox "Enregistré sous " & fileSaveName
End If
Comment éviter qu'à la fin le classeur csv reste ouvert et demande
confirmation pour fermer, pour écraser puisqu'il existe déjà ?
Ceci-dit, c'est le même problème si on le fait par enregistrer sous, à la
main.
Comment éviter qu'à la fin le classeur csv reste ouvert et demande confirmation pour fermer, pour écraser puisqu'il existe déjà ? Cette partie de code à modifier comme ceci
'-------- ----- ---- If VarType(InitialFileName) <> vbBoolean Then Application.DisplayAlerts = False ActiveWorkbook.SaveAs fileSaveName, xlCSV, CreateBackup:úlse 'MsgBox "Enregistré sous " & fileSaveName '****Facultatif ActiveWorkbook.Close Application.DisplayAlerts = True End If '----------
-- Salutations JJ
"Pat L" a écrit dans le message de news: 456882c3$0$25907$
Bonjour à tous, il y a longtemps que je n'étais venu vers vous...,
pour enregistrer ma feuille en csv ( ; ), j'utilise
Dim fileSaveName, InitialFileName As Variant Dim futurCsv As Variant On Error Resume Next
futurCsv = InputBox("Nom fichier csv sans /", "choix nom", "ChangerNomDeFichier.csv") If futurCsv = "" Then Exit Sub fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=futurCsv, fileFilter:="Text Files (*.csv), *.csv") If VarType(InitialFileName) <> vbBoolean Then ActiveWorkbook.SaveAs fileSaveName, xlCSV, CreateBackup:úlse MsgBox "Enregistré sous " & fileSaveName End If
Comment éviter qu'à la fin le classeur csv reste ouvert et demande confirmation pour fermer, pour écraser puisqu'il existe déjà ?
Ceci-dit, c'est le même problème si on le fait par enregistrer sous, à la main.
Pat
Pat L
Merci Jacky, impeccable. PatL
"Jacky" a écrit dans le message de news: eAEA$
Bonsoir,
Comment éviter qu'à la fin le classeur csv reste ouvert et demande confirmation pour fermer, pour écraser puisqu'il existe déjà ? Cette partie de code à modifier comme ceci
'-------- ----- ---- If VarType(InitialFileName) <> vbBoolean Then Application.DisplayAlerts = False ActiveWorkbook.SaveAs fileSaveName, xlCSV, CreateBackup:úlse 'MsgBox "Enregistré sous " & fileSaveName '****Facultatif ActiveWorkbook.Close Application.DisplayAlerts = True End If '----------
-- Salutations JJ
"Pat L" a écrit dans le message de news: 456882c3$0$25907$
Bonjour à tous, il y a longtemps que je n'étais venu vers vous...,
pour enregistrer ma feuille en csv ( ; ), j'utilise
Dim fileSaveName, InitialFileName As Variant Dim futurCsv As Variant On Error Resume Next
futurCsv = InputBox("Nom fichier csv sans /", "choix nom", "ChangerNomDeFichier.csv") If futurCsv = "" Then Exit Sub fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=futurCsv, fileFilter:="Text Files (*.csv), *.csv") If VarType(InitialFileName) <> vbBoolean Then ActiveWorkbook.SaveAs fileSaveName, xlCSV, CreateBackup:úlse MsgBox "Enregistré sous " & fileSaveName End If
Comment éviter qu'à la fin le classeur csv reste ouvert et demande confirmation pour fermer, pour écraser puisqu'il existe déjà ?
Ceci-dit, c'est le même problème si on le fait par enregistrer sous, à la main.
Pat
Merci Jacky,
impeccable.
PatL
"Jacky" <dupont@marcel.com> a écrit dans le message de news:
eAEA$vNEHHA.4952@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Comment éviter qu'à la fin le classeur csv reste ouvert et demande
confirmation pour fermer, pour écraser puisqu'il existe déjà ?
Cette partie de code à modifier comme ceci
'--------
-----
----
If VarType(InitialFileName) <> vbBoolean Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs fileSaveName, xlCSV, CreateBackup:úlse
'MsgBox "Enregistré sous " & fileSaveName '****Facultatif
ActiveWorkbook.Close
Application.DisplayAlerts = True
End If
'----------
--
Salutations
JJ
"Pat L" <patrick.loury@1adoo.fr> a écrit dans le message de news:
456882c3$0$25907$ba4acef3@news.orange.fr...
Bonjour à tous,
il y a longtemps que je n'étais venu vers vous...,
pour enregistrer ma feuille en csv ( ; ), j'utilise
Dim fileSaveName, InitialFileName As Variant
Dim futurCsv As Variant
On Error Resume Next
futurCsv = InputBox("Nom fichier csv sans /", "choix nom",
"ChangerNomDeFichier.csv")
If futurCsv = "" Then Exit Sub
fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:=futurCsv, fileFilter:="Text Files (*.csv), *.csv")
If VarType(InitialFileName) <> vbBoolean Then
ActiveWorkbook.SaveAs fileSaveName, xlCSV, CreateBackup:úlse
MsgBox "Enregistré sous " & fileSaveName
End If
Comment éviter qu'à la fin le classeur csv reste ouvert et demande
confirmation pour fermer, pour écraser puisqu'il existe déjà ?
Ceci-dit, c'est le même problème si on le fait par enregistrer sous, à la
main.
Comment éviter qu'à la fin le classeur csv reste ouvert et demande confirmation pour fermer, pour écraser puisqu'il existe déjà ? Cette partie de code à modifier comme ceci
'-------- ----- ---- If VarType(InitialFileName) <> vbBoolean Then Application.DisplayAlerts = False ActiveWorkbook.SaveAs fileSaveName, xlCSV, CreateBackup:úlse 'MsgBox "Enregistré sous " & fileSaveName '****Facultatif ActiveWorkbook.Close Application.DisplayAlerts = True End If '----------
-- Salutations JJ
"Pat L" a écrit dans le message de news: 456882c3$0$25907$
Bonjour à tous, il y a longtemps que je n'étais venu vers vous...,
pour enregistrer ma feuille en csv ( ; ), j'utilise
Dim fileSaveName, InitialFileName As Variant Dim futurCsv As Variant On Error Resume Next
futurCsv = InputBox("Nom fichier csv sans /", "choix nom", "ChangerNomDeFichier.csv") If futurCsv = "" Then Exit Sub fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=futurCsv, fileFilter:="Text Files (*.csv), *.csv") If VarType(InitialFileName) <> vbBoolean Then ActiveWorkbook.SaveAs fileSaveName, xlCSV, CreateBackup:úlse MsgBox "Enregistré sous " & fileSaveName End If
Comment éviter qu'à la fin le classeur csv reste ouvert et demande confirmation pour fermer, pour écraser puisqu'il existe déjà ?
Ceci-dit, c'est le même problème si on le fait par enregistrer sous, à la main.
