Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel sauvegarde massive de documents word avec Excel

sauvegarde massive de documents word avec Excel

5 réponses
Avatar
lavoie
J'ai eu une macro pour importer dans Excel (2007 pro) en colonne A les
documents Word contenu dans des dossiers Word. En colomme B je renomme
chacun des dossiers en lui accolant l'année et le mois suivi du nom de
ll'ancien document Word.

B1 serait comme "2009_03_" & A1

la valeur de B1 deviendrait le nom du nouveau document qui ecraserait
l'ancien document du dossier.

Comment "exporter", dans un dossier word, des documents renommés par la
valeur des cellules B1 à B5000 d'un fichier Excel ?

Merci de votre aide

A. Lavoie
Québec
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
lavoie
"lavoie" a écrit dans le message de
news:%
J'ai eu une macro pour importer dans Excel (2007 pro) en colonne A les


noms des
documents Word contenu dans des dossiers Word. En colomme B je renomme
chacun des dossiers en lui accolant l'année et le mois suivi du nom de
ll'ancien document Word.

B1 serait comme "2009_03_" & A1

la valeur de B1 deviendrait le nom du nouveau document qui ecraserait
l'ancien document du dossier.

Comment "exporter", dans un dossier word, des documents renommés par la
valeur des cellules B1 à B5000 d'un fichier Excel ?

Merci de votre aide

A. Lavoie
Québec




Avatar
Daniel.C
Bonjour.
Essaie prudemment le code suivant (non testé) :

Sub test()
Dim c As Range
For Each c In Range([A1], [A65586].End(xlUp))
FileCopy c.Value, c.Offset(, 1).Value
Kill c.Value
Next
End Sub

Note: Les fichiers sont supprimés sans passer par la corbeille.
Cordialement.
Daniel

J'ai eu une macro pour importer dans Excel (2007 pro) en colonne A les
documents Word contenu dans des dossiers Word. En colomme B je renomme
chacun des dossiers en lui accolant l'année et le mois suivi du nom de
ll'ancien document Word.

B1 serait comme "2009_03_" & A1

la valeur de B1 deviendrait le nom du nouveau document qui ecraserait
l'ancien document du dossier.

Comment "exporter", dans un dossier word, des documents renommés par la
valeur des cellules B1 à B5000 d'un fichier Excel ?

Merci de votre aide

A. Lavoie
Québec


Avatar
Alain
Je te suggère d'utiliser la commande NAME plutôt que FileCopy et Kill, ça va
être plus rapide et plus sécuritaire puisse qu'il ne va y avoir aucun
fichier de supprimé, ils vont plutôt être tout simplement renommés...

Voici un exemple du code qui renommerais tous les noms de fichiers dans la
colonne A (à partir de A1 jusqu'à la fine de la colonne) au nom
correspondant dans la colonne B pour la feuille active.

Public Sub Renommer()
Dim Cell As Range
For Each Cell In ActiveSheet.UsedRange.Columns("A").Cells
Debug.Print "Name " & Cell.Value & " As " & Cell.Columns("B").Value
Next
End Sub

Alain

"lavoie" wrote in message
news:#
J'ai eu une macro pour importer dans Excel (2007 pro) en colonne A les
documents Word contenu dans des dossiers Word. En colomme B je renomme
chacun des dossiers en lui accolant l'année et le mois suivi du nom de
ll'ancien document Word.

B1 serait comme "2009_03_" & A1

la valeur de B1 deviendrait le nom du nouveau document qui ecraserait
l'ancien document du dossier.

Comment "exporter", dans un dossier word, des documents renommés par la
valeur des cellules B1 à B5000 d'un fichier Excel ?

Merci de votre aide

A. Lavoie
Québec




Avatar
Alain
La ligne avec Debug dans le code précédent est pour tester seulement, le
code complet avec la commande active est:

Public Sub Renommer()
Dim Cell As Range
For Each Cell In ActiveSheet.UsedRange.Columns("A").Cells
Name Cell.Value As Cell.Columns("B").Value
Next
End Sub


"Alain" wrote in message
news:O2Z#
Je te suggère d'utiliser la commande NAME plutôt que FileCopy et Kill, ça
va être plus rapide et plus sécuritaire puisse qu'il ne va y avoir aucun
fichier de supprimé, ils vont plutôt être tout simplement renommés...

Voici un exemple du code qui renommerais tous les noms de fichiers dans la
colonne A (à partir de A1 jusqu'à la fine de la colonne) au nom
correspondant dans la colonne B pour la feuille active.

Public Sub Renommer()
Dim Cell As Range
For Each Cell In ActiveSheet.UsedRange.Columns("A").Cells
Debug.Print "Name " & Cell.Value & " As " & Cell.Columns("B").Value
Next
End Sub

Alain

"lavoie" wrote in message
news:#
J'ai eu une macro pour importer dans Excel (2007 pro) en colonne A les
documents Word contenu dans des dossiers Word. En colomme B je renomme
chacun des dossiers en lui accolant l'année et le mois suivi du nom de
ll'ancien document Word.

B1 serait comme "2009_03_" & A1

la valeur de B1 deviendrait le nom du nouveau document qui ecraserait
l'ancien document du dossier.

Comment "exporter", dans un dossier word, des documents renommés par la
valeur des cellules B1 à B5000 d'un fichier Excel ?

Merci de votre aide

A. Lavoie
Québec






Avatar
lavoie
Un grand merci à tous!

A. Lavoie

"Alain" a écrit dans le message de
news:
La ligne avec Debug dans le code précédent est pour tester seulement, le
code complet avec la commande active est:

Public Sub Renommer()
Dim Cell As Range
For Each Cell In ActiveSheet.UsedRange.Columns("A").Cells
Name Cell.Value As Cell.Columns("B").Value
Next
End Sub


"Alain" wrote in message
news:O2Z#
> Je te suggère d'utiliser la commande NAME plutôt que FileCopy et Kill,


ça
> va être plus rapide et plus sécuritaire puisse qu'il ne va y avoir aucun
> fichier de supprimé, ils vont plutôt être tout simplement renommés...
>
> Voici un exemple du code qui renommerais tous les noms de fichiers dans


la
> colonne A (à partir de A1 jusqu'à la fine de la colonne) au nom
> correspondant dans la colonne B pour la feuille active.
>
> Public Sub Renommer()
> Dim Cell As Range
> For Each Cell In ActiveSheet.UsedRange.Columns("A").Cells
> Debug.Print "Name " & Cell.Value & " As " &


Cell.Columns("B").Value
> Next
> End Sub
>
> Alain
>
> "lavoie" wrote in message
> news:#
>> J'ai eu une macro pour importer dans Excel (2007 pro) en colonne A les
>> documents Word contenu dans des dossiers Word. En colomme B je renomme
>> chacun des dossiers en lui accolant l'année et le mois suivi du nom de
>> ll'ancien document Word.
>>
>> B1 serait comme "2009_03_" & A1
>>
>> la valeur de B1 deviendrait le nom du nouveau document qui ecraserait
>> l'ancien document du dossier.
>>
>> Comment "exporter", dans un dossier word, des documents renommés par la
>> valeur des cellules B1 à B5000 d'un fichier Excel ?
>>
>> Merci de votre aide
>>
>> A. Lavoie
>> Québec
>>
>>