Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

macro excel

 

LOGICIELS : Jérémie Lerigab SECURITE : vinivince et 102 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

macro excel

Prévenir les modérateurs en cas d'abus 
jérémiel
jeremiel9
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 25/01/2009 à 15:04:26  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour à tous,

 sur un classeur excel, j'ai fait une macro  ("numérotation" )permettant d'incrementer la valeur de la cellule G5(du style 24005); et une deuxième ("renommer" )permettant d'enregistrer automatiquement le fichier sous le nom de cette cellule.

 Ce que je souhaiterais faire, c'est pouvoir inserer des lettre dans le nom de mon fichier (du style 240JL05).
 De plus je voudrais renommer mon fichier avec la valeur des cellule G5 et B7.
 voici le code de la premiere macro :

 Sub numérotation()
 'dim num as integer

 ' numérotation Macro
 '

 '

Range("G5" ).Select

num = Range("G5" ).Value
 num = num + 1
 Range("G5" ).Value = num

 End Sub

 voici celui de la deuxieme :

 Sub renommer()
 'Sheets("Base" ).Name = Range("G5" ).Value
 ActiveWorkbook.SaveAs Range("G5" ).Value

 ' renommer Macro
 '

 '
 End Sub

 pour l'instant les deux fonctionne correctement, mais je veux le ameliorer.

 merci à vous tous et bonne journée

gorfael
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 26/01/2009 à 01:19:23  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

jérémiel a écrit :

Bonjour à tous,

 sur un classeur excel, j'ai fait une macro  ("numérotation" )permettant d'incrementer la valeur de la cellule G5(du style 24005); et une deuxième ("renommer" )permettant d'enregistrer automatiquement le fichier sous le nom de cette cellule.

 Ce que je souhaiterais faire, c'est pouvoir inserer des lettre dans le nom de mon fichier (du style 240JL05).
 De plus je voudrais renommer mon fichier avec la valeur des cellule G5 et B7.
 voici le code de la premiere macro :

 Sub numérotation()
 'dim num as integer

 ' numérotation Macro
 '

 '
  Range("G5" ).Select
  num = Range("G5" ).Value
 num = num + 1
 Range("G5" ).Value = num

 End Sub

 voici celui de la deuxieme :

 Sub renommer()
 'Sheets("Base" ).Name = Range("G5" ).Value
 ActiveWorkbook.SaveAs Range("G5" ).Value

 ' renommer Macro
 '

 '
 End Sub

 pour l'instant les deux fonctionne correctement, mais je veux le ameliorer.

 merci à vous tous et bonne journée


Salut
 première macro :



Sub numérotation()
 ' numérotation Macro
 Range("G5" )=Range("G5" )+1
 End Sub


La même mais en plus court. La déclaration d'une variable en entier définie sa limite (32768). Pas problèmatique, mais si ça le devient, ce sera dans tellement longtemps que tu risques de passer du temps à trouver la panne.

 Le nom du fichier, pour ta seconde est à traiter comme du texte. Comme la cellule G5 contient un nombre, avant d'utiliser une instruction comme left, right ou autre, il convient de transformer G5 en texte (dans une variable texte par exemple) avec une instruction du type CStr([G5]) ou du type Format([G5], "00000" ). Ce qui donne une instruction du genre :
 Left(Format([G5], "00000" ), 3) & [B7] & Right(Format([G5], "00000" ), 2)

 Pour la macro complête, faudrait avoir une idée du chemin, l'instruction comprenant tout :
 ActiveWorkbook.SaveAs Chemin & nom & ".xls"

 A+

(Publicité)
 Page :
1

Aller à :
 

Sujets relatifs
Notice Macro Excel - extraction de caractères entre parenthèses
word 2010+macro+scanneur Macro Execel 2002 pour loto en salle ( resolu )
amelioration macro loto (Nono) Macro sur internet
Plus de sujets relatifs à : macro excel

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
Copier un DD avec XCOPY [Résolu] 2
Changer la lettre d'un lecteur de DD 0
Changer la lettre d'un lecteur de DD 4
police de caractère 0
Comment accélérer Firefox 2