Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ENregistrer automatiquement fichier excel dans dossiers ...

ENregistrer automatiquement fichier excel dans dossiers ...

15 réponses
Avatar
aravis
bonjour, vba est un langage très complexe.

Voici mon souci, j'ai un code qui me permet d'enregistrer tout les jours, un
fichier excel.

Le truc c'est que j'aimerai enregistrer les dossiers dans ../dates/janvier (
dans le dossier du mois actuellement)

voici mon code :

rivate Sub Workbook_Open()
Dim projet As Single
projet = Format(Now(), "ddmmyyyy")
ActiveWorkbook.SaveAs Filename:="V:\Production
LP11\morgan\SPCompresseurs\ du " & projet & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _
CreateBackup:=True
End Sub

cordialement
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
1 2
Avatar
Ange Ounis
j'ai un souci. Es-ce que ca vient du code que je met ?


Oui.

Essaye de remplacer :
Dim projet As Single

Par :
Dim projet As String

----------
Ange Ounis
----------

j'ai un souci. Es-ce que ca vient du code que je met ?


Private Sub Workbook_Open()

Dim projet As Single

projet = Format(Now(), "ddmmyyyy")
mois = application.WorksheetFunction.Proper(Format(Now(), "mmmm"))
chemin = "V:Production LP11morganSPCompresseurs" & mois & ""

ActiveWorkbook.SaveAs Filename:=chemin & "projet du " & projet & ".xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _
CreateBackup:=True

End Sub


cordialement


Avatar
aravis
quand je compile ca me marque : membre ou méthode de donnée introuvable.

et ca me surligne WorksheetFunction .

C'est bizarre vu que j'ai mon dossier mai dans compresseurLP11
Avatar
JLuc
quand je compile ca me marque : membre ou méthode de donnée introuvable.

et ca me surligne WorksheetFunction .

C'est bizarre vu que j'ai mon dossier mai dans compresseurLP11


Ca vient pas du repertoire existant ou pas, mais soit de la fonction
"Proper" soit de la fonction "Format".
essai :
mois = Format(Date, "mmmm")
mois = Application.WorksheetFunction.Proper(mois)
et regarde où çà bloque

--
JLuc

Avatar
aravis
ca change rien, toujours le meme message avec mois =
Application.WorksheetFunction.Proper(mois)

quand je met mois = Format(Date, "mmmm") , ca l'enregistre bien dans le
dossier mai, mais il garde le nom projet 2 :(

Private Sub Workbook_Open()

Dim projet2 As String

projet = Format(Now(), "ddmmyyyy")
mois = Format(Date, "mmmm")

chemin = "V:Production LP11morganSPCompresseursmois" & mois & ""

ActiveWorkbook.SaveAs Filename:=chemin & "projet2 du " & projet2 & ".xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _
CreateBackup:=True

End Sub
Avatar
JLuc
ca change rien, toujours le meme message avec mois =
Application.WorksheetFunction.Proper(mois)

quand je met mois = Format(Date, "mmmm") , ca l'enregistre bien dans le
dossier mai, mais il garde le nom projet 2 :(

Private Sub Workbook_Open()

Dim projet2 As String

projet = Format(Now(), "ddmmyyyy")
mois = Format(Date, "mmmm")

chemin = "V:Production LP11morganSPCompresseursmois" & mois & ""

ActiveWorkbook.SaveAs Filename:=chemin & "projet2 du " & projet2 & ".xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _
CreateBackup:=True

End Sub


Attends, tu fais trop de modifs en même temps !
si çà plante sur :
mois = Application.WorksheetFunction.Proper(mois)
remplace par :

mois = UCase(Left(mois, 1) & Right(mois, Len(mois) - 1)
et rajoute :
projet2 = projet
ou enleve le 2 dans la ligne :
ActiveWorkbook.SaveAs Filename:=chemin & "projet2 du " & projet & ".xls",
Dis nous


--
JLuc

1 2