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
DanielCo
Bonjour, Sub test2() Dim Rep Rep = MsgBox("Voulez-vous enregistrer ?", vbYesNo) If Rep = vbYes Then Workbooks("classeur1.xls").SaveAs ThisWorkbook.Path & "donnees_" & Format(Date, "mmmmyyyy") & ".xls" End If End Sub Cordialement. Daniel
bonjour
je souhaite par l’intermédiaire d'un vbYesNo faire l'enregistrement de mon fichier classeur1.xls avec pour titre
donnes du mois(aujourd’hui) ce qui donnerai en cemoment donnees_juin2012.xls
auriez vous un aiguillage à me donner svp
Bonjour,
Sub test2()
Dim Rep
Rep = MsgBox("Voulez-vous enregistrer ?", vbYesNo)
If Rep = vbYes Then
Workbooks("classeur1.xls").SaveAs ThisWorkbook.Path &
"donnees_" & Format(Date, "mmmmyyyy") & ".xls"
End If
End Sub
Cordialement.
Daniel
bonjour
je souhaite par l’intermédiaire d'un vbYesNo faire l'enregistrement de
mon fichier classeur1.xls avec pour titre
donnes du mois(aujourd’hui) ce qui donnerai en cemoment
donnees_juin2012.xls
Bonjour, Sub test2() Dim Rep Rep = MsgBox("Voulez-vous enregistrer ?", vbYesNo) If Rep = vbYes Then Workbooks("classeur1.xls").SaveAs ThisWorkbook.Path & "donnees_" & Format(Date, "mmmmyyyy") & ".xls" End If End Sub Cordialement. Daniel
bonjour
je souhaite par l’intermédiaire d'un vbYesNo faire l'enregistrement de mon fichier classeur1.xls avec pour titre
donnes du mois(aujourd’hui) ce qui donnerai en cemoment donnees_juin2012.xls
auriez vous un aiguillage à me donner svp
Jacky
Bonjour,
auriez vous un aiguillage à me donner svp
Essaie ceci '--------------- Sub jj() Dim Nom As String, Chemin As String Chemin = ThisWorkbook.Path & "" ' a adapter Nom = "Données_" & Format(Date, "mmmmyyyy") & ".xls" If MsgBox("Voulez-vous enregetrer le classeur sous le nom:" & Chr(10) & Nom, 292, "Enregistrement") = 6 Then ActiveWorkbook.SaveAs Filename:=Chemin & Nom Else MsgBox "Fichier non enregistré" End If End Sub '--------------
-- Salutations JJ
"magic-dd" a écrit dans le message de news:
bonjour
je souhaite par l’intermédiaire d'un vbYesNo faire l'enregistrement de mon fichier classeur1.xls avec pour titre
donnes du mois(aujourd’hui) ce qui donnerai en cemoment donnees_juin2012.xls
auriez vous un aiguillage à me donner svp
Bonjour,
auriez vous un aiguillage à me donner svp
Essaie ceci
'---------------
Sub jj()
Dim Nom As String, Chemin As String
Chemin = ThisWorkbook.Path & "" ' a adapter
Nom = "Données_" & Format(Date, "mmmmyyyy") & ".xls"
If MsgBox("Voulez-vous enregetrer le classeur sous le nom:" & Chr(10) & Nom, 292, "Enregistrement") = 6 Then
ActiveWorkbook.SaveAs Filename:=Chemin & Nom
Else
MsgBox "Fichier non enregistré"
End If
End Sub
'--------------
--
Salutations
JJ
"magic-dd" <ciolandre@gmail.com> a écrit dans le message de news:
df31297f-ace6-4617-8351-febe9016d809@l17g2000vbj.googlegroups.com...
bonjour
je souhaite par l’intermédiaire d'un vbYesNo faire l'enregistrement de
mon fichier classeur1.xls avec pour titre
donnes du mois(aujourd’hui) ce qui donnerai en cemoment
donnees_juin2012.xls
Essaie ceci '--------------- Sub jj() Dim Nom As String, Chemin As String Chemin = ThisWorkbook.Path & "" ' a adapter Nom = "Données_" & Format(Date, "mmmmyyyy") & ".xls" If MsgBox("Voulez-vous enregetrer le classeur sous le nom:" & Chr(10) & Nom, 292, "Enregistrement") = 6 Then ActiveWorkbook.SaveAs Filename:=Chemin & Nom Else MsgBox "Fichier non enregistré" End If End Sub '--------------
-- Salutations JJ
"magic-dd" a écrit dans le message de news:
bonjour
je souhaite par l’intermédiaire d'un vbYesNo faire l'enregistrement de mon fichier classeur1.xls avec pour titre
donnes du mois(aujourd’hui) ce qui donnerai en cemoment donnees_juin2012.xls
auriez vous un aiguillage à me donner svp
Jacky
Oupps!! Désolé pour le doublon.
-- Salutations JJ
"DanielCo" a écrit dans le message de news: jrv9g0$cvk$
Bonjour, Sub test2() Dim Rep Rep = MsgBox("Voulez-vous enregistrer ?", vbYesNo) If Rep = vbYes Then Workbooks("classeur1.xls").SaveAs ThisWorkbook.Path & "donnees_" & Format(Date, "mmmmyyyy") & ".xls" End If End Sub Cordialement. Daniel
bonjour
je souhaite par l'intermédiaire d'un vbYesNo faire l'enregistrement de mon fichier classeur1.xls avec pour titre
donnes du mois(aujourd'hui) ce qui donnerai en cemoment donnees_juin2012.xls
auriez vous un aiguillage à me donner svp
Oupps!!
Désolé pour le doublon.
--
Salutations
JJ
"DanielCo" <dcolardelleZZZ@free.fr> a écrit dans le message de news: jrv9g0$cvk$1@speranza.aioe.org...
Bonjour,
Sub test2()
Dim Rep
Rep = MsgBox("Voulez-vous enregistrer ?", vbYesNo)
If Rep = vbYes Then
Workbooks("classeur1.xls").SaveAs ThisWorkbook.Path & "donnees_" & Format(Date, "mmmmyyyy") & ".xls"
End If
End Sub
Cordialement.
Daniel
bonjour
je souhaite par l'intermédiaire d'un vbYesNo faire l'enregistrement de
mon fichier classeur1.xls avec pour titre
donnes du mois(aujourd'hui) ce qui donnerai en cemoment
donnees_juin2012.xls
"DanielCo" a écrit dans le message de news: jrv9g0$cvk$
Bonjour, Sub test2() Dim Rep Rep = MsgBox("Voulez-vous enregistrer ?", vbYesNo) If Rep = vbYes Then Workbooks("classeur1.xls").SaveAs ThisWorkbook.Path & "donnees_" & Format(Date, "mmmmyyyy") & ".xls" End If End Sub Cordialement. Daniel
bonjour
je souhaite par l'intermédiaire d'un vbYesNo faire l'enregistrement de mon fichier classeur1.xls avec pour titre
donnes du mois(aujourd'hui) ce qui donnerai en cemoment donnees_juin2012.xls