Je souhaite enregistrer un fichier XL à partir d'une formule telle que je
veux la définir moi même à savoir :
010207dada
01 = n°du document
02 = n° du mois
07 = année de création
dada = client
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
Daniel
Bonsoir. Avec en A1 le n°du document et en A2 le nom du client :
Sub test() Dim Chemin As String Chemin = "C:temp" ActiveWorkbook.SaveAs Chemin & [Feuil1!A1] & Month(Date) & _ Format(Year(Date), "yy") & [Feuil1!A2] & ".xls" End Sub
"clement.cenac-morthe" a écrit dans le message de news: 4596ca06$0$27397$
Je souhaite enregistrer un fichier XL à partir d'une formule telle que je veux la définir moi même à savoir : 010207dada 01 = n°du document 02 = n° du mois 07 = année de création dada = client
Comment Faire ? d'avance merci
Bonsoir.
Avec en A1 le n°du document et en A2 le nom du client :
Sub test()
Dim Chemin As String
Chemin = "C:temp"
ActiveWorkbook.SaveAs Chemin & [Feuil1!A1] & Month(Date) & _
Format(Year(Date), "yy") & [Feuil1!A2] & ".xls"
End Sub
"clement.cenac-morthe" <c.cenac@wanadoo.fr> a écrit dans le message de news:
4596ca06$0$27397$ba4acef3@news.orange.fr...
Je souhaite enregistrer un fichier XL à partir d'une formule telle que je
veux la définir moi même à savoir :
010207dada
01 = n°du document
02 = n° du mois
07 = année de création
dada = client
Bonsoir. Avec en A1 le n°du document et en A2 le nom du client :
Sub test() Dim Chemin As String Chemin = "C:temp" ActiveWorkbook.SaveAs Chemin & [Feuil1!A1] & Month(Date) & _ Format(Year(Date), "yy") & [Feuil1!A2] & ".xls" End Sub
"clement.cenac-morthe" a écrit dans le message de news: 4596ca06$0$27397$
Je souhaite enregistrer un fichier XL à partir d'une formule telle que je veux la définir moi même à savoir : 010207dada 01 = n°du document 02 = n° du mois 07 = année de création dada = client
Comment Faire ? d'avance merci
Daniel
Correction, donc :
Sub test() Dim Chemin As String Chemin = "C:temp" ActiveWorkbook.SaveAs Chemin & [Feuil1!A1] & Month(Date) & _ Format(Date, "yy") & [Feuil1!A2] & ".xls" End Sub
Daniel "Daniel" a écrit dans le message de news:
Bonsoir. Avec en A1 le n°du document et en A2 le nom du client :
Sub test() Dim Chemin As String Chemin = "C:temp" ActiveWorkbook.SaveAs Chemin & [Feuil1!A1] & Month(Date) & _ Format(Year(Date), "yy") & [Feuil1!A2] & ".xls" End Sub
"clement.cenac-morthe" a écrit dans le message de news: 4596ca06$0$27397$
Je souhaite enregistrer un fichier XL à partir d'une formule telle que je veux la définir moi même à savoir : 010207dada 01 = n°du document 02 = n° du mois 07 = année de création dada = client
Comment Faire ? d'avance merci
Correction, donc :
Sub test()
Dim Chemin As String
Chemin = "C:temp"
ActiveWorkbook.SaveAs Chemin & [Feuil1!A1] & Month(Date) & _
Format(Date, "yy") & [Feuil1!A2] & ".xls"
End Sub
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ekbiFRFLHHA.1252@TK2MSFTNGP02.phx.gbl...
Bonsoir.
Avec en A1 le n°du document et en A2 le nom du client :
Sub test()
Dim Chemin As String
Chemin = "C:temp"
ActiveWorkbook.SaveAs Chemin & [Feuil1!A1] & Month(Date) & _
Format(Year(Date), "yy") & [Feuil1!A2] & ".xls"
End Sub
"clement.cenac-morthe" <c.cenac@wanadoo.fr> a écrit dans le message de
news: 4596ca06$0$27397$ba4acef3@news.orange.fr...
Je souhaite enregistrer un fichier XL à partir d'une formule telle que je
veux la définir moi même à savoir :
010207dada
01 = n°du document
02 = n° du mois
07 = année de création
dada = client
Sub test() Dim Chemin As String Chemin = "C:temp" ActiveWorkbook.SaveAs Chemin & [Feuil1!A1] & Month(Date) & _ Format(Date, "yy") & [Feuil1!A2] & ".xls" End Sub
Daniel "Daniel" a écrit dans le message de news:
Bonsoir. Avec en A1 le n°du document et en A2 le nom du client :
Sub test() Dim Chemin As String Chemin = "C:temp" ActiveWorkbook.SaveAs Chemin & [Feuil1!A1] & Month(Date) & _ Format(Year(Date), "yy") & [Feuil1!A2] & ".xls" End Sub
"clement.cenac-morthe" a écrit dans le message de news: 4596ca06$0$27397$
Je souhaite enregistrer un fichier XL à partir d'une formule telle que je veux la définir moi même à savoir : 010207dada 01 = n°du document 02 = n° du mois 07 = année de création dada = client
