Sauvegarde fichier xls en format sans extension

Version imprimable

27/08/2015, 11h01
manzlem

Sauvegarde fichier xls en format sans extension

Bonjour,

Je cherche a sauvegarder mon fichier xls en format sans extension.

Il suffit juste de supprimer le ".xls" mais une fois convertir mon fichier comporte des tabulations entre chaque colonne. Je voudrai savoir comment retirer cela et ne plus rien avoir.

J ai un second probleme, j'avais auparavant pris la precaution de placer des cellules vides pour qu'ils se traduissent en espace lors de la conversion mais cela ne fonctionne pas. J'ai cependant remarque que lors que je placais un espace dans ma cellule il se conservait.

Je voudrai donc une formule sous forme de macro qui attribu comme valeur un espace pour toutes les cellules vides comprise entre C3:CX403.

Merci d'avance pour votre aide.

Bonne journee
27/08/2015, 16h15
Daniel.C

Bonjour,

Je ne sais pas ce que tu appelles "un format sans extension". Pour ne pas avoir l'extension de ton fichier, tu fais un "enregistrer sous" au format .xls en mettant le nom de ton fichier entre guillemets (sans .xls). Quand tu voudras l'ouvrir, Excel te demanderas si tu es bien sûr de vouloir l'ouvrir.
27/08/2015, 16h21
manzlem

Bonjour,

merci de votre attention,

j appel un format sans extension un format avec ni .xls ni .PDF. Rien du tout apres mais pour un debut un .txt (format text) pourrai me suffire.

Bonjour,

Tu peux le renommer sur le disque mais depuis un autre classeur car il doit être fermé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Renommer()
 
    'attention, le classeur doit être fermé pour pouvoir modifier son nom dans l'explorateur !
    'donc, ce code doit être dans un autre classeur
 
    Dim AncienNom As String
    Dim NouveauNom As String
 
    AncienNom = "D:\Mon Dossier\Classeur1.xls"
    NouveauNom = "D:\Mon Dossier\Classeur1"
 
    On Error Resume Next
    Name AncienNom As NouveauNom
 
    If Err.Number <> 0 Then MsgBox "Erreur lors de renommage !"
 
End Sub

Hervé.

27/08/2015, 16h27
manzlem

Bonjour Theze

Merci a toi, je ne suis pas le meilleur en VBA mais avec ce code si j ai plusieurs fichiers a sauvegarder il faut que je retourne sur Visual Basic a chaque fois pour changer le nom du nouveau fichier ?

ca fait partie d une des choses que j ai du mal a comprendre en VBA ce genre de choses car si c est vrai ce n est pas super pratique.

Pour ton script, une fois le chemin mentionne et que je lance la macro il me dit que c est une erreur de renommage..

En tout cas encore merci de ton aide
27/08/2015, 16h43
patricktoulon

re

Bonjour
y a t il des formules dans ce classeur
sinon il y a le format csv qui fonctionne tres bien dans le sens ou il peut etre ouvert dans notepad ou exel
27/08/2015, 16h49
manzlem

oui desole j ai oublie de preciser que le fait que certaines cellules soit vides etaient le resultat d une formule MID... :oops:

Je viens d'essayer le format .CVS qui etait une tres bonne piste mais malheureusement j ai toujours les tabulations entre chaque colonnes.

Merci de ton aide en tout cas
27/08/2015, 17h09
Daniel.C

Tu vas simplement sans l'explorateur de fichiers (ex explorateur Windows) et tu coupes ce qui dépasse. Ce sera quand même un fichier Excel avec ses formules. J'ai quand même l'impression que ce n'est pas ce que tu veux ? Pourquoi tu ne veux plus du format Excel ?

re bon apres essaie meme en changeant l'extention pour rien ou nimporte quoi sa semble bien ajouter les tab

