Problème sur fonction ActiveWorkbook.SaveAs

[Squoltahthx94]

Bonjour,

Je tourne en rond, mon déclenche l'action suivante :

Dim FeuilInvent As String
    Sheets("Feuille Inventaire").Copy 'je copie la feuille que je veux sauvegarder
    ActiveSheet.Shapes("CommandButton1").Delete: ActiveSheet.Shapes("CommandButton2").Delete: 'je supprime les boutons de la feuille
    FeuilInvent = "Inventaire du " & Me.Range("H1").Value & " - " & Me.Range("c1").Value
    ActiveWorkbook.SaveAs Filename = FeuilInvent 'sauvegarde du fichier
End Sub

Mais il me répond que lme fichier existe déjà alors qu'il n'y a que la feuille excel 'Inventaire' dans mon répertoire (sur réseau) est-ce que cela peut poser pb ?? 😕😕

Merci de votre retour

 

[Pierrot93]

Re : Problème sur fonction ActiveWorkbook.SaveAs

Bonjour,

on nevoit pas le début de ta procédure... procédure événementielle ? dans un module de feuille ?

bon après midi
@+

 

[Squoltahthx94]

Re : Problème sur fonction ActiveWorkbook.SaveAs

oups mauvaise copie :

Private Sub CommandButton2_Click()
Dim FeuilInvent As String
    Sheets("Feuille Inventaire").Copy 'je copie la feuille que je veux sauvegarder
    ActiveSheet.Shapes("CommandButton1").Delete: ActiveSheet.Shapes("CommandButton2").Delete: 'je supprime les boutons de la feuille
    FeuilInvent = "Inventaire du " & Me.Range("H1").Value & " - " & Me.Range("c1").Value
    ActiveWorkbook.SaveAs Filename = FeuilInvent 'sauvegarde du fichier
End Sub

Je rajoute mon fichier, merci de ton aide

 

[Pierrot93]

Re : Problème sur fonction ActiveWorkbook.SaveAs

Re,

impossible d'ouvrir ton fichier chez moi sous 2010.... fichier endommagé à priori...

 

[Squoltahthx94]

Re : Problème sur fonction ActiveWorkbook.SaveAs

le voici en format 97-2003

 

[Pierrot93]

Re : Problème sur fonction ActiveWorkbook.SaveAs

Re,

essaye ceci :

Private Sub CommandButton2_Click()
Dim FeuilInvent As String
    Sheets("Feuille Inventaire").Copy 'je copie la feuille que je veux sauvegarder
    ActiveSheet.Shapes("CommandButton1").Delete: ActiveSheet.Shapes("CommandButton2").Delete: 'je supprime les boutons de la feuille
    FeuilInvent = "Inventaire du " & Replace(Me.Range("H1").Value, "/", "") & " - " & Me.Range("c1").Value
    ActiveWorkbook.SaveAs Filename:=FeuilInvent   'sauvegarde du fichier
End Sub

les noms d'onglets ne supportent pas les "/" et l'argument filename doit être suivi de :=

 

[Squoltahthx94]

Re : Problème sur fonction ActiveWorkbook.SaveAs

Merci beaucoup, je viens de testé cela fonction impeccablement.
Bonne journée