Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

inscrire une date dans mes fichiers excel sans les ouvrir

2 réponses
Avatar
magic-dd
bonjour

j'aimerai inscrire une seule et meme date dans tous mes classeurs
excel contenu dans D:\CLASSEURS sans les ouvrir .

une macro peut elle faire ca ?

est ce possible ou alors je dois les ouvrir 1 par 1.

merci

2 réponses

Avatar
JB
Bonjour,

rep = "d:classeurs"
nf = Dir(rep & "*.xls")
Do While nf <> ""
Workbooks.Open Filename:=rep & nf
[A1] = DateSerial(2007,1,1)
ActiveWorkbook.Save
ActiveWorkbook.Close
nf = Dir
Loop

Cordialement JB

On 14 mai, 09:55, magic-dd wrote:
bonjour

j'aimerai inscrire une seule et meme date dans tous mes classeurs
excel contenu dans D:CLASSEURS sans les ouvrir .

une macro peut elle faire ca ?

est ce possible ou alors je dois les ouvrir 1 par 1.

merci


Avatar
magic-dd
On 14 mai, 10:14, JB wrote:
Bonjour,

rep = "d:classeurs"
nf = Dir(rep & "*.xls")
Do While nf <> ""
Workbooks.Open Filename:=rep & nf
[A1] = DateSerial(2007,1,1)
ActiveWorkbook.Save
ActiveWorkbook.Close
nf = Dir
Loop
merci jb, cela correspond à ce que je souhaitais

@u plaisir





Cordialement JB

On 14 mai, 09:55, magic-dd wrote:

bonjour

j'aimerai inscrire une seule et meme date dans tous mes classeurs
excel contenu dans D:CLASSEURS sans les ouvrir .

une macro peut elle faire ca ?

est ce possible ou alors je dois les ouvrir 1 par 1.

merci