pour le csv neammoins j'avais repondu ICI
sinon la meme formule en plus simple il te reste plus qu'a enristrer la variable texte en text ou ce que u veux
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub test() Dim tablo, plage As Range Set plage = Range("A1:c10") tablo = plage.Value For i = 1 To UBound(tablo) For col = 1 To plage.Columns.Count sep = IIf(col >= 2, ";", "") texte = texte & sep & Trim(tablo(i, col)) Next texte = texte & vbCrLf Next MsgBox texte End Sub
maintenant si il y a des formules c'est walouhh........

27/08/2015, 17h26
manzlem

Je ne veux plus du format excel car les informations du document forme un programme et que la machine ne lit pas le xls... oui oui nous sommes en 2015
27/08/2015, 17h29
Marc-L

Un problème sans solution est un problème mal posé. (Albert Einstein)
27/08/2015, 17h39
patricktoulon

re

Citation:

Envoyé par manzlem

Je ne veux plus du format excel car les informations du document forme un programme et que la machine ne lit pas le xls... oui oui nous sommes en 2015

j'avoue que la c'est de plus en plus confu dans ton explication
revoi ta copie et pose ta question plus clairement si tu arrive a te comprendre toi meme ;)
28/08/2015, 10h03
manzlem

Bonjour,

J ai trouve une solution pour mon probleme de tabulation. J utilise la formule concatenate pour tout mettre dans une seule cellule et j utilise le format "$" pour qu'il contabilise les espaces lors de la concatenation (je suis pas sur que ca soit francais).

Merci beaucoup de votre aide en tout cas et desole pour mon explication j ai essaye de faire au mieux...

Il me reste cependant mon autre probleme.

Je dois me debrouiller pour que toutes les valeurs entre C3:BI400 dont le resultat de la formule est vide obtienne la valeur espace.

Pour illustrer mon probleme,

- j;ai plusieurs informations a faire retranscrire (nom de la piece, sa description, sa longueur, ect...)
- A chaqu une de ses informations est attribue un nombre de caractere pour qui est fonction de la machine sur laquelle doit aller le programme de facon a se qu elle sache quand on va passer a l information suivante. (15 pour le nom de la piece, 30 pour sa description ect...) Il est donc possible d avoir des champs vides.
- L idee est donc d attribuer a chaque lettre de l information a retranscrire un nombre de cellule en fonction de ca.
- Dans chaque cellules de C3:BI402 il y a une formule du style

Citation:

pour C3 =MID(SectionInfo!$C2,1,1)
pour C4 =MID(SectionInfo!$C2,2,1)
pour C5 =MID(SectionInfo!$C2,3,1)

et ainsi de suite. La par exemple je recopie le nom de la piece ETC157N lettre par lettre dans chaque cellule. Il y a donc 7 caractere et 8 cellules vides pour cette exemple.
- L idee est donc de faire une macro qui une fois toutes les formules "MID" applique agissent sur toutes les cellules C3:BI400 et fasse une boucle :

Si resultat de la formule = rien
alors mettre espace

Quelque chose comme ca, sauf que je suis pas bon en VBA et que je ne sais pas faire.

J espere avoir ete un peu plus claire... j avoue que l explication n est pas mon point fort je m en excuse d avance.

Encore merci et bonne journee
28/08/2015, 10h16
patricktoulon

re

Bonjour
oui et bien c'est pire qu'avant ton explication

je crois que le mieux c'est de donner un exemple de fichier tel quel et un exemple du resultat avec juste 2 ou 3 lignes
on irra plus vite comme ca
28/08/2015, 10h32
manzlem

arf je suis vraiment une chevre desole...

Pour faire simple j ai une formule dans ma cellule qui me donne aucun resultat et donc une cellule vide.
J ai besoin d un moyen qui detecte chacune de ses cellules et lui attribu la valeur espace.
01/09/2015, 09h48
patricktoulon

re

bonjour

Code:

if cells(x,y).hasformula and cells(x,y).value="" then ......