P
pikpik
Guest
Bonjour ze forum,
Je tiens à dire que je remercie énormément ce qui ont pu m'aider sur différents problèmes car aujourd'hui mon projet n'en serai pas la où il est sans votre aide.
Pour finaliser une application, je dois gerer un certain type de sauvegarde particulière: l'utilisateur doit pouvoir sauvegarder une feuille dans un fichier texte qui aura l'extension .test (ex : toto.test)
Pour ce j'utilise les instructions suivantes en cliquant sur un bouton:
Le problème vient de l'instruction suivante:
ActiveWorkbook.SaveAs FileName:= fichierrecherche, FileFormat:= _
xlText, CreateBackup:=False
car cela me renomme le classeur en cours alors que je voudrai juste sauvegarder la feuille avec le nom fichierrecherche et ce sans modifier le nom de mon classeur.
Si ce n'est pas clair posez dites moi si je peux vous eclairer. Et si vous avez des idées elles seront bienvenues!!! merciiii lol
Je tiens à dire que je remercie énormément ce qui ont pu m'aider sur différents problèmes car aujourd'hui mon projet n'en serai pas la où il est sans votre aide.
Pour finaliser une application, je dois gerer un certain type de sauvegarde particulière: l'utilisateur doit pouvoir sauvegarder une feuille dans un fichier texte qui aura l'extension .test (ex : toto.test)
Pour ce j'utilise les instructions suivantes en cliquant sur un bouton:
Code:
Private Sub CommandButton1_Click()
Dim fichieractif As String
Dim Cheminactif As String
Dim fichierrecherche As String
fichieractif = ActiveWorkbook.Name
Cheminactif = ActiveWorkbook.Path & '\\*.xls'
fichierrecherche = Application.GetSaveAsFilename(Cheminactif, _
fileFilter:='Fichiers (*.test), *.test', Title:='Nom de fichier test au format texte')
If Not (fichierrecherche = 'FALSE') Then
ActiveWorkbook.SaveAs FileName:= _
fichierrecherche, FileFormat:= _
xlText, CreateBackup:=False
End If
ActiveSheet.Name = 'def'
End Sub
Le problème vient de l'instruction suivante:
ActiveWorkbook.SaveAs FileName:= fichierrecherche, FileFormat:= _
xlText, CreateBackup:=False
car cela me renomme le classeur en cours alors que je voudrai juste sauvegarder la feuille avec le nom fichierrecherche et ce sans modifier le nom de mon classeur.
Si ce n'est pas clair posez dites moi si je peux vous eclairer. Et si vous avez des idées elles seront bienvenues!!! merciiii lol