Erreur de syntaxe

Signaler
Messages postés
49
Date d'inscription
mercredi 6 avril 2016
Statut
Membre
Dernière intervention
23 novembre 2019
-
Singele
Messages postés
49
Date d'inscription
mercredi 6 avril 2016
Statut
Membre
Dernière intervention
23 novembre 2019
-
Bonjour,

Je suis entrain de chercher un erreur dans mon code.
Qui me permettra de basculer sur un classeur avec un nom variable (22.11.2019 19 42 PM_CHI-Genève.xls), la date va changer.

J'ai essayé ça: Mon_fichier = " & dateauj & "_CHI.xlsx
Mais ça ne marche pas

Merci d'avance de votre aide

Sub Création_fichier()
Dim dateauj
dateauj = Format(Now(), "DD-MM-YYYY hh mm AMPM")
MsgBox "La valeur est " & dateauj & " "

Set newbook = Workbooks.Add
With newbook

ActiveWorkbook.SaveAs Filename:= _
"https://d.docs.live.net/e37a1a3739d5d227/CHI-W/Edition%20en%20cours/" & dateauj & "_CHI.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End With
Mon_fichier = " & dateauj & "_CHI.xlsx

Windows("CHI-W Genève édition actuelle.xlsm").Activate
Sheets("Liste nom").Select
Range("A1:R101").Select
Range("H78").Activate
Selection.Copy
Windows("mon_fichier").Activate ' a trouver formule pour avoir la date à jour selon la création
End sub

5 réponses

Messages postés
14900
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 décembre 2019
1197
Bonjour,
Mon_Fichier=dateauj & "_CHI.xlsx"
Singele
Messages postés
49
Date d'inscription
mercredi 6 avril 2016
Statut
Membre
Dernière intervention
23 novembre 2019

Merci ça fonctionne.

J'ai encore 2 problème de syntaxe:
Windows("mon_fichier").Activate

Sheets("Feuil1").Select


Pouvez-vous m'aider merci d'avance
f894009
Messages postés
14900
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 décembre 2019
1197
Bonjour,

mon_Fichier est une variable donc pas de ""

Sheets("Feuil1").Select

Pas assez d'infos vu que cette ligne ne figure pas dans le code presente
Singele
Messages postés
49
Date d'inscription
mercredi 6 avril 2016
Statut
Membre
Dernière intervention
23 novembre 2019

Enfaite l'erreur était lié à la première.

Merci beaucoup de votre aide