Se connecter avec
S'enregistrer | Connectez-vous

Date macro excel

Dernière réponse : dans Programmation

Hello!

g un petit souci de macro excel : j'ai créé une macro qui copie une plage de données sous Excel en une plage de données sous format texte. Or, j'ai 3 colonnes qui sont des données dates jj/mm/aaaa et en sortie mon fichier texte fait apparaitre ces dates au format mm/jj/aaaa...quelqu'un saurait corriger cela?

Voici ma macro :

Sub AlimentationManuelleTitres()
'
' AlimentationManuelleTitres Macro
' Macro enregistrée le 05/05/2006 par GMSMPU
'

' La cellule "Resultat" afiche que le fichier n'est pas encore enregistré
Range("Resultat").Value = "Le fichier n'est pas encore enregistré"

' Sélection de la plage de données
Range("B15:R65000").Select
Selection.Copy
Workbooks.Add
Range("A1").Select
ActiveSheet.Paste

' Suppression des lignes vides
Dim DerniereLigne As Long
Dim r As Long
DerniereLigne = ActiveSheet.UsedRange.Row - 1
DerniereLigne = DerniereLigne + ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = DerniereLigne To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(r)) = 0 _
Then Rows(r).Delete
Next r

' Le fichier est enregistré en format texte avec tabulation sur son lieu de stockage
ActiveWorkbook.SaveAs Filename:="\\Mutua-sa01-p13\input\BFR\ALMONDE\PRODUCTION\Manuel" & ".TitresManuelBF_FichierPrincipal", FileFormat:=xlText
ActiveWorkbook.Close


Range("Resultat").Value = "Le fichier a bien été créé !"
'


'
End Sub




Merki!

Malo

Autres pages sur : date macro excel

Lassé par la pub ? Créez un compte
Expert Programmation

J'ose espérer que malo44 a compris.

Décodage pour Nova13 :

Citation :
Balise [CODE]
Je proposais à Malo44 de lire les règles du forum, de les compredre, de s'en imprégner, et d'être suffisament aimable pour les respecter. RTFR quoi (read the f*****g rules)

Citation :
RTFM
READ THE F*****G MANUAL, soit LIRE CE P****N DE MANUEL.

Citation :
à la page Workbook.SaveAs, au chapitre Local
Le manuel de SaveAs est très clair. Ce manuel est disponible en appuyant sur la touche F1, alors que le curseur est sur Workbook.SaveAs. On peut aussi rechercher cette fonction dans MSDN
On y apprend à utiliser cette fonction : il y a douze paramètres. Alors pour faciliter la tâche de malo44, je lui mettais le nez dessus : c'est le paramètre Local qu'il faut regarder.

Dixit MSDN :
Citation :

Local
true saves files against the language of Excel (including control panel settings). false (default) saves files against the language of Visual Basic for Applications (VBA).


Dixit l'aide d'Excel :
Citation :
Local Argument de type Variant facultatif. La valeur True enregistre les fichiers en fonction de la langue de Microsoft Excel (y compris les paramètres du Panneau de configuration). La valeur False (valeur par défaut) enregistre les fichiers en fonction de la langue de Visual Basic pour Applications (VBA) (qui est généralement l'anglais des États-Unis, sauf si le projet VBA où Workbooks.Open est exécuté est un ancien projet VBA XL5/95 de niveau international).


Que dire de plus ?
Lassé par la pub ? Créez un compte