Code VBA renommer répertoire avec valeur champ formulaire
Résolu
doublem93
Messages postés
337
Date d'inscription
Statut
Membre
Dernière intervention
-
doublem93 Messages postés 337 Date d'inscription Statut Membre Dernière intervention -
doublem93 Messages postés 337 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Code VBA renommer répertoire avec valeur champ formulaire
- Whatsapp formulaire opposition - Guide
- Code ascii - Guide
- Renommer des fichiers en masse - Guide
- Formulaire de réclamation facebook - Guide
- Code puk bloqué - Guide
5 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 583
Tout cela se trouve dans un formulaire?
Si tu parviens à récupérer la valeur de ton champ [NomRep] et à le mettre dans la variable nouveaunom, tu peux faire :
Si tu parviens à récupérer la valeur de ton champ [NomRep] et à le mettre dans la variable nouveaunom, tu peux faire :
Private Sub Commande50_Click() dim nouveaumon as string nouveaunom = "" ' à toi de trouver Call CopyFolder("D:\Dossiers\Dossiermodele", "D:\Dossiers\"+nouveaunom) End Sub
Bonjour,
J'ai essayé la solution proposée et cela ne fonctionne pas. On se retrouve avec une erreur 76 et surlignage de la ligne fld.copy...
Merci tout de même.
J'ai essayé la solution proposée et cela ne fonctionne pas. On se retrouve avec une erreur 76 et surlignage de la ligne fld.copy...
Merci tout de même.
Bonsoir
Je regarde cela dès mon retour au bureau qui n'aura lieu que mercredi ou jeudi.
Merci encore pour l'aide.
Je regarde cela dès mon retour au bureau qui n'aura lieu que mercredi ou jeudi.
Merci encore pour l'aide.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
je viens de faire l'essai de nouveau et cela fonctionne à partir du moment où le champ nom de dossier n'est pas vide.
Merci pour ton aide.
--
je viens de faire l'essai de nouveau et cela fonctionne à partir du moment où le champ nom de dossier n'est pas vide.
Merci pour ton aide.
--
Le code complet est le suivant :
Sub CopyFolder(folderpath As String, destfolderpath As String)
Dim fso As Object
Dim fld As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(folderpath)
fld.Copy destfolderpath
End Sub
Private Sub Commande50_Click()
dim nouveaumon as string
nouveaunom = Me.[IdDossier] & " - " & Me.[NomDossier]
Call CopyFolder("D:\Dossiers\Dossiermodele", "D:\Dossiers\"+nouveaunom)
End Sub
`