Discussion :

[rouach]

Bonjour tout le monde,

je vais essayer d'être concis et clair.

1° J'aimerais ouvrir un dialogbox (en cliquant sur Joindre fichier), y sélectionner un fichier PDF qui se trouve sur le bureau et le déplacer dans un dossier spécifique.
2° Renommer ce fichier PDF selon le même code qu'utilisé pour renommer la feuille Excel qui sera créée en fin de procédure ( en cliquant sur Terminer).

J'ai déjà essayé 2-3 choses mais ça ne fait rien ;-)

Merci d'avance pour votre aide.

[Menhir]

le déplacer dans un dossier spécifique.

MoveFile (comme méthode de l'objet fichier) : https://docs.microsoft.com/fr-fr/off...ovefile-method

Renommer ce fichier PDF

Name (comme propriété de l'objet fichier) https://docs.microsoft.com/fr-fr/off...mobject-object

Mais le MoveFile permet de changer le nom du fichier en le déplaçant.

[rouach]

MoveFile demande une source, donc un nom exact de fichier (les fichiers PDF sont des offres de fournisseurs différents donc ils ne sont jamais nommé pareil)?

Il faudrait que je puisse avoir une Dialogbox pour sélectionner le fchier.

Et comme je suis une bille si tu pouvais m'aider en me donnant un bout de code ce serait top.

[Menhir]

Il faudrait que je puisse avoir une Dialogbox pour sélectionner le fchier.

A la lecture de ta demande, je pensais que tu avais résolu ce problème.
GetOpenFilename https://msdn.microsoft.com/library/8...ice.15%29.aspx

Et comme je suis une bille si tu pouvais m'aider en me donnant un bout de code ce serait top.

Tant qu'on n'a pas essayé, ...

A moins que ce soit une inaptitude génétique (ce qui serait une première), je ne vois pas pourquoi tu ne pourrais pas le faire avec quelques efforts.

[rouach]

A moins que ce soit une inaptitude génétique (ce qui serait une première), je ne vois pas pourquoi tu ne pourrais pas le faire avec quelques efforts.

Menhir j'apprécie le temps que tu passes pour moi, mais non ce n'est pas génétique.....ça fait 2 jours que j'essai plein de trucs genre FSO getopen, et patati et patata.... je viens vers vous car je bloque.

GetOpen ouvre bien la boîte de dialogue mais une fois sélectionné, le fichier soit s'ouvre, soit la dialogbox se ferme sans rien faire.

Comme dit avant le movefile déplace bien un fichier d'un dossier à un autre. Mais si ce n'est jamais le même fichier et pas forcément au même emplacement (PC multi-Users), ça ne fonctionne pas.

[rouach]

Bon voilà après trois jours de recherche et de bidouille j'ai trouvé 2 codes différents.
Le premier bout je l'ai pris pour que ça copie le chemin d'accès dans une cellule, j'ai shooté la cellule et suis resté sur FileSelected que j'ai réutilisé sur CopyFile.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton4_Click() 'Bouton joindre un fichier
 
 
Set myFile = Application.FileDialog(msoFileDialogOpen)
With myFile
.Title = "Choose File"
.AllowMultiSelect = False
If .Show <> -1 Then
Exit Sub
End If
FileSelected = .SelectedItems(1)
End With
 
 
Set fso = CreateObject("scripting.filesystemobject")
    fso.CopyFile Source:=FileSelected, Destination:="G:\GEM_APPLICATIONS\SAP_PM\SAP PM\090 Commandes\Demande d' Achat_ Direct\" & [B8] + "_" + [B7] + "_" + [B6] + "_" + [B10] + "_" + [B11].Value & ".pdf"
 
 
End Sub

Dernière question, si j'ai un fichier autre que pdf, je peux mettre un ". générique" pour tout types?