Bonjour
je suis novice et voudrais utiliser un fichier qui va servir de source à différentes opérations, et sauvegarder avant de commencer.

Il s'appelle "Base de données"

Puis j'ouvre les autres, qui y sont renseignés par la Base de données, puis je femre tout el monde et sauvegarde.
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
' Déclaration des fichiers

    Dim wb1, wb2, wb3, wb4 As Workbook '(Grande base, Modèle Import Complet)
    Dim ws1, ws2, ws3, ws4 As Worksheet
    
    'Base de données
    Set wb1 = ThisWorkbook
    Set ws1 = wb1.Worksheets("Epicerie")
    ActiveWorkbook.SaveAs "\\Station-serveur\BDD\Sauv BDD Avant Import\GRANDE BASE " & name & "-" & Format(Now(), "mmdd-hhmm") & ".xlsm"

    ActiveWorkbook.savechanges = True
    
    'CS-CART
    Set wb2 = Workbooks.Open("\\Station-serveur\PARTENAIRES MD\INTERNET\CS-CART\TRANSFERTS DE DONNEES\Modèles\Modèle_Import_PQS_FD-SV.xlsx")
    Set ws2 = wb2.Worksheets("PQ")
    
    'AMAZON
    Set wb3 = Workbooks.Open("\\Station-serveur\PARTENAIRES MD\INTERNET\MARKET PLACE\AMAZON\Fichier Exportés AMZ\Modèles\Fichiers pour mise à jour\Flat.File.Price.Inventory.xlsx")
    Set ws3 = wb3.Worksheets("Price Template")

..etc
Mais ça ne fonctionne pas.
Je reçois dès le lancement le message
La méthode 'SaveAs' de l'objet_workbook a échoué

Comment sauvegarde t on un fichier complet alors ?

Ce doit être idiot comme erreur..mais je ne vois pas, c'est bien saveAs pour les fichiers aussi