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 :

http://www.info-3000.com/vbvba/fichiers/#DeplaceFichier

Rechercher des sujets similaires à "deplacer fichier pdf via macro word"