Discussion :

[K2carca]

Bonjour a tous,

afin de terminer ma macro, je souhaite faire une sauvegarde de celle ci au format texte (.txt)

j'ai écrit le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Sub monfichier
Dim monfichier As Variant
 
monfichier = Application.GetSaveAsFilename("fichier TXT (*.txt),*.txt", , "Sauvegarde monfichier")
 
If monfichier <> False Then
 Cells(2, 1) = monfichier
End If
end sub

mais il ne retourne une erreur

erreur d'exécution '13'
Incompatibilité de type

Pourriez vous m'aider s'il vous plait pour la compréhension de mon erreur ainsi que sa résolution ?

Je vous remercie par avance de votre aide.

[patricktoulon]

bonjour
ben oui bien evidement
regarde ce que tu fait

Code :

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

1
2
Sub monfichier
 Dim monfichier As Variant

une variable ne peut pas avoir le meme nom qu'une sub

tiens perso plutot que de coder un dialogsaveas je me suis fait une fonction argumentée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
    Cells(2, 1) = enregistrer_sous2("text Files", "*.TXT", "ENREGISTREMENT DE fichier")
End Sub
'
Function enregistrer_sous2(denome, Ext, titre) As String
    Dim fname, initialchemin As String
    initialchemin = Environ("userprofile") & "\Desktop"
    enregistrer_sous2 = ""
    fname = Application.GetSaveAsFilename(InitialFileName:=initialchemin, filefilter:=denome & " (" & Ext & ")," & Ext, Title:=titre)
    If fname <> False Then enregistrer_sous2 = fname
End Function

[K2carca]

D’accord, je vais vérifier ça.
Et petite question bête cells((2,1) c’est pour la cellule en question mais pour le classeur ou la feuille ?

[patricktoulon]

comme c'est pas precisé ca iras sur la feuille active en cellule A2
si tu veux tu precise

Code :

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

sheets("machin").cells(2,1).value

ou

Code :

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

sheets("machin").range("A2").value

[K2carca]

Je viens de tester pas à pas mais ça ne marche pas toujours le même problème :-(

[patricktoulon]

re
si tu nous dis pas ou est l'erreur maintenant on va pas aller bien loin
je precise que je l'ai testé avant de te la donner et elle fonctionne tres bien sur vista et w7 et excel 2007
quand tu a le message d'erreur clique sur debaugage pour voir sur quelle ligne