Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel mise en forme d'un n° tel dans un fichier .xls

mise en forme d'un n° tel dans un fichier .xls

2 réponses
Avatar
cyril254
Bonjour,
je voudrais savoir comment mettre en forme un numero de telephone pour
pouvoir le retrouver dans le nom de fichier de sauvegarde.
ub Saveascopy()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
rang = Range("b1") & (" ") & Range("B2") & (" ") & Format(Range("B6"), " ""
"" "" "" ") & (" ")
strDate = Format(Date, "dd-mm-yy")
ThisWorkbook.SaveCopyAs Filename:=rang & strDate & ".xls"
End Sub

cette mise en forme ne me donne que des espaces pour le numero de telephone.
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Nicolas B.
Salut,

Essaye comme ça :
rang = Format(Range("b1"), "00 ") & Format(Range("B2"), "00 ") &
Format(Range("B6"), "00 00 00 ")


A+
--
Nicolas B.


Bonjour,
je voudrais savoir comment mettre en forme un numero de telephone pour
pouvoir le retrouver dans le nom de fichier de sauvegarde.
ub Saveascopy()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
rang = Range("b1") & (" ") & Range("B2") & (" ") &
Format(Range("B6"), " "" "" "" "" ") & (" ")
strDate = Format(Date, "dd-mm-yy")
ThisWorkbook.SaveCopyAs Filename:=rang & strDate & ".xls"
End Sub

cette mise en forme ne me donne que des espaces pour le numero de
telephone.


Avatar
cyril254
Merci c t tout con mais fallais le savoir :)
"Nicolas B." a écrit dans le message de
news:%
Salut,

Essaye comme ça :
rang = Format(Range("b1"), "00 ") & Format(Range("B2"), "00 ") &
Format(Range("B6"), "00 00 00 ")


A+
--
Nicolas B.


Bonjour,
je voudrais savoir comment mettre en forme un numero de telephone pour
pouvoir le retrouver dans le nom de fichier de sauvegarde.
ub Saveascopy()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
rang = Range("b1") & (" ") & Range("B2") & (" ") &
Format(Range("B6"), " "" "" "" "" ") & (" ")
strDate = Format(Date, "dd-mm-yy")
ThisWorkbook.SaveCopyAs Filename:=rang & strDate & ".xls"
End Sub

cette mise en forme ne me donne que des espaces pour le numero de
telephone.