Discussion :

[Qfornezzo1]

Bonjour,
Après avoir passé la matinée à me renseigner grâce à différentes sources, je me retrouve bloqué sur une erreur bête…
J’aimerai créer des copies de fichiers existants et les renommer à ma sauce pour pouvoir les manipuler plus facilement dans des étapes suivantes d’une macro.
Le code suivant (mon code test) s’exécute sans erreurs sauf que les copies créées sont vides (ne contiennent plus les informations des fichiers originaux).

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Macro1()
'
' Macro1 Macro
'
    'Création d'un fichier
        Set NewBook = Workbooks.Add
    MsgBox ("Enregistrez le fichier qui contiendra les résultats.")
    Do
        fName = Application.GetSaveAsFilename
    Loop Until fName <> False
    NewBook.SaveAs Filename:=fName
    
    'Ouverture fichiers
    Dim i As Integer
    Dim fichName As String
    For i = 1 To 3
    fichName = "Fichier" & i
    Dim Fich As Variant
    Fich = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
    If Fich = False Then Exit Sub

    Dim Chemin As String, Fichier As String
 
    Chemin = ActiveWorkbook.path
    Fichier = fichName & ".xlsx"
                    'Enregistrement de la copie
    ActiveWorkbook.SaveCopyAs Chemin & "/" & Fichier
    Next i
                'Ouverture des fichiers (fonctionnel)
    'Dim wbExcel As Workbook
    'For i = 1 To 3
    'NomFichier = "Fichier" & i
    'Set wbExcel = Workbooks.Open(NomFichier)
    'Next i
End Sub

J’ai du mal à cerner où se trouve l’erreur… Surement quelque part dans le texte en rouge...
Merci d’avance !

[mercatog]

Activeworkbook est newbook

[Menhir]

A aucun moment dans ta macro tu ne dis à VBA quels sont les fichiers sources à renommer.
Tu ne sauvegardes que ActiveWorkbook qui est le classeur que tu viens de créer avec un Workbooks.Add et qui est donc vide.
Tu n'utilises pas l'information récupérée dans ta variable Fich.

Un détail en passant : des déclarations de variables (Dim) dans une boucle, ça pique les yeux...

[Qfornezzo1]

J'y ai réfléchi entre temps et effectivement, je ne récupère pas l'information de la variable Fich.
Je vais modifier la déclaration de variable pour qu'elle soit hors de la boucle aussi :/.

Mon problème est que je n'arrive pas à utiliser les informations de la variable Fich pour activer ou rendre actif le Workbook correspondant à celui stocké dans Fich.
C'est tout bête mais c'est ce qui me bloque.

Merci pour vos réponses rapides !

[Philippe Tulliez]

Bonjour,

J’aimerai créer des copies de fichiers existants et les renommer à ma sauce pour pouvoir les manipuler plus facilement dans des étapes suivantes d’une macro.

Si c'est renommer des fichiers existants, tu n'es pas obligé de les ouvrir et les "Sauver Sous" (ce qui te fait deux fichiers chaque fois).

Il existe une instruction Name qui permet de renommer des fichiers ou des répertoires. Tu parcours un répertoire avec Dir et tu renommes dans une boucle

Voir dans la FAQ Comment renommer un fichier ?

[Qfornezzo1]

Bonjour Philippe Tulliez,

J'ai bien besoin de créer des copies puis de renommer ces copies !

[Patrice740]

J'ai bien besoin de créer des copies puis de renommer ces copies !

Pourquoi ne pas enregistrer directement les copies avec le bon nom ?

Code :

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

MyWorkbook.SaveCopyAs MyWorkbook.Path & "\MonFichier.xlsm"

[Qfornezzo1]

Il semblerait que mon problème était bien simple et qu'il ai été mal compris.
J'ai finalement trouvé une solution un peu tirée par les cheveux mais fonctionnelle. Je dois passer par l'ouverture et la fermeture des fichiers initiaux...

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
Dim i As Integer
    Dim fichName As String
    Dim Fich As Variant
    MsgBox ("Choisissez les six fichiers correspondants aux 6 derniers mois.")
    For i = 1 To 3
    fichName = "Fichier" & i
    Fich = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
    If Fich = False Then Exit Sub
    Set Wb = Workbooks.Open(Fich)
    Dim Chemin As String, Fichier As String
 
    Chemin = ActiveWorkbook.path
    Fichier = fichName & ".xlsx"
 
    ActiveWorkbook.SaveCopyAs Chemin & "/" & Fichier
    ActiveWorkbook.Close
 
    Next i

Merci à tous, même si la solution est loin d'être élégante.
Bonne journée !

[Philippe Tulliez]

Bonjour,

Il semblerait que mon problème était bien simple et qu'il ai été mal compris

Quand tant de personnes semblent mal comprendre un "problème simple", il faut peut-être se poser des questions

[Menhir]

Mon problème est que je n'arrive pas à utiliser les informations de la variable Fich pour activer ou rendre actif le Workbook correspondant à celui stocké dans Fich.

Tu peux l'utiliser pour ouvrir le fichier comme tu l'as fait dans ton message précédent.
Mais c'est une solution lourde et longue.

Il est plus simple de traiter directement au niveau du fichier comme l'a suggéré Philippe Tulliez ( ).

Mais si tu veux faire une copie du fichier sous un autre nom et non pas renommer le fichier, plutôt que l'instruction Name, je te conseillerais l'instruction FileCopy.
Lire ça : https://docs.microsoft.com/fr-fr/off...copy-statement

Ca sera beaucoup plus rapide à l'exécution (sans parler de l'affichage) que la combinaison Open + SaveAs + Close.