J'ai cr=E9=E9 une petite application qui sauvegarde automatiquement un
fichier au nom du client dans un classeur nomm=E9 Provincial.
Mon probl=E8me est que si j'ai un autre fichier avec le m=EAme nom, =E7a ne
fonctionne plus. Y a-t-il moyen de sauvegarder le fichier avec le nom
du client ainsi que la date et l'heure ? Selon Excel, cela ne semble
pas possible puisque l'heure s'=E9crit avec : et qu'on ne peut
sauvegarder un fichier ayant ce caract=E8re....
Bonsoir, essaie ceci Sub Test() t = Left(Time, 2) m = Mid(Time, 4, 2) s = Right(Time, 2) f = "client" & Date & "_" & t & m & s MsgBox f End Sub
-- Cordialement
"Denys" a écrit dans le message de news: Bonjour à tous,
J'ai créé une petite application qui sauvegarde automatiquement un fichier au nom du client dans un classeur nommé Provincial.
Mon problème est que si j'ai un autre fichier avec le même nom, ça ne fonctionne plus. Y a-t-il moyen de sauvegarder le fichier avec le nom du client ainsi que la date et l'heure ? Selon Excel, cela ne semble pas possible puisque l'heure s'écrit avec : et qu'on ne peut sauvegarder un fichier ayant ce caractère....
Je ne peux pas avec Date... G19 étant le nom du client...
Z'auriez une idée?
Merci
Denys
Bonsoir, essaie ceci
Sub Test()
t = Left(Time, 2)
m = Mid(Time, 4, 2)
s = Right(Time, 2)
f = "client" & Date & "_" & t & m & s
MsgBox f
End Sub
--
Cordialement
jpmonnier-no-spam@neuf.fr
"Denys" <denys.perreault@rbc.com> a écrit dans le message de
news:90f7453e-7b2f-48a0-bc1d-b52c2682469d@f63g2000hsf.googlegroups.com...
Bonjour à tous,
J'ai créé une petite application qui sauvegarde automatiquement un
fichier au nom du client dans un classeur nommé Provincial.
Mon problème est que si j'ai un autre fichier avec le même nom, ça ne
fonctionne plus. Y a-t-il moyen de sauvegarder le fichier avec le nom
du client ainsi que la date et l'heure ? Selon Excel, cela ne semble
pas possible puisque l'heure s'écrit avec : et qu'on ne peut
sauvegarder un fichier ayant ce caractère....
Bonsoir, essaie ceci Sub Test() t = Left(Time, 2) m = Mid(Time, 4, 2) s = Right(Time, 2) f = "client" & Date & "_" & t & m & s MsgBox f End Sub
-- Cordialement
"Denys" a écrit dans le message de news: Bonjour à tous,
J'ai créé une petite application qui sauvegarde automatiquement un fichier au nom du client dans un classeur nommé Provincial.
Mon problème est que si j'ai un autre fichier avec le même nom, ça ne fonctionne plus. Y a-t-il moyen de sauvegarder le fichier avec le nom du client ainsi que la date et l'heure ? Selon Excel, cela ne semble pas possible puisque l'heure s'écrit avec : et qu'on ne peut sauvegarder un fichier ayant ce caractère....
Le nom que peut prendre un fichier excel à des restrictions quant aux 9 caractères suivants : * ? > < : / | " Ces derniers ne sont pas admissibles dans le nom d'un fichier.
En conséquence, ton format date ne peut contenir des "/". Tu peux les remplacer par des "-"
Un petit exemple :
Dim Arr Arr = array("*","?",">","<",":","","/","|") x = ActiveSheet.Range("G19").Value 'Afin de t'assurer que que la cellule G19 ne contient pas un de ces symboles
For each elt in arr 'Remplace chacun des élément par rien 'à toi de décider quel caractère tu voudrais. x = replace(x,elt,"") Next
Pour ce qui est de la date, tu peux utiliser la fonction "Format" comme ceci pour t'assurer de remplace "/" par "-"
MaDate = Format(Date,"dd-MM-YY")
P.S. Tu peux choisir le format de ton choix Format(Date,"YYYY-MM-DD") Il est préférable d'ajouter au format l'heure H:MM:SS à fin d'éviter que 2 fichiers aient le même nom dans le cas où tu fais plusieurs enregistrement à partir du même classeur ... selon tes besoins naturellement !
Ensuite, tu peux reprendre ta ligne de code en utilisant les variable X et MaDate dans ta ligne de code.
ActiveWorkbook.SaveAs Filename:= _ "o:TAX SLIP 2007LETTRES AU GOUV 2007Provincial" & x & MaDate & ".xls"
Attention : Si tu utilises ActiveWorkbook, cela signifie le fichier actif à l'écran dans le cas où tu as plusieurs fichiers ouverts, le résultat peut être différent que celui souhaité. Tu peux remplacé ActiveWorkbook par ThisWorkbook si la macro est écrite dans le fichier à partir duquel la sauvegarde est faite.
"Denys" a écrit dans le message de news:
Bonjour à tous,
J'ai créé une petite application qui sauvegarde automatiquement un fichier au nom du client dans un classeur nommé Provincial.
Mon problème est que si j'ai un autre fichier avec le même nom, ça ne fonctionne plus. Y a-t-il moyen de sauvegarder le fichier avec le nom du client ainsi que la date et l'heure ? Selon Excel, cela ne semble pas possible puisque l'heure s'écrit avec : et qu'on ne peut sauvegarder un fichier ayant ce caractère....
Je ne peux pas avec Date... G19 étant le nom du client...
Z'auriez une idée?
Merci
Denys
Le nom que peut prendre un fichier excel à des restrictions
quant aux 9 caractères suivants : * ? > < : / | " Ces derniers
ne sont pas admissibles dans le nom d'un fichier.
En conséquence, ton format date ne peut contenir des "/". Tu peux
les remplacer par des "-"
Un petit exemple :
Dim Arr
Arr = array("*","?",">","<",":","","/","|")
x = ActiveSheet.Range("G19").Value
'Afin de t'assurer que que la cellule G19 ne contient pas un
de ces symboles
For each elt in arr
'Remplace chacun des élément par rien
'à toi de décider quel caractère tu voudrais.
x = replace(x,elt,"")
Next
Pour ce qui est de la date, tu peux utiliser la fonction "Format" comme ceci
pour t'assurer de remplace "/" par "-"
MaDate = Format(Date,"dd-MM-YY")
P.S. Tu peux choisir le format de ton choix Format(Date,"YYYY-MM-DD")
Il est préférable d'ajouter au format l'heure H:MM:SS à fin d'éviter que 2
fichiers aient le même nom dans le cas où tu fais plusieurs enregistrement à partir
du même classeur ... selon tes besoins naturellement !
Ensuite, tu peux reprendre ta ligne de code en utilisant les variable X et MaDate
dans ta ligne de code.
ActiveWorkbook.SaveAs Filename:= _
"o:TAX SLIP 2007LETTRES AU GOUV 2007Provincial" &
x & MaDate & ".xls"
Attention : Si tu utilises ActiveWorkbook, cela signifie le fichier actif à l'écran
dans le cas où tu as plusieurs fichiers ouverts, le résultat peut être différent que
celui souhaité. Tu peux remplacé ActiveWorkbook par ThisWorkbook si la
macro est écrite dans le fichier à partir duquel la sauvegarde est faite.
"Denys" <denys.perreault@rbc.com> a écrit dans le message de news:
90f7453e-7b2f-48a0-bc1d-b52c2682469d@f63g2000hsf.googlegroups.com...
Bonjour à tous,
J'ai créé une petite application qui sauvegarde automatiquement un
fichier au nom du client dans un classeur nommé Provincial.
Mon problème est que si j'ai un autre fichier avec le même nom, ça ne
fonctionne plus. Y a-t-il moyen de sauvegarder le fichier avec le nom
du client ainsi que la date et l'heure ? Selon Excel, cela ne semble
pas possible puisque l'heure s'écrit avec : et qu'on ne peut
sauvegarder un fichier ayant ce caractère....
Le nom que peut prendre un fichier excel à des restrictions quant aux 9 caractères suivants : * ? > < : / | " Ces derniers ne sont pas admissibles dans le nom d'un fichier.
En conséquence, ton format date ne peut contenir des "/". Tu peux les remplacer par des "-"
Un petit exemple :
Dim Arr Arr = array("*","?",">","<",":","","/","|") x = ActiveSheet.Range("G19").Value 'Afin de t'assurer que que la cellule G19 ne contient pas un de ces symboles
For each elt in arr 'Remplace chacun des élément par rien 'à toi de décider quel caractère tu voudrais. x = replace(x,elt,"") Next
Pour ce qui est de la date, tu peux utiliser la fonction "Format" comme ceci pour t'assurer de remplace "/" par "-"
MaDate = Format(Date,"dd-MM-YY")
P.S. Tu peux choisir le format de ton choix Format(Date,"YYYY-MM-DD") Il est préférable d'ajouter au format l'heure H:MM:SS à fin d'éviter que 2 fichiers aient le même nom dans le cas où tu fais plusieurs enregistrement à partir du même classeur ... selon tes besoins naturellement !
Ensuite, tu peux reprendre ta ligne de code en utilisant les variable X et MaDate dans ta ligne de code.
ActiveWorkbook.SaveAs Filename:= _ "o:TAX SLIP 2007LETTRES AU GOUV 2007Provincial" & x & MaDate & ".xls"
Attention : Si tu utilises ActiveWorkbook, cela signifie le fichier actif à l'écran dans le cas où tu as plusieurs fichiers ouverts, le résultat peut être différent que celui souhaité. Tu peux remplacé ActiveWorkbook par ThisWorkbook si la macro est écrite dans le fichier à partir duquel la sauvegarde est faite.
"Denys" a écrit dans le message de news:
Bonjour à tous,
J'ai créé une petite application qui sauvegarde automatiquement un fichier au nom du client dans un classeur nommé Provincial.
Mon problème est que si j'ai un autre fichier avec le même nom, ça ne fonctionne plus. Y a-t-il moyen de sauvegarder le fichier avec le nom du client ainsi que la date et l'heure ? Selon Excel, cela ne semble pas possible puisque l'heure s'écrit avec : et qu'on ne peut sauvegarder un fichier ayant ce caractère....
Je ne peux pas avec Date... G19 étant le nom du client...
Z'auriez une idée?
Merci
Denys
MichDenis
Si tu inclus l'heure dans le nom du fichier, tu devras utiliser la fonction Now et non Date MaDate = Format(Date,"dd-MM-YY h-mm-ss")
"MichDenis" a écrit dans le message de news: O8c% Le nom que peut prendre un fichier excel à des restrictions quant aux 9 caractères suivants : * ? > < : / | " Ces derniers ne sont pas admissibles dans le nom d'un fichier.
En conséquence, ton format date ne peut contenir des "/". Tu peux les remplacer par des "-"
Un petit exemple :
Dim Arr Arr = array("*","?",">","<",":","","/","|") x = ActiveSheet.Range("G19").Value 'Afin de t'assurer que que la cellule G19 ne contient pas un de ces symboles
For each elt in arr 'Remplace chacun des élément par rien 'à toi de décider quel caractère tu voudrais. x = replace(x,elt,"") Next
Pour ce qui est de la date, tu peux utiliser la fonction "Format" comme ceci pour t'assurer de remplace "/" par "-"
MaDate = Format(Date,"dd-MM-YY")
P.S. Tu peux choisir le format de ton choix Format(Date,"YYYY-MM-DD") Il est préférable d'ajouter au format l'heure H:MM:SS à fin d'éviter que 2 fichiers aient le même nom dans le cas où tu fais plusieurs enregistrement à partir du même classeur ... selon tes besoins naturellement !
Ensuite, tu peux reprendre ta ligne de code en utilisant les variable X et MaDate dans ta ligne de code.
ActiveWorkbook.SaveAs Filename:= _ "o:TAX SLIP 2007LETTRES AU GOUV 2007Provincial" & x & MaDate & ".xls"
Attention : Si tu utilises ActiveWorkbook, cela signifie le fichier actif à l'écran dans le cas où tu as plusieurs fichiers ouverts, le résultat peut être différent que celui souhaité. Tu peux remplacé ActiveWorkbook par ThisWorkbook si la macro est écrite dans le fichier à partir duquel la sauvegarde est faite.
"Denys" a écrit dans le message de news:
Bonjour à tous,
J'ai créé une petite application qui sauvegarde automatiquement un fichier au nom du client dans un classeur nommé Provincial.
Mon problème est que si j'ai un autre fichier avec le même nom, ça ne fonctionne plus. Y a-t-il moyen de sauvegarder le fichier avec le nom du client ainsi que la date et l'heure ? Selon Excel, cela ne semble pas possible puisque l'heure s'écrit avec : et qu'on ne peut sauvegarder un fichier ayant ce caractère....
Je ne peux pas avec Date... G19 étant le nom du client...
Z'auriez une idée?
Merci
Denys
Si tu inclus l'heure dans le nom du fichier,
tu devras utiliser la fonction Now et non Date
MaDate = Format(Date,"dd-MM-YY h-mm-ss")
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
O8c%23T8mxIHA.1504@TK2MSFTNGP05.phx.gbl...
Le nom que peut prendre un fichier excel à des restrictions
quant aux 9 caractères suivants : * ? > < : / | " Ces derniers
ne sont pas admissibles dans le nom d'un fichier.
En conséquence, ton format date ne peut contenir des "/". Tu peux
les remplacer par des "-"
Un petit exemple :
Dim Arr
Arr = array("*","?",">","<",":","","/","|")
x = ActiveSheet.Range("G19").Value
'Afin de t'assurer que que la cellule G19 ne contient pas un
de ces symboles
For each elt in arr
'Remplace chacun des élément par rien
'à toi de décider quel caractère tu voudrais.
x = replace(x,elt,"")
Next
Pour ce qui est de la date, tu peux utiliser la fonction "Format" comme ceci
pour t'assurer de remplace "/" par "-"
MaDate = Format(Date,"dd-MM-YY")
P.S. Tu peux choisir le format de ton choix Format(Date,"YYYY-MM-DD")
Il est préférable d'ajouter au format l'heure H:MM:SS à fin d'éviter que 2
fichiers aient le même nom dans le cas où tu fais plusieurs enregistrement à partir
du même classeur ... selon tes besoins naturellement !
Ensuite, tu peux reprendre ta ligne de code en utilisant les variable X et MaDate
dans ta ligne de code.
ActiveWorkbook.SaveAs Filename:= _
"o:TAX SLIP 2007LETTRES AU GOUV 2007Provincial" &
x & MaDate & ".xls"
Attention : Si tu utilises ActiveWorkbook, cela signifie le fichier actif à l'écran
dans le cas où tu as plusieurs fichiers ouverts, le résultat peut être différent que
celui souhaité. Tu peux remplacé ActiveWorkbook par ThisWorkbook si la
macro est écrite dans le fichier à partir duquel la sauvegarde est faite.
"Denys" <denys.perreault@rbc.com> a écrit dans le message de news:
90f7453e-7b2f-48a0-bc1d-b52c2682469d@f63g2000hsf.googlegroups.com...
Bonjour à tous,
J'ai créé une petite application qui sauvegarde automatiquement un
fichier au nom du client dans un classeur nommé Provincial.
Mon problème est que si j'ai un autre fichier avec le même nom, ça ne
fonctionne plus. Y a-t-il moyen de sauvegarder le fichier avec le nom
du client ainsi que la date et l'heure ? Selon Excel, cela ne semble
pas possible puisque l'heure s'écrit avec : et qu'on ne peut
sauvegarder un fichier ayant ce caractère....
Si tu inclus l'heure dans le nom du fichier, tu devras utiliser la fonction Now et non Date MaDate = Format(Date,"dd-MM-YY h-mm-ss")
"MichDenis" a écrit dans le message de news: O8c% Le nom que peut prendre un fichier excel à des restrictions quant aux 9 caractères suivants : * ? > < : / | " Ces derniers ne sont pas admissibles dans le nom d'un fichier.
En conséquence, ton format date ne peut contenir des "/". Tu peux les remplacer par des "-"
Un petit exemple :
Dim Arr Arr = array("*","?",">","<",":","","/","|") x = ActiveSheet.Range("G19").Value 'Afin de t'assurer que que la cellule G19 ne contient pas un de ces symboles
For each elt in arr 'Remplace chacun des élément par rien 'à toi de décider quel caractère tu voudrais. x = replace(x,elt,"") Next
Pour ce qui est de la date, tu peux utiliser la fonction "Format" comme ceci pour t'assurer de remplace "/" par "-"
MaDate = Format(Date,"dd-MM-YY")
P.S. Tu peux choisir le format de ton choix Format(Date,"YYYY-MM-DD") Il est préférable d'ajouter au format l'heure H:MM:SS à fin d'éviter que 2 fichiers aient le même nom dans le cas où tu fais plusieurs enregistrement à partir du même classeur ... selon tes besoins naturellement !
Ensuite, tu peux reprendre ta ligne de code en utilisant les variable X et MaDate dans ta ligne de code.
ActiveWorkbook.SaveAs Filename:= _ "o:TAX SLIP 2007LETTRES AU GOUV 2007Provincial" & x & MaDate & ".xls"
Attention : Si tu utilises ActiveWorkbook, cela signifie le fichier actif à l'écran dans le cas où tu as plusieurs fichiers ouverts, le résultat peut être différent que celui souhaité. Tu peux remplacé ActiveWorkbook par ThisWorkbook si la macro est écrite dans le fichier à partir duquel la sauvegarde est faite.
"Denys" a écrit dans le message de news:
Bonjour à tous,
J'ai créé une petite application qui sauvegarde automatiquement un fichier au nom du client dans un classeur nommé Provincial.
Mon problème est que si j'ai un autre fichier avec le même nom, ça ne fonctionne plus. Y a-t-il moyen de sauvegarder le fichier avec le nom du client ainsi que la date et l'heure ? Selon Excel, cela ne semble pas possible puisque l'heure s'écrit avec : et qu'on ne peut sauvegarder un fichier ayant ce caractère....
