Discussion :

[dlight]

Bonjour à tous.

Je me suis inspiré d'une autre discussion afin d'enregistrer sous un autre nom un fichier excel...

http://www.developpez.net/forums/d10...chier-lecture/

J'ai essayé différentes façons mais ça ne fonctionne pas.

Je cherche donc à enregistrer sous dans le répertoire "mes documents"

Voici le bout de code (notez que le nom du fichier provient de trois variables)

Code :

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

1
2
NomDeMonNouvFichier = (NoClient And "_" And NomDuClient And "_" And NuméroDeCompte And ".xls")
    Chemin = "C:\Users\" & Application.UserName & "\Mes Documents\(NomDeMonNouvFichier)"

Merci encore une fois pour votre aide.

Dlight

[mercatog]

Code :

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

1
2
3
4
5
6
Dim NomDeMonNouvFichier As String, Dossier As String
 
NomDeMonNouvFichier = NoClient & "_" & NomDuClient & "_" & NuméroDeCompte & ".xls"
Dossier = "C:\Users\" & Application.UserName & "\Mes Documents\"
 
ThisWorkbook.SaveAs Dossier & NomDeMonNouvFichier

[patricktoulon]

bonjour

comme je vois que tu t ai inspiré de mon exemple

je le corige pour toi

Code :

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

1
2
3
 
'tu dois metre ca
Chemin = "C:\Users\" & Application.UserName & "\Mes Documents\" & NomDeMonNouvFichier

quand tu utilise une variable pour le nom elle ne dois pas etre entre guillemet ni parenthezes

ca >>>>

Code :

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

    Chemin = "C:\Users\" & Application.UserName & "\Mes Documents\(NomDeMonNouvFichier)"

n'est pas pareil que ca

Code :

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

   Chemin = "C:\Users\" & Application.UserName & "\Mes Documents\" & NomDeMonNouvFichier

[dlight]

Merci encore une fois pour les explications.

J'aimerais modifier l'endroit où le fichier sera enregistré en donnant le choix du répertoire à l'utilisateur du fichier.

Au début de ce code, j'ai une fenêtre qui me permet de sélectionner le fichier de l'an dernier afin de le mettre à jour dans la présente version.

Code :

Code :

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

Fichier = Application.GetOpenFilename("Excel Files (*.xls), *.xls")

J'aimerais le même fonctionnement qu'à l'ouverture. J'ai donc chercher...

Code:

Code :

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

1
2
3
4
5
6
7
8
 NomDeMonNouvFichier = NoClient & "_" & NomDuClient & "_" & NuméroDeCompte & ".xls"
 
 
    Chemin = Application.GetSaveAsFilename
 
    ActiveWorkbook.SaveAs Filename:=Chemin & NomDeMonNouvFichier, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

J'ai bien la fenêtre afin d'indiquer l'endroit où faire la sauvegarde...

Par contre, le nom du fichier n'est pas bon (ancien et nouveau nom dans la fenêtre de sauvegarde)
Quelqu'un peut-il m'indiquer ce qu'il me manque ?

Merci encore une fois !

Dlight

[dlight]

Bonjour à tous.

J'ai trouvé et pour le bénéfice de d'autres personnes...

Voici mon code !

Code :

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

1
2
3
4
5
6
7
8
NomDeMonNouvFichier = NoClient & "_" & NomDuClient & "_" & NuméroDeCompte & ".xls"
    Application.FileDialog(msoFileDialogFolderPicker).Show
    Chemin = Application.FileDialog(msoFileDialogFolderPicker).InitialFileName
 
 
    ActiveWorkbook.SaveAs Filename:=Chemin & NomDeMonNouvFichier, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

Dlight