Discussion :

[la belette]

Bonjour le forum,

Après de longues recherche je me permet de m'adresser à vous parce que là je crois que je n'y arriverais pas seule...

J'ai créé une macro qui me permet "d'enregistrer sous" lorsque je clic sur "enregistrer" je n'ai aucun souci.
Le problème est quand je fait "annuler" là excel me crée un fichier "false.xls" qui s'enregistre.

le code que j'utilise est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If Dir(chemin & ladate & "_" & lheure, vbDirectory) = "" Then
    MkDir (chemin & ladate & "_" & lheure)
  Else
    ChDir (chemin & ladate & "_" & lheure)
    Filename = Application.GetSaveAsFilename(nom, "Fichier Excel (*.xls), *.xls")
    ActiveWorkbook.SaveAs (Filename)
    'ouverture de données_caméra
    Workbooks.Open Filename:="c:\truc\machin.xls"
End If

voyez vous quelque chose qui n'irait pas?

[tirex28]

Bonjour,

Il faut tester la valeur renvoyée par GetSaveAsFileName

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
If Dir(chemin & ladate & "_" & lheure, vbDirectory) = "" Then
    MkDir (chemin & ladate & "_" & lheure)
  Else
    ChDir (chemin & ladate & "_" & lheure)
    Filename = Application.GetSaveAsFilename(nom, "Fichier Excel (*.xls), *.xls")
    If VarType(Filename) = vbBoolean Then
        'clic sur annuler
    Else
        ActiveWorkbook.SaveAs (Filename)
    End If
    'ouverture de données_caméra
    Workbooks.Open Filename:="c:\truc\machin.xls"
End If

Cordialement,

Tirex28/

[la belette]

J'ai essayé ton code mais il ne m'ouvre même plus la fenêtre "enregistrer sous"
il "enregistre" c'est tout

[papimcha]

Bonjour,
remplace sa

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'ouverture de données_caméra
    Workbooks.Open Filename:="c:\truc\machin.xls"

par sa (merci ousk)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'sauvegarde du fichier en le laissant ouvert
    Application.Dialogs.Item(xlDialogSaveAs).Show "NomDuClasseur"

Voila, moi sa marche très bien.
Cordialement.
papimcha

[la belette]

désolée mais ça ne change pas grand chose...

j'ai oublié de vous dire en plus du fichier false qui se créé j'ai un message d'erreur 100' qui dit que la méthose "save as de _workbook a échouée"
si ça peut aider...

[Invité]

Bonjour,

Essayez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
ChDir (chemin & ladate & "_" & lheure)
    Filename = Application.GetSaveAsFilename(nom, "Fichier Excel (*.xls), *.xls")
     If Filename = True Then
    ActiveWorkbook.SaveAs (Filename)
    End If

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
ChDir (chemin & ladate & "_" & lheure)
    Filename = Application.GetSaveAsFilename(nom, "Fichier Excel (*.xls), *.xls")
     If Filename = True Then
    ActiveWorkbook.SaveAs (Filename)   
Workbooks.Open Filename:="c:\truc\machin.xls"
End If

si cette ligne répond à la même condition.

[la belette]

toujours pas désolée...

en fait je ne peux pas tester si il y a un nom de fichier ou non puisque dès que la fenêtre "enregistrer sous" s'ouvre le nom du fichier est inscrit dedans ce n'est pas moi manuellement qui écrit dans "nom du fichier"

c'est ce code ci qui le fait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ChDir (chemin & ladate & "_" & lheure)
    Filename = Application.GetSaveAsFilename(nom, "Fichier Excel (*.xls), *.xls")
ActiveWorkbook.SaveAs (Filename)

je pensais qu'il y avait un paramètre "de save as" qui me permettrait de palier à ce problème puisqu'à chaque l'erreur me ramène dessus mais j'a rien trouver ...

[mayekeul]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If Dir(chemin & ladate & "_" & lheure, vbDirectory) = "" Then
    MkDir (chemin & ladate & "_" & lheure)
  Else
    ChDir (chemin & ladate & "_" & lheure)
    Filename = Application.GetSaveAsFilename(nom, "Fichier Excel (*.xls), *.xls")
    ActiveWorkbook.SaveAs (Filename)
    'ouverture de données_caméra
    Workbooks.Open Filename:="c:\truc\machin.xls"
End If

essaye comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If Dir(chemin & ladate & "_" & lheure, vbDirectory) = "" Then
    MkDir (chemin & ladate & "_" & lheure)
  Else
    ChDir (chemin & ladate & "_" & lheure)
    Filename = Application.GetSaveAsFilename(nom, "Fichier Excel (*.xls), *.xls")
    if not ucase(filename)="FALSE" then ActiveWorkbook.SaveAs (Filename)
    'ouverture de données_caméra
    Workbooks.Open Filename:="c:\truc\machin.xls"
End If

[Invité]

Rectification (à vérifier) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 ChDir (chemin & ladate & "_" & lheure)
    Filename = Application.GetSaveAsFilename(nom, "Fichier Excel (*.xls), *.xls")
     If Filename <> false Then
ActiveWorkbook.SaveAs (Filename)   
    Workbooks.Open Filename:="c:\truc\machin.xls"
    End If

[la belette]

cherchez plus c'est résolu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs (nomme)

au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Filename = Application.GetSaveAsFilename(nom, "Fichier Excel (*.xls), *.xls")
    ActiveWorkbook.SaveAs (Filename)

Mais la méthode qui consiste à tester filename="faux" fonctionne aussi !!

Merci quand même et bonne soirée...