Sauvegarder un fichier excel

**debvba** · 24/09/2007, 16h13

Bonjour,

je suis tout neuf, tout beau en vba (3 jours de formations) et je cherche à sauvegarder via un save as, mon fichier excell en récupérant automatiquement le nom de ma feuille active ou le nom de mon classeur (qui a une extension txt, car il s'agit d'un classeur crée suite à importation d'un fichier txt).

Merci

**ouskel'n'or** · 24/09/2007, 16h27

Bonjour DevVBA, bienvenue sur le forum.
Si le .txt est le classeur actif, teste ce code

Code :

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

ActiveWorkbook.saveas Chemin & NomFich

**debvba** · 24/09/2007, 16h31

Bonjour et merci

si je comprends bien NomFich est une variable contenant le nom du fichier.

Ma question reste donc entière comment je l'alimente automatiquement avec le nom actuel de mon classeur ou de ma feuille actif ???

**Gorfael** · 24/09/2007, 16h50

Salut
Le chat qui se mord la queue
NomFich est le nom sous lequel tu veux sauvegarder ton fichier,
ActiveWorkbook.name est le nom du classeur actif, mais si tu veux le sauvegarder en save As, c'est que tu veux un autre nom !
Si tu donnais un exemple, on se comprendrait mieux, et on pourrait te donner l'instruction que tu demandes

A+

**ouskel'n'or** · 24/09/2007, 16h52

Activeworkbook est le classeur actif, celui qui est affiché à l'écran
Thisworkbook est le classeur contenant la macro de copie

Code :

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

1
2
3
Chemin = "D:\xls\"
NomFich = "NouveauNom.xls"
ThisWorkbook.saveas Chemin & NomFich

enregistre le fichier contenant la macro sous le nom NouveauNom.xls dans le dossier chemin.
SaveAs enregistre un nouveau fichier.
le fichier NouveauNom remplace à l'écran le fichier qui a servi à le créer.

**debvba** · 24/09/2007, 16h52

Merci j'ai ma réponse

en fait j'ai un fichier nommé toto.txt que je veux sauvegarder en toto sous format excell

donc prendre le nom du fichier, lui enlever les 4 derniers caractères et donc faire un save as ou modifier le nom du classeur et faire un save

**ouskel'n'or** · 24/09/2007, 16h59

Oui, tu dois seulement ajouter l'extension .xls et indiquer le chemin

**debvba** · 24/09/2007, 17h48

désolé de revenir vers vous, mais je repose mon problème avec mon soucis

donc j'integre en automatique un fichier txt nommé toto.txt

du coup excell ouvre automatiquement une feuille nommée toto.txt

lorsque je récupère son nom (merci ouskel et gorfael) j'ai toto.txt

si je sauvegarde même en spécifiant sauvegarde au format xls, il me crée un fichier txt.

l'idéal serait pour moi de pouvoir renommer ma feuille de façon automatique en toto (en gros virer automatiquement .txt de mon nom de feuille).

Y a t 'il une solution ??

**debvba** · 25/09/2007, 12h00

J'ai dis une betise ?? ou la réponse est elle trop simple ?? ou impossible

**ouskel'n'or** · 25/09/2007, 12h14

Ajoute FileFormat:=xlNormal à la ligne

Code :

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

ActiveWorkbook.saveas Chemin & NomFich, FileFormat:=xlNormal

**debvba** · 25/09/2007, 14h43

Merci ouskel mais c'est déja le cas :

Code :

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

1
2
3
4
5
6
'nomfichieR = ActiveWorkbook.Name
   ' nomfichieR = "modulo" & nomfichieR
   ' ActiveWorkbook.SaveAs Filename:= _
        "P:\xxxx\xxxxxx\xxxxx\" & moistraitemenT & "\" & nomfichieR, FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False

dans lequel j'ai nomfichieR = toto.txt

du coup il me crée un fichier nommé modulototo.txt considéré comme du texte et non comme un fichier xls malgré le fileformat.

J'ai donc besoin d'enlever dans nomfichieR le ".txt" à la fin

**ouskel'n'or** · 25/09/2007, 15h15

Bon. Tu as une solution de repli qui consiste à créer un nouveau classeur, à coller la feuille de ton txt dedans et à enregistrer le nouveau fichier sous son nouveau nom.

Code :

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

1
2
3
4
5
6
7
8
9
10
    nomfichieR = ActiveWorkbook.Name 'Le nom de ton txt
    NomFeuille = Activesheet.name 'nom de la feuille dans ton txt
    Workbooks.Add 'on ouvre un nouveau fichier
    DoEvents
    Workbooks(nomfichieR).Worksheets(NomFeuille).Copy _
             Before:=ActiveWorkbook.Sheets(1) 'Collage en première position
    nomfichieR = "modulo" & nomfichieR & ".xls"
    DoEvents
    ActiveWorkbook.SaveAs Filename:= _
       "P:\xxxx\xxxxxx\xxxxx\" & moistraitemenT & "\" & nomfichieR

Ceci dit, je ne comprends pas pourquoi le code précédent pose un problème. Peut-être est-ce en raison de l'extension (en rouge) (?) je ne vois pas où tu l'ajoutes

**debvba** · 25/09/2007, 15h38

Merci je testerais ce soir.

pour information par rapport à ta derniere question, lors du lancement de la macro une box est affiché demandant quel fichier il faut ouvrir. Hors pour ouvrir mon fichier text de départ je suis obligé de saisir le nom complet + extension txt, sinon excell ne le trouve pas.

du coup, mon classeur reprends automatiquement ce nom.

Mon problème peut peut etre se contourner également en modifiant le code d'ouverture ??

ouverture automatique du fichier choisi

Code :

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

1
2
3
4
5
6
7
8
    Workbooks.OpenText Filename:= _
        "P:\xxxxx\xxxxx\xxxx\" & moistraitemenT & "\" & fichieR, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, _
        Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
        3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10 _
        , 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), _
        Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1))

Mais j'avoue ne pas savoir quel paramètre modifier ici.

Edit en écrivant j'ai trouvé.

Merci

**ouskel'n'or** · 25/09/2007, 15h51

Si le séparateur de données est la tabulation, tu peux grandement simplifier ton code

Code :

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

1
2
3
4
ChDir "C:\Documents and Settings\bdc.HARDIS\Bureau"
Workbooks.OpenText Filename:= _
     "P:\xxxxx\xxxxx\xxxx\" & moistraitemenT & "\" & fichieR, _
     Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, Tab:=True