Problème de sauvegarde dans ma procédure

Version imprimable

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:

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

Citation:

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.

bonjour
ben oui bien evidement
regarde ce que tu fait

Code:

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:

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

30/01/2019, 14h50
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 ?
30/01/2019, 16h15
patricktoulon

re

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

Code:

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

ou

Code:

sheets("machin").range("A2").value
30/01/2019, 16h54
K2carca

Je viens de tester pas à pas mais ça ne marche pas toujours le même problème :-(
30/01/2019, 16h57
patricktoulon

re

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
30/01/2019, 17h20
K2carca

Pardon,
Pour ma macro le début me surligne la partie de if jusque then avec le code erreur 13 incompatibilité.
Pour ta solution / ton code je n’ai pas fait attention à la partie function désolé.
Néanmoins la macro devrait fonctionner car je la vois dans tout les bouquins ?
30/01/2019, 19h06
K2carca

Je suis désolé, j'ai essayé votre code, mais il ne correspond pas a ce que je richer.
votre code m'ouvre bien la boite de dialogue pour l'enregitrement mais en effet renvoie le chemin dans la cellule A2 de ma feuille. or je ne veux pas ca. je veux juste pour "creer" mon fichier en sauvegardant en format .txt
30/01/2019, 19h17
patricktoulon

re
Citation:

Envoyé par K2carca

Je suis désolé, j'ai essayé votre code, mais il ne correspond pas a ce que je richer.
votre code m'ouvre bien la boite de dialogue pour l'enregitrement mais en effet renvoie le chemin dans la cellule A2 de ma feuille. or je ne veux pas ca. je veux juste pour "creer" mon fichier en sauvegardant en format .txt

dans ce cas la tu devrais te relire quand tu poste un code
je fait exactement ce que tu essaie de faire dans ton post 1
1. et d'abords tu veux sauver quoi en fichier text une plage de cellule, la feuille, toutes les feuilles ,etc....
2. qu'est ce que tu entends par fichier text
3. etc...
il faut etre plus precis dans tes demandes

Je m'excuse pour cette imprécision.
je souhaite sauvegarder mon classeur et/ou ma feuille

au final j'ai retiré la partie de cells(2,1)..... jusque endif et l'ai remplacé par le code suivant
Code:

1 2 3 4 5 6 Sub save_monfichier_bis() Dim monfichier As Variant monfichier = Application.GetSaveAsFilename("le nom de mon fichier", "(*.txt), *.txt", , "Sauvegarde monfichier") If fichier <> False Then ThisWorkbook.SaveAs fichier End Sub
il semble marcher jusqu'à l'ouverture de la boite de dialogue ou je peux sauvegarder. mais mon soucis c'est qu'il n'a pas l'air de sauvegarder. Je cherche le fichier mais il est inexistant.

autre précision, si possible format txt avec séparateur de tabulation... :-)

Ok
bon alors un petit exemple perso
je sauve le la plage utilisée du sheets(1) au format text avec comme separateur(tabulation)
en gardant les cellules vides meme si le usedrange ne demarre pas en ligne 1

si tu veux pas garder alors c'est

Code:

Set plage = Sheets(1).UsedRange

sinon tu laisse comme tel ci dessous

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
    Set plage = Sheets(1).Range("A1", Sheets(1).UsedRange)
    save_as_perso plage
End Sub
'
Function save_as_perso(plage)
    Dim fnam, x&
    fname = Application.GetSaveAsFilename(InitialFileName:=Environ("userprofile") & "\Desktop", filefilter:="fichier Text (*.txt),*.txt", Title:="ENREGISTREMENT FICHIER TEXT")
    If fname <> False Then
        plage.Copy
        With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .GetFromClipboard: texte = .GetText(1): End With
        x = FreeFile: Open fname For Output As #x: Print #x, texte: Close #x
        With Application: .CutCopyMode = False: .CutCopyMode = True: End With
    End If
End Function

voila

30/01/2019, 22h33
K2carca
Je vous remercie pour votre réponse.
Votre code, après une petite adaptation à mon fichier marche bien.

Néanmoins pourriez-vous m'expliquer
- - pourquoi utiliser une function ?
- - que signifie la partie de la function With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .GetFromClipboard: texte = .GetText(1): End With ?
par avance merci pour vos éclaircissements.