Deplacer un fichier PDF via macro word
Bonjour
Je veux déplacer un fichier PDF avec une macro WORD d'un dossier source vers un autre dossier destination puis supprimer le fichier origine dans le dossier source.
VBA bloque sur la ligne 4 avec le message fichier introuvable.
1/nomfichier = nfichier2 & ".pdf"
2/sourceW = "R:\2.DOCUMENTS GENERAUX\3.MODELES\PERSONNEL_ABSENCES - NDF\DEMANDE DE CONGES A VALIDER"
3/DestinationW = "R:\2.DOCUMENTS GENERAUX\3.MODELES\PERSONNEL_ABSENCES - NDF\DEMANDE DE CONGES VALIDEES"
4/FileCopy sourceW & nomfichier, DestinationW & nomfichier
5/Kill sourceW & nomfichier
Merci pour votre aide.
bonjour
il faudrait poser la question sur un forum Word
amitiés
Bonjour
Merci
Je vais le faire
Hi,
Pour info il y'a le topic "Autres questions" qui correspond à ce type de question mais pour cette fois-ci, voici le code :
Sub TRANSFERT_FICHIER_PDF() 'MACRO DE TRANSFERT DES FICHIERS
'I. Déclaration variables procédure
Dim Source, destin As String, objOFS As Variant
'---------------------------------------------------------------------------------------------------------
'IV. TRANSFERT FICHIER
'IV.1 si chemin existe traiter
Source = "B:\WAARD\Téléchargements\Nouveau dossier\enquête douanes recasters russes.pdf" 'def chemin source du fichier avec le nom du fichier en cours
destin = "B:\WAARD\Téléchargements\Nouveau dossier\test dossier\enquête douanes recasters russes.pdf" 'def chemin de destination avec le nom du fichier en cours
Set objOFS = CreateObject("Scripting.FileSystemObject") 'création d'un objet script de gestion de systeme fichier
If (objOFS.FileExists(Source)) Then 'si fichier source existe alors bouge le fichier du chemin source à son chemin de destination, comprenant le nom du fichier
objOFS.moveFile Source, destin
'++++++++++++++++++++++++++++++++++++++++++++++
MsgBox "Déplacement fichier terminé, le gestionnaire a été mis à jour de ce déplacement.", vbInformation, "Information : Déplacement terminé"
'---------------------------------------------------------------------------------------------------------
Else
'---------------------------------------------------------------------------------------------------------
MsgBox "Informations non valides :" _
& Chr(10) & "Nom fichier : " & ThisWorkbook.ActiveSheet.Range("B" & numligne).Text _
& Chr(10) & "Chemin fichier : " & ThisWorkbook.ActiveSheet.Range("G" & numligne).Text _
& Chr(10) & "Chemin de déplacement : " & ThisWorkbook.ActiveSheet.Range("H" & numligne).Text _
& Chr(10) & Chr(10) & "Abandon du déplacement", vbCritical, "ERREUR CHEMIN DOSSIER"
ThisWorkbook.ActiveSheet.Range("B" & numligne).Interior.ColorIndex = 2
'---------------------------------------------------------------------------------------------------------
End If
Set objOFS = Nothing 'raz de l'objet
'---------------------------------------------------------------------------------------------------------
End Sub
C'est du Vbscript une sous-famille de vba, il est possible de faire des actions sur les objets dans l'exploreur, ici un lien tuto :