Code VBA renommer répertoire avec valeur champ formulaire
Résolu/Fermé
doublem93
doublem93
- Messages postés
- 336
- Date d'inscription
- samedi 16 août 2008
- Statut
- Membre
- Dernière intervention
- 20 novembre 2016
doublem93
- Messages postés
- 336
- Date d'inscription
- samedi 16 août 2008
- Statut
- Membre
- Dernière intervention
- 20 novembre 2016
A voir également:
- Code VBA renommer répertoire avec valeur champ formulaire
- Code VBA renommer répertoire avec valeur champ formulaire ✓ - Forum - Access
- Vba access récupérer valeur champ formulaire - Forum - Access
- Récuperer une valeur d'un autre formulaire ✓ - Forum - Access
- {Access} récupérer une valeur d'un formulaire - Forum - Access
- [ACCESS]valeur zone de texte = valeur champ - Forum - Programmation
5 réponses
yg_be
10 nov. 2016 à 20:20
- Messages postés
- 19275
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 17 mai 2022
10 nov. 2016 à 20:20
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
doublem93
11 nov. 2016 à 13:21
- Messages postés
- 336
- Date d'inscription
- samedi 16 août 2008
- Statut
- Membre
- Dernière intervention
- 20 novembre 2016
11 nov. 2016 à 13:21
Merci
Je vais essayer lundi et vous dirai le résultat
Cordialemen
Je vais essayer lundi et vous dirai le résultat
Cordialemen
doublem93
14 nov. 2016 à 14:07
- Messages postés
- 336
- Date d'inscription
- samedi 16 août 2008
- Statut
- Membre
- Dernière intervention
- 20 novembre 2016
14 nov. 2016 à 14:07
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.
yg_be
14 nov. 2016 à 18:20
- Messages postés
- 19275
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 17 mai 2022
14 nov. 2016 à 18:20
Quand la ligne fld.copy est surlignée, si tu déplaces le curseur sur "destfolderpath", la valuer de "destfolderpath" va s'afficher. Quelle est cette valeur?
doublem93
14 nov. 2016 à 20:04
- Messages postés
- 336
- Date d'inscription
- samedi 16 août 2008
- Statut
- Membre
- Dernière intervention
- 20 novembre 2016
14 nov. 2016 à 20:04
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
doublem93
19 nov. 2016 à 11:33
- Messages postés
- 336
- Date d'inscription
- samedi 16 août 2008
- Statut
- Membre
- Dernière intervention
- 20 novembre 2016
19 nov. 2016 à 11:33
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.
--
doublem93
19 nov. 2016 à 19:44
- Messages postés
- 336
- Date d'inscription
- samedi 16 août 2008
- Statut
- Membre
- Dernière intervention
- 20 novembre 2016
19 nov. 2016 à 19:44
J'explique que j'ai remplacé [NomRep] par [IdDossier] & " - " & [NomDossier].
C'est deux champs présents dans le formulaire et qui sont les informations présentes dans le champ [NomRep]
--
C'est deux champs présents dans le formulaire et qui sont les informations présentes dans le champ [NomRep]
--
doublem93
20 nov. 2016 à 21:26
- Messages postés
- 336
- Date d'inscription
- samedi 16 août 2008
- Statut
- Membre
- Dernière intervention
- 20 novembre 2016
- Messages postés
- 336
- Date d'inscription
- samedi 16 août 2008
- Statut
- Membre
- Dernière intervention
- 20 novembre 2016
20 nov. 2016 à 21:26
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
`