Changer nom d'un dossier
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!!
