Discussion :

[Polygos]

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

[ARTURO83]

Bonjour,

ActiveWorkbook.SaveAs "\\Station-serveur\BDD\Sauv BDD Avant Import\GRANDE BASE " & name & "-" & Format(Now(), "mmdd-hhmm") & ".xlsm"

Je ne vois pas sur quel lecteur doit se faire l'enregistrement. Faites un enregistrement manuel en utilisant l'enregistreur de macros pour obtenir la bonne syntaxe.

Cdlt

[Polygos]

Bonjour,



Je ne vois pas sur quel lecteur doit se faire l'enregistrement. Faites un enregistrement manuel en utilisant l'enregistreur de macros pour obtenir la bonne syntaxe.

Cdlt

Bonjour
je ne crois pas non, ça ça fonctionne plus loin dan sle code pour d'autres fichiers. Le lecteur, c'est un serveur local qui s'atteint bien comme ça:
\\Station-serveur\BDD\Sauv BDD Avant Import\

Par exemple, à parti de celui-ci, la source je crée une feuille sous Wb5, ws5, que je sauve corectement ainsi:

Code :

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

1
2
3
4
5
6
7
8
 
With ws5 'Fichier de mise à jour PQ 
    ws5.Copy
    ActiveWorkbook.SaveAs "\\Station-serveur\PARTENAIRES\INTERNET\MARKET PLACE\\Fichier de stock\Imports\Offres\MAJ\MAJ PQ INT (v" & ver & ")" & name & "-" & Format(Now(), "mmdd-hhmm") & ".xlsx"
    DoEvents
    ws5.Activate
    ActiveWorkbook.Close savechanges:=False
End With

Et el classeur obtenu reste d'ailleurs ouvert, ce qui me permet de le controler.

ou peut être le problème alors ?

[ARTURO83]

Bonjour,

Avez-vous essayé de l'enregistrer en utilisant l'enregistreur de macros afin de pouvoir comparer le code obtenu et le votre?

Cdlt