Erreur de syntaxe
Singele
Messages postés
52
Statut
Membre
-
Singele Messages postés 52 Statut Membre -
Singele Messages postés 52 Statut Membre -
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
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
A voir également:
- Erreur de syntaxe
- Erreur t32 ✓ - Forum Livebox
- Erreur 0x80070570 ✓ - Forum Windows 10
- Iptv erreur de lecture - Forum TV & Vidéo
- Erreur s3 bbox - Forum Bbox Bouygues
- Erreur 4101 - Forum Carte graphique
J'ai encore 2 problème de syntaxe:
Windows("mon_fichier").ActivateSheets("Feuil1").SelectPouvez-vous m'aider merci d'avance
mon_Fichier est une variable donc pas de ""
Sheets("Feuil1").SelectPas assez d'infos vu que cette ligne ne figure pas dans le code presente
Merci beaucoup de votre aide