créer un Dossier caché en vba et plus

[reidid]

Bonjour a tous et a toutes,

Je cherche a créer des classeurs xl pour archives en vba.
Pour cela j'aimerais q'une feuille d'un classeur source soit recopié dans un nouveau classeur, dans un dossier caché (lors de l'activation d'une macro).

Pour cela il faut :
que l'on detecte si le dossier caché existe déja
que le dossier soit créer en cache pour windows (si il n'existe pas), et que la copie d'une des feuilles du classeur ouvert soit enregistrée (sans lien)dans un nouveau classeur du dossier caché.

J'avoue que je séche sur toute la ligne!!!!!
Je vous remercie pour votre aide
cordialement
Reidid

 

[MichelXld]

Re : créer un Dossier caché en vba et plus

bonjour

j'espere que ces infos pourront t'aider

Sub VerifierSidossierMasque()
    Dim X As Long
 
    X = GetAttr("C:\Documents and Settings\michel\dossier\general\excel")
 
    '0 = Normal
    '2 = Caché
    MsgBox X And vbHidden
End Sub

Sub MasquerDossier()
SetAttr "C:\Documents and Settings\michel\dossier\general\excel", 2
End Sub

Sub DeMasquerDossier()
SetAttr "C:\Documents and Settings\michel\dossier\general\excel", 0
End Sub

Sub CreerNouveauRepertoire()
'Les répertoires parents doivent déja exister !
MkDir "C:\Documents and Settings\michel\dossier\general\excel\Nouveau dossier"
End Sub

bonne journée
MichelXld

 

[reidid]

Re : créer un Dossier caché en vba et plus

je te remercie MichelXld pour tes précieux renseignement.

J'ai mis en pratique et cela marche trés bien

il ne me reste plus qu'a trouver comment enregistrer une seule feuille dans un classeur fermé a partir d'un classeur source ouvert.
Et puis comment récupérer les informations des dites feuilles du classeur fermé en archives sur un autre classeur

cordialement
Reidid

 

[MichelXld]

Re : créer un Dossier caché en vba et plus

bonjour

tu trouveras plusieurs exemples dans ce lien (si j'ai bien compris ta demande)

https://www.excel-downloads.com/thr...iltres-variables-fichiers-fermes-acces.92374/


bonne journée
MichelXld