Changer nom d'un dossier
simonsimon1
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
simonsimon1 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
simonsimon1 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
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!
A voir également:
- Changer nom d'un dossier
- Changer dns - Guide
- Dossier appdata - Guide
- Changer nom iphone - Guide
- Impossible de supprimer un dossier - Guide
- Mettre un mot de passe sur un dossier - Guide
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
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