Changer nom d'un dossier
simonsimon1
Messages postés
9
Statut
Membre
-
simonsimon1 Messages postés 9 Statut Membre -
simonsimon1 Messages postés 9 Statut Membre -
Bonjour,
J'ai crée ce bout de code pour essayer de faire changer le nom de mon dossier en fonction du mois (représenté par i), en gros ca devrait afficher 1 pour janvier, 2 pour fevrier... car le fichier est mit à jour chaque mois. Bien entendu ca ne fonctionne pas donc j'aimerai bien savoir si vous avez pas des idées pour l'améliorer.
For i = 1 To 12
If Workbooks("Copie de Barème PJ 0" & i & "2018.xls").exist Then
l = Workbooks("Copie de Barème PJ 0" & i & "2018.xls").Worksheets("Barème PJ").Range("E40:E41").Value
Workbooks("exemple1.xlsm").Worksheets("baremes").Range("k51") = l
End If
Next i
Merci beaucoup!
J'ai crée ce bout de code pour essayer de faire changer le nom de mon dossier en fonction du mois (représenté par i), en gros ca devrait afficher 1 pour janvier, 2 pour fevrier... car le fichier est mit à jour chaque mois. Bien entendu ca ne fonctionne pas donc j'aimerai bien savoir si vous avez pas des idées pour l'améliorer.
For i = 1 To 12
If Workbooks("Copie de Barème PJ 0" & i & "2018.xls").exist Then
l = Workbooks("Copie de Barème PJ 0" & i & "2018.xls").Worksheets("Barème PJ").Range("E40:E41").Value
Workbooks("exemple1.xlsm").Worksheets("baremes").Range("k51") = l
End If
Next i
Merci beaucoup!
2 réponses
-
Salut !
Pour rename un dossier, perso j'utilise ça:
Dim oFld As Scripting.Folder 'cocher la référence Microsoft Scripting Runtime
newFichier = InputBox("Quel est le nouveau nom de votre fichier")
Set oFld = Fso.GetFolder(adresse & newFichier & "\Modo") 'chemin complet du dossier à rename (ici Modo)
oFld.Name = newFichier ' nouveau nom
Si ça peut t'aider :D -
Ah oui pas bete comme idée, je prefererai le faire automatiquement mais c'est un bon substitut, merci pour l'idée!!
