Par le biais d'une macro, je souhaite (Excel 2003) que le classeur
actif s'enregistre sous le nom qui se trouve dans la cellule L4 de la
feuille active, appel=E9e "R=F4les" (sur C:\role\).
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
tissot.emmanuel
Bonjour,
Remplace FileFormat:=xlCSV
par FileFormat:=xlWorkbookNormal
Cordialement,
Manu/
"Cucky" a écrit dans le message de news:
Bonsoir,
ce n'est que la 3ème question de la journée:
Par le biais d'une macro, je souhaite (Excel 2003) que le classeur actif s'enregistre sous le nom qui se trouve dans la cellule L4 de la feuille active, appelée "Rôles" (sur C:role).
C'était bien pour le format CSV, mais maintenant j'ai besoin que le fichier s'enregistre sous le format XLS tout simplement !!
Merci pour votre aide précieuse, Corinne
Bonjour,
Remplace
FileFormat:=xlCSV
par
FileFormat:=xlWorkbookNormal
Cordialement,
Manu/
"Cucky" <formasoft@gmail.com> a écrit dans le message de news:
1177853157.069554.164640@n59g2000hsh.googlegroups.com...
Bonsoir,
ce n'est que la 3ème question de la journée:
Par le biais d'une macro, je souhaite (Excel 2003) que le classeur
actif s'enregistre sous le nom qui se trouve dans la cellule L4 de la
feuille active, appelée "Rôles" (sur C:role).
Par le biais d'une macro, je souhaite (Excel 2003) que le classeur actif s'enregistre sous le nom qui se trouve dans la cellule L4 de la feuille active, appelée "Rôles" (sur C:role).
C'était bien pour le format CSV, mais maintenant j'ai besoin que le fichier s'enregistre sous le format XLS tout simplement !!
Merci pour votre aide précieuse, Corinne
MichDenis
Essaie ceci : Il ne faut pas oublier de gérer l'extension du fichier .xls selon la présence ou non de celle-ci dans la cellule !
'------------------------------ Sub test()
With ActiveWorkbook If LCase(Right(.Sheets("Rôles").Range("L4").Value, 4)) <> ".xls" Then .SaveAs Filename:="C:role" & _ .Sheets("Rôles").Range("L4").Value & ".xls" Else .SaveAs Filename:="C:role" & _ .Sheets("Rôles").Range("L4").Value End If End With
End Sub '------------------------------
"Cucky" a écrit dans le message de news:
Bonsoir,
ce n'est que la 3ème question de la journée:
Par le biais d'une macro, je souhaite (Excel 2003) que le classeur actif s'enregistre sous le nom qui se trouve dans la cellule L4 de la feuille active, appelée "Rôles" (sur C:role).
C'était bien pour le format CSV, mais maintenant j'ai besoin que le fichier s'enregistre sous le format XLS tout simplement !!
Merci pour votre aide précieuse, Corinne
Essaie ceci : Il ne faut pas oublier de gérer l'extension du fichier .xls
selon la présence ou non de celle-ci dans la cellule !
'------------------------------
Sub test()
With ActiveWorkbook
If LCase(Right(.Sheets("Rôles").Range("L4").Value, 4)) <> ".xls" Then
.SaveAs Filename:="C:role" & _
.Sheets("Rôles").Range("L4").Value & ".xls"
Else
.SaveAs Filename:="C:role" & _
.Sheets("Rôles").Range("L4").Value
End If
End With
End Sub
'------------------------------
"Cucky" <formasoft@gmail.com> a écrit dans le message de news:
1177853157.069554.164640@n59g2000hsh.googlegroups.com...
Bonsoir,
ce n'est que la 3ème question de la journée:
Par le biais d'une macro, je souhaite (Excel 2003) que le classeur
actif s'enregistre sous le nom qui se trouve dans la cellule L4 de la
feuille active, appelée "Rôles" (sur C:role).
Essaie ceci : Il ne faut pas oublier de gérer l'extension du fichier .xls selon la présence ou non de celle-ci dans la cellule !
'------------------------------ Sub test()
With ActiveWorkbook If LCase(Right(.Sheets("Rôles").Range("L4").Value, 4)) <> ".xls" Then .SaveAs Filename:="C:role" & _ .Sheets("Rôles").Range("L4").Value & ".xls" Else .SaveAs Filename:="C:role" & _ .Sheets("Rôles").Range("L4").Value End If End With
End Sub '------------------------------
"Cucky" a écrit dans le message de news:
Bonsoir,
ce n'est que la 3ème question de la journée:
Par le biais d'une macro, je souhaite (Excel 2003) que le classeur actif s'enregistre sous le nom qui se trouve dans la cellule L4 de la feuille active, appelée "Rôles" (sur C:role).