Pas une seule macro de save ne fonctionne

[bobylecoyote]

Bonjour,

j'essaie désespérement de faire une sauvegarde mon fichier via VBA.

J'ai testé plein de macro mais aucune ne fonctionne😡

Bcp bloque sur FORMAT ( nombre d'argument incorrect ou ...erreur de compilation)

Mon but était de sauvegardé mon fichier puis d'effectuer la maj et d'enregistrer le nouveau fichier avec pour nom par la cellule G1 de la feuille JAN+la cellule C1 de la feuille MAJ par l'activation du bouton MAJ 😱


Voilà bcp d'heures de perdu pour arriver à rien car ce maudit format bug🙁

DU coup, si les conditons citées ci-dessus sont respectés, pas la peine de se prendre la tête avec FORMAT mais là aussi je cale.

 

[mutzik]

Re : Pas une seule macro de save ne fonctionne

bonjour,

avec un bout de ton fichier + le code on y verrait beaucoup plus clair pour t'aider efficacement

 

[bobylecoyote]

Re : Pas une seule macro de save ne fonctionne

désolé pas de code car tout supprimé par dégout 🙁

Je te joint mon fichier quand même ( très allégé)

 

[bobylecoyote]

Re : Pas une seule macro de save ne fonctionne

et encore un essai


erreur de compilation avec format

Private Sub CommandButton1_Click()
Sheets("MAJ").Select
Dim Nom As Variant
Nom = Application.GetSaveAsFilename(ThisWorkbook.Path & "\Planning absence" & Format(Range("C1").Value, "yyyy"), _
filefilter:="Classeur Microsoft Excel (*.xls),*.xls")
If Nom = False Then Exit Sub
ThisWorkbook.SaveAs Filename:=Nom
End Sub

 

[nouv]

Re : Pas une seule macro de save ne fonctionne

bonsoir,

je ne comprends pas pourquoi tu utilises Format

Format(Range("C1").Value, "yyyy")

la cellule C1 est simplement un chiffre !

Je ne comprends peut-être pas ce que tu veux mais est-ce que cela ne te suffirait pas ?

Sheets("MAJ").Select
Dim Nom As Variant
Nom = ThisWorkbook.Path & "\Planning absence" & Range("C1").Value
If Nom = False Then Exit Sub
ThisWorkbook.SaveAs Filename:=Nom

à plus

 

[Gorfael]

Re : Pas une seule macro de save ne fonctionne

désolé pas de code car tout supprimé par dégout 🙁

Je te joint mon fichier quand même ( très allégé)

Salut
La macro demandée
et l'autre modifiée 😛 (j'ai rajouté la date pour pouvoir tester)
A+

 

[bobylecoyote]

Re : Pas une seule macro de save ne fonctionne

merci à vous deux.

Les deux fonctionne et c'est le principal pour moi😀


J'ai pas encore décidé celle que je vais adopter.

Merci encore une fois.

Sujet clos