XL 2016 Fonction Name xxx As yyy

msauvegrain à dit:

Bonjour,

J'ai un problème, erreur chemin fichier.

VB:

Sub RenommeJpg()
   Dim Ligne As Long
   Dim chemin, FichOrigine, FichDestination, nom_origine, nom_modifie As String
   ' Définition des répertoires
   chemin = "C:\Program Files (x86)\FreeManagerSoftware\PhilaManager\Catalogue\Allemagne RDA\Poste\"
 
   ' Test existence des répertoires
   If Dir(chemin, vbDirectory) = "" Then
      MsgBox "Le répertoire d'origine n'existe pas !": Exit Sub
   End If
 
   ' Boucle sur toutes les lignes de la plage active à partir de la seconde
   For Ligne = 2 To ActiveSheet.UsedRange.Rows.Count
      If Cells(Ligne, 5) <> "" Then ' Test colonne A non vide
            FichOrigine = Cells(Ligne, 5) ' définition du fichier d'origine
            FichDestination = Cells(Ligne, 2) ' Définition fichier de destination
                nom_origine = chemin & FichOrigine
                nom_modifie = chemin & FichDestination
           
            If Dir(nom_origine) <> "" Then 'Test existence fichier d'origine
            ' Déplacement et renommage du fichier

               Name nom_origine As nom_modifie
             
               Cells(Ligne, 7) = "Trouvé" ' Réussi
            Else
               Cells(Ligne, 7) = "Pas Trouvé" ' Echec
            End If
      End If
   Next Ligne
End Sub

si qqn a une idée

Cliquez pour agrandir...

msauvegrain à dit:

Je ne sais pas comment activer les droits administrateur en VB

Cliquez pour agrandir...

msauvegrain à dit:

c'est une histoire de droits, dans le répertoire "Programme", ça ne fonctionne pas

Cliquez pour agrandir...

Dim oldName, oldName
oldName = "OLDFILE": newName = "NEWFILE" ' Define file names.
Name oldName As oldName ' Rename file. 
oldName = "C:\MYDIR\OLDFILE": newName = "C:\YOURDIR\NEWFILE"
Name oldName As newName ' Move and rename file.

Par exemple, pour copier le fichier Paye.xlsm qui se trouve dans le dossier c:\data\encours\ dans le fichier Paye-Janvier.xlsm du même dossier, vous utiliserez l’instruction suivante :

FileCopy "c:\data\encours\Paye.xlsm", "c:\data\encours\Paye-Janvier.xlsm"

Copy or Rename ? that's the question !

Cliquez pour agrandir...