Discussion :

[souhail72]

Bonjour
voila j'ai un problème ..lol
J'ai un fichier Excel devis avec bcp de formule et très lourd, une vrai usine a gaz, mon souhait est de générer un fichier a partir de cette usine sans les formules.

méthodologie :

Saisie du Devis ----> a l'enreigstrement, il me génére le DEvis sous format excel mais SANS les formules.

Ceci est pour des raison d'intégration directe dans un ERP.

Merci à vous


NB : j'ai déja pensé a un ETl Talend, mais le fichier de base n'est pas stable.

[Philippe Tulliez]

Bonjour,
Pour conserver les valeurs d'une plage de cellules (Equivalent d'un Copier/Collage Special - Valeur).

Code :

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

Plage.Value=Plage.Value

où plage représente l'objet Range soit par exemple NomClasseur.NomFeuille.Range("A1:H15000")

[Menhir]

Après avoir copié ton fichier, tu lances dessus la macro suivante :

Code :

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

1
2
3
4
5
6
7
Sub Mise_a_plat()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
   WS.UsedRange.Copy
   WS.UsedRange.PasteSpecial Paste = xlPasteValues
Next WS
End Sub

Ou bien tu fais, à la main, des Copie + Collage Spécial / Valeurs.

[souhail72]

J'ai pu développer ce bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Sub MacroDevis()
 
        Dim TargetName As String
 
        TargetName = ActiveWorkbook.Path & "\M_" + ActiveSheet.Name + ".xls"
 
        ActiveSheet.Copy
 
        ActiveSheet.SaveAs Filename:=TargetName
 
    End Sub

Il me copie bien la feuille, et j'aimerai ajouter la date au non du fichier j'ai fait avec la fonction Date mais aucun résultat

Merci à vous

[Menhir]

Quel est le rapport avec ta question précédente ?

[souhail72]

je me suis mal exprimé désolé.
Problématique : J' ai un fichier fait de plusieurs feuilles, avec ce code j'arrive a copier juste la feuille et la mettre sur mon bureau, ce que j'aimerai c'est avoir la date aussi dans le nom du fichier pour ne pas ecraser les fichier a chaque activation de la macro.
Merci et j'espére que je me suis bien exprimé cette fois ci .lol
Merci bcp

[Philippe Tulliez]

Bonjour,
Je me suis posé la même question que Menhir.
Tu ouvres la discussion ayant comme sujet Générer un fichier excel a partir d'un autre fichier excel avec des formules et ta question semble laisser sous entendre que tu voudrais copier une feuille ou une plage de cellules sans les formules contenues dans celles-ci.
C'est dans ce sens que nous avons répondu.
Tu poses donc une deuxième question sans aucun lien avec la question initiale et tu dois pour cela idéalement ouvrir une nouvelle discussion.
La fonction Format permet de convertir un nombre dans un format particulier
Exemple

Code :

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

Format(Date, "yymmdd")

Il suffit donc de concaténer cette fonction avec la chaîne de caractères contenant le nom du fichier pour obtenir le nom du fichier précédé de date au format précisé dans le 2ème argument.

[souhail72]

Merci bcp.
ça fonctionne super bien.
cdt

[souhail72]

j'ai une autre question svp.
Pour lui dire que la copie elle seras dans quel répertoire ? je n'arrive pas a visualiser.
merci à vous