Enregistrer un fichier avec un userform

Pierrot93

XLDnaute Barbatruc

• 20 Juillet 2011

• #2

Re : Enregistrer un fichier avec un userform

Bonjour,

regarde peut être ceci, pas d'usf mais une "boite de dialogue" :

Code:

Option Explicit
Sub test()
With Application.FileDialog(msoFileDialogFolderPicker)
    .Show
    If .SelectedItems.Count > 0 Then
        ActiveWorkbook.SaveAs .SelectedItems(1) & "\NomFichier"
        Range("A1").Hyperlinks.Add Range("A1"), ActiveWorkbook.FullName
    End If
End With
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

B

billouu

XLDnaute Junior

• 20 Juillet 2011

• #3

Re : Enregistrer un fichier avec un userform

Merci beaucoup Pierrot,

Cela me va plutôt bien, j'ai pu l'intégrer à mon USF.
Cependant est ce qu'une modif pourrait être faite pour que cela fonctionne quelque soit le type du fichier...?

Par avance Merci


Billouu

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Juillet 2011

• #4

Re : Enregistrer un fichier avec un userform

Re,

Cependant est ce qu'une modif pourrait être faite pour que cela fonctionne quelque soit le type du fichier...?

Cliquez pour agrandir...

Euh... tu veux dire quoi ? ce code te permet de choisir un dossier... pour choisir un fichier, remplace "msoFileDialogFolderPicker" par "msoFileDialogFilePicker"...

bon après midi
@+

 

Vote positif 0 Vote négatif

B

billouu

XLDnaute Junior

• 20 Juillet 2011

• #5

Re : Enregistrer un fichier avec un userform

Ok mais lorsque je met "msoFileDialogFilePicker" dans "Nom de fichier" j'ai récent qui est écrit par défaut...?
Et sinon pour le reste j'aimerai pouvoir enregistrer le fichier (un pdf en l'occurence), une fois selectionner, dans un autre dossier.

Private Sub CommandButton2_Click()
With Application.FileDialog(msoFileDialogFilePicker)
.Show

If .SelectedItems.Count > 0 Then
Me.TextBox3.Value = .SelectedItems(1)
'Ensuite récupérer le chemin dans le textbox3 pour l'enregistrer dans un dossier définie...?


End If
End With

End Sub

 

Vote positif 0 Vote négatif

B

billouu

XLDnaute Junior

• 20 Juillet 2011

• #6

Re : Enregistrer un fichier avec un userform

J'ai réussi a enlever le "Récent" simplement avec:

.InitialFileName = ""

Je voudrais désormais simplement déplacer un fichier (pdf) d'un emplacement connu à un autre également connu...?

Merci d'avance

Billouu

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Juillet 2011

• #7

Re : Enregistrer un fichier avec un userform

Re,

Ok mais lorsque je met "msoFileDialogFilePicker" dans "Nom de fichier" j'ai récent qui est écrit par défaut...?

Cliquez pour agrandir...

euh... pas chez moi sous 2003, essaye peut être abvec ceci :

Code:

With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ThisWorkbook.Path
    .Show
    If .SelectedItems.Count > 0 Then
        ActiveWorkbook.SaveAs .SelectedItems(1) & "\NomFichier"
        Range("A1").Hyperlinks.Add Range("A1"), ActiveWorkbook.FullName
    End If
End With

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Juillet 2011

• #8

Re : Enregistrer un fichier avec un userform

Re,

pour déplacer un fichier, regarde du coté de l'instruction "Name" :

Code:

Name AncienNom As NouveauNom

A noter les noms sont le chemin complet du fichier + nom avec extension...

 

Vote positif 0 Vote négatif