Modification code pour Creation feuille

[aubelix]

Bonjour à tous les Amis du Forum. 🙂

Je reviens vers vous pour vous demander votre aide.

J'ai récupéré un code qui crée des répertoires.
Cela focntionne bien.
J'aurais aimé pouvoir créer une feuille "INDEX_NUM.xls"
- qui sera sauvegardé sous les réperoire crée ci-dessus.
- en reprenant la valeur de M2 de la feuille "BASE"à copier en A2 de la feuille INDEX_NUM.xls créee.

Par avance, Merci pour vaotre aide.
Cordialement.

 

[aubelix]

Re : Modification code pour Creation feuille

Bonjour à tous les Amis du Forum. 🙂

J'ai glané des infos sur le Forum...
Aussi, je reviens vers vous pour vous demander à avancer dans mon projet.
J'ai réussi à créer la feuille INDEX en bidouillant le code.
Pourriez-vous me corriger SVP.

Par avance, Merci pour votre aide.
Cordialement.

 

[kiki29]

Re : Modification code pour Creation feuille

pour la création de dossier il y a

Option Explicit

Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long
 
' Pour valeur retournée dans Rep
' Voir http://msdn.microsoft.com/en-us/library/bb762131(VS.85).aspx
' et   http://msdn.microsoft.com/en-us/library/ms681381(VS.85).aspx
Private Sub CreationDossier(sDossier As String)
Dim Rep As Long
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Sub

Sub Test()
Dim sDossier As String
    sDossier = "D:\repA\repB\repC\repD\repE\repF"
    CreationDossier sDossier
End Sub

Une remarque sur les select qui ne servent qu'à ralentir l'appli
Voir aide en ligne sur Copy

Worksheets("Sheet1").Range("A1:D4").Copy Worksheets("Sheet2").Range("Z5")

Te renseigner sur CodeName qui permet de ne pas retoucher au code VBA si l'on change les noms d'onglet ou déplace des feuilles sur http://www.ozgrid.com/VBA/excel-vba-sheet-names.htm

 

[JNP]

Re : Modification code pour Creation feuille

Bonjour le fil 🙂,
Pourquoi ne pas bêtement utiliser un MkDir 😛 ?

On Error Resume Next
MkDir "D:\repA\repB\repC\repD\repE\repF"
On Error GoTo 0

la gestion d'erreur n'étant pas obligatoire si on est sûr que le dossier n'existe pas 😀...
Bon WE 😎

 

[kiki29]

Re : Modification code pour Creation feuille

Salut, si le dossier n'existe pas Rep retourne 0 ERROR_SUCCESS et le crée
s'il existe Rep retourne 183 ERROR_ALREADY_EXISTS et ne fait rien etc
voir Ce lien n'existe plus
Voir http://www.cpearson.com/excel/ErrorHandling.htm
et particulieremnt Error Handling With Multiple Procedures
et A Note Of Caution ainsi que The Future Of Error Handling In VBA

 

[aubelix]

Re : Modification code pour Creation feuille

Bonsoir Kiki29 et JPN. 🙂

Merci pour vos réponses.
Les répertoires se créent bien, tout fonctionne.
Avez-vous vu mon code pour la création de la feuille INDEX_NUMERO.
Pouvez-vous me corriger SVP ?

Par avance, Merci pour votre aide.
Cordialement.

 

[JNP]

Re : Modification code pour Creation feuille

Re 🙂,
Pas vraiment suivi ce que tu souhaites qu'on corrige 😕...
Si c'est le PasteSpecial, as-tu essayé bêtement

Range("A2").Value = Range("A2").Text

Sinon, soit plus précis 🙄...
Bonne soirée 😎

 

[aubelix]

Re : Modification code pour Creation feuille

Bonjour JNP 🙂

Merci pour ta réponse.
La correction serait un code plus "accadémique" pour
créer le fichier INDEX_NUM.xls dans les règles de l'art.

Sub Test()
Dim sDossier As String
    sDossier = "D:\repA\repB\repC\repD\repE\repF"
    CreationDossier sDossier
 
   [COLOR=darkgreen]'A partir de là :[/COLOR]
[COLOR=darkgreen]  'Exporter la feuille "[COLOR=black]INDEX_NUMERO[/COLOR]" dans le dossier crée ci-dessus[/COLOR]
[COLOR=darkgreen]  'Exporter les valeurs pas la formule.[/COLOR]
[COLOR=darkgreen]  'Si le fichier éxiste déjà, l'écraser sans demander la confirmation[/COLOR]
 
 
End Sub

Merci pour ton aide.
Cordialement.