Discussion :

[florent77]

Bonjour à toutes à tous,

Comme vous le verrez dans le code ci-dessous, je copie un dossier comprenant deux fichiers (excel) et le colle dans un autre fichier en changeant le nom du dossier.
Est-il possible de changer à la fois le nom du dossier et des fichiers qu'il contient ?
Pour être plus clair : je modifie le nom du dossier "Fcomplet" en "Madame Soleil" et souhaite également nommer les deux fichiers qu'il contient "Madame Soleil"
Le hic, c'est que bien évidemment ce ne sera pas toujours "Madame Soleil"...
Y'a t-il moyen d'ouvrir une boîte de dialogue (ou autre) et de rentrer un nom particulier ?

Un grand merci d'avance pour votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub CopieDossierFcomplet()
    Dim GestionFichier As New Scripting.FileSystemObject
    GestionFichier.CopyFolder "S:\gab macro\Fcomplet", "S:\essai\Madame Soleil"
    Set GestionFichier = Nothing
End Sub

[Menhir]

Est-il possible de changer à la fois le nom du dossier et des fichiers qu'il contient ?
Pour être plus clair : je modifie le nom du dossier "Fcomplet" en "Madame Soleil" et souhaite également nommer les deux fichiers qu'il contient "Madame Soleil"

A priori non puisque deux fichiers d'un même répertoire ne peuvent pas avoir le même nom.
Mais je suppose qu'il doit y avoir une subtilité que tu n'as pas précisé dans l'énoncé.

Quoi qu'il en soit, pour renommer un dossier ou un fichier, on utilisa l'instruction Name.
https://msdn.microsoft.com/fr-fr/VBA...name-statement

Le hic, c'est que bien évidemment ce ne sera pas toujours "Madame Soleil"...
Y'a t-il moyen d'ouvrir une boîte de dialogue (ou autre) et de rentrer un nom particulier ?

Une simple InputBox devrait suffire.
https://msdn.microsoft.com/en-us/VBA...utbox-function

[florent77]

Bonjour Menhir et merci beaucoup
Je vais regarder à tout cela

Oups... Effectivement les deux fichiers excel n'auront pas le même nom.
Il y aura donc un dossier "Madame Soleil" comprenant deux fichiers : "Madame Soleil 1" et "Madame Soleil 2"

[florent77]

Ça avance un peu...
Par contre, comment faire en sorte que ce je saisisse dans l'IntputBox devienne le nom de mon dossier de destination ?
Dans le code ci-dessous j'ai saisi "Nom" => GestionFichier.CopyFolder "S:\gab macro\sans indice\Fcompletcompa", "S:\essai\Nom"
Bien sûr il me renomme mon dossier "Nom" et non ce que j'ai saisi, ça serait trop simple

Si quelqu'un a une idée

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub box()
    Dim Nom As String
    Nom = InputBox("NOM et Prénom du patient", "Patient", "", 500, 500)
    Dim GestionFichier As New Scripting.FileSystemObject
    GestionFichier.CopyFolder "S:\gab macro\sans indice\Fcompletcompa", "S:\essai\Nom"
    Set GestionFichier = Nothing
End Sub

[patricktoulon]

pas besoins de scripting
en vba

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
anciendossier="f:\mondossier\"
nouveaudossier="c:\toto\"
MKDIR nouveaudossier 'creation du dossier 
fichiers=dir(anciendossier &"*,*")
do
name anciendossier & fichiers as nouveaudossier & fichiers
fichier=dir
loop until fichiers=""

[Menhir]

Oups... Effectivement les deux fichiers excel n'auront pas le même nom.
Il y aura donc un dossier "Madame Soleil" comprenant deux fichiers : "Madame Soleil 1" et "Madame Soleil 2"

La "racine" du nom peut venir de l'InputBox, le reste venant d'une incrémentation concaténée avec l'opérateur &.
https://msdn.microsoft.com/fr-fr/VBA...icles/operator

Par contre, comment faire en sorte que ce je saisisse dans l'IntputBox devienne le nom de mon dossier de destination ?
Dans le code ci-dessous j'ai saisi "Nom" => GestionFichier.CopyFolder "S:\gab macro\sans indice\Fcompletcompa", "S:\essai\Nom"
Bien sûr il me renomme mon dossier "Nom" et non ce que j'ai saisi, ça serait trop simple

Pour faire simple, tu peux faire ça en deux temps : une première instruction (CopyFolder) qui copie puis une seconde instruction (Name) qui change le nom.

Autre solution : tu crées un nouveau dossier destination avec un MkDir (avec le nom que tu souhaites) et tu copies tes deux fichiers dedans (puis tu les renommes).

[florent77]

Merci à tous les deux, je vais essayer tout cela et reviens vous dire

[florent77]

Bonjour,

Bon... je galère un peu.
J'ai repris le code proposé par Patrick ci-dessous et rajouté une IntputBox pour saisir un Nom et un Prénom censé devenir le futur "Nom" du dossier et des fichiers (pour le moment j'ai un fichier word et un fichier excel dans le dossier parent).
J'imagine qu'il faille nommer les fichiers dans cette ligne de code : fichiers = Dir(anciendossier & "*,*").
J'ai un fichier nommé F.docx et un fichier nommé F.xlsx, j'ai essayé plusieurs combinaisons possible à l'intérieur de "*,*" sans aucun résultat.

Quelqu'un pourrait-il juste m'aiguiller un peu ???
Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub RenommerDossierFichiers()
    Dim NomPrénom As String
    NomPrénom = InputBox("NOM et Prénom du patient", "Patient", "", 2000, 2000)
    anciendossier = "D:\Fcomplet\"
    nouveaudossier = "D:\NomPrénom\"
    MkDir nouveaudossier 'creation du dossier
    fichiers = Dir(anciendossier & "*,*")
    Do
    Name anciendossier & fichiers As nouveaudossier & fichiers
    fichiers = Dir
    Loop Until fichiers = ""
 
End Sub

[pijaku]

Bonjour,

NomPrénom est une variable.
Pour l'utiliser dans la création du dossier, il faut l'enlever de tes guillemets...

Donc remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nouveaudossier = "D:\NomPrénom\"

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nouveaudossier = "D:\" & NomPrénom & "\"

[unparia]

Bonjour
A quoi correspond cette virgule dans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fichiers = Dir(anciendossier & "*,*")

???
Si c'est pour désigner le caractère précédent l'extension, c'est un point et non une virgule

[florent77]

Merci à tous les deux, j'avance
Le code fonctionne, le dossier est bien renommé avec ce que je saisis dans l'InputBox
Le problème est que les fichiers contenus dans l'ancien dossier sont coupés.
Je pense à un CopyFolder pour éviter cela ???
Il faudra également que je puisse renommer les fichiers copiés avec la racine saisie dans l'InputBox + un opérateur & pour les différencier.
ex : NomPrénom1.xlsx et NomPrénom2.xlsx
je vais regarder à cela mais je suis toujours prenant pour une petite piste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub RenommerDossierFichiers()
    Dim NomPrénom As String
    NomPrénom = InputBox("NOM et Prénom du patient", "Patient", "", 1000, 1000)
    anciendossier = "D:\Fcomplet\"
    nouveaudossier = "D:\" & NomPrénom & "\"
    MkDir nouveaudossier 'creation du dossier
    fichiers = Dir(anciendossier & "*.xlsx")
    Do
    Name anciendossier & fichiers As nouveaudossier & fichiers
    fichiers = Dir
    Loop Until fichiers = ""
 
End Sub

[Menhir]

A quoi correspond cette virgule dans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fichiers = Dir(anciendossier & "*,*")

???
Si c'est pour désigner le caractère précédent l'extension, c'est un point et non une virgule

Sans doute une faute de frappe due à un pavé numérique francophone (la touche "." renvoie "," ou "." suivant le logiciel utilisé).

[unparia]

Sans doute une faute de frappe due à un pavé numérique francophone (la touche "." renvoie "," ou "." suivant le logiciel utilisé).

Bonjour Menhir
Pas dans l'éditeur VBA (en tout état de cause, pas chez moi)
Quelle que soit la cause de cette bévue --->> en voilà une copiée/collée sans compréhension -->> échec total (aucun fichier retenu si son nom ne contient pas de virgule(s)) -->>

[florent77]

Rebonjour,

Après quelques bricolages j'ai trouvé cela.
Je crée un nouveau dossier que je renomme grâce à l'inputbox et je copie mes fichiers (word et excel) dedans que je renomme identiquement.
Il y avoir plus simple mais ça fonctionne, si vous avez des remarques.
Maintenant, étant donné que j'aurai deux fichiers excel, il va falloir tout en gardant la même racine NomPrénom les nommer différemment.
Je reviens vous dire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub CopierRenommer()
    Dim NomPrénom As String
    Dim GestionFichier As New Scripting.FileSystemObject
    NomPrénom = InputBox("NOM et Prénom du patient", "Patient", "", 1000, 1000)
    nouveaudossier = "S:\1. dossiers en cours\" & NomPrénom & ""
    MkDir nouveaudossier
    GestionFichier.CopyFile "S:\gab macro\Fpsy.xlsx", "S:\1. dossiers en cours\" & NomPrénom & "\" & NomPrénom & ".xlsx", False
    GestionFichier.CopyFile "S:\gab macro\Fcomplet.docx", "S:\1. dossiers en cours\" & NomPrénom & "\" & NomPrénom & ".docx", False
    Set GestionFichier = Nothing
 
End Sub

[florent77]

Bonjour à toutes et à tous,

Me revoilà avec un code qui fonctionne.
Je vous rappelle ce que je voulais obtenir :
Copier les fichiers d'un dossier (dans mon cas 2 fichiers excel et 1 fichier word) et les coller dans un nouveau dossier.
Renommer le nouveau dossier et les fichiers collés avec la même racine, ici le nom et le prénom.

exemple :
je rentre "Jacques CHARIC" dans l'inputbox
un dossier Jacques CHARIC est créé avec comme contenu 3 fichiers renommés comme suit :
- Jacques CHARIC compte-rendu 1 (excel)
- Jacques CHARIC compte-rendu 2 (excel)
- Jacques CHARIC conclusion (word)

Il doit y avoir plus simple mais cela fonctionne et cela peut servir.

Merci à Menhir, patricktoulon, pijaku et unparia pour leur aide précieuse !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub CopierRenommer()
    Dim NomPrénom As String
    Dim GestionFichier As New Scripting.FileSystemObject
    NomPrénom = InputBox("NOM et Prénom du patient", "Patient", "", 1000, 1000)
    Nouveaudossier = "S:\dossiers en cours\" & NomPrénom & ""
    MkDir Nouveaudossier
    GestionFichier.CopyFile "S:\gab macro\fichier1.xlsx", "S:\dossiers en cours\" & NomPrénom & "\" & NomPrénom & " compte-rendu 1.xlsx", False
    GestionFichier.CopyFile "S:\gab macro\fichier2.xlsx", "S:\dossiers en cours\" & NomPrénom & "\" & NomPrénom & " compte-rendu 2.xlsx", False
    GestionFichier.CopyFile "S:\gab macro\fichier.docx", "S:\dossiers en cours\" & NomPrénom & "\" & NomPrénom & " conclusion.docx", False
    Set GestionFichier = Nothing
 
End Sub