P'tit coup de main sur un code de débutant?
Salut la compagnie,
J'ai un fichier de budget pour lequel je veux conserver des archives (une copie à date du document).
J'ai donc écrit le code suivant :
'Générer un Budget à Date
Sub Générer_Budget_a_Date()
Dim Adresse_Dossier As String
Dim Nom_Fichier As String
Dim Nom_MAJ As String
On Error GoTo 1
'MAJ de la date de MAJ (A2) et dun numéro d'edition
Range("A2").Value = Now
Range("B2").Value = Range("B2") + 1
'Indiquer l'adresse du dossier où sauvegarder les fichiers
Adresse_Dossier = ThisWorkbook.Path
'Désactiver les alertes
Application.DisplayAlerts = False
'Indiquer le nom de la version précédente à sauvegarder
Nom_Fichier = "Budget Real Estate " & Range("A1") & " (en cours).xlsm"
'Indiquer le nom de la nouvelle version
Nom_MAJ = Year(Date) & "_" & Month(Date) & Day(Date) & "_Budget-" & Range("A1") & "_Real-Estate_Ed" & Range("B2") & ".xlsx"
'Générer un fichier du Budget à Date et l'enregistrer dans le dossier
ActiveWorkbook.SaveCopyAs Adresse_Dossier & Nom_MAJ
'Modifier le nom du fichier et l'enregistrer dans le dossier
ThisWorkbook.SaveAs Adresse_Dossier & Nom_Fichier
MsgBox "Le fichier à date a bien été enregistrer dans votre dossier", vbOKOnly + vbInformation, "Confirmation de l'enregistrement"
'Réactiver les alertes
Application.DisplayAlerts = True
1
End Sub
________________________________________________________________________
Mon problème : Le fichier ne s'enregistre pas dans le bon dossier (thisworkbook.path) mais dans le dossier "Documents" de mon PC. Par contre le fichier principal reste bien là où il doit être et fait sa MAJ normalement.
L'un d'entre vous saurait-il me dire ce qui cloche?
*Petite précision, le Path mène à un dossier enregistré sur Sharepoint
Bonsoir,
J'ai déjà eu le problème également. En version 2019 ça fonctionnait,mais pas sur 365 alors que je ne vois pas le problème que ça pourrait poser.
De mon côté j'ai mis le chemin en clair pour résoudre le problème ==> C:\Users\Ect..
Hello,
Adresse_Dossier = ThisWorkbook.Path & "\"J'y ai cru mais non ce n'est pas l'antislash qui manque
bonsoir,
je confirme l'antislash manque bien mais si cela ne résout pas le problème, tu dois avoir une autre erreur...
vérifie tes noms de fichier
Générer un fichier du Budget à Date et l'enregistrer dans le dossier
msgbox Adresse_Dossier & Nom_MAJ
ActiveWorkbook.SaveCopyAs Adresse_Dossier & Nom_MAJ
'Modifier le nom du fichier et l'enregistrer dans le dossier
msgbox Adresse_Dossier & Nom_Fichier
ThisWorkbook.SaveAs Adresse_Dossier & Nom_Fichierenlève aussi le on error goto 1 pour vérifier si tu ne reçois pas une autre erreur que celle que tu as prévue.