Enregistrer sous nom de cellule+index(excel)

Résolu
al1su -  
 al1su -
Bonjour,


je voudrais enregistrer un classeur excel avec comme nom le contenu d' une cellule (ex toto) et si le fichier existe déjà ,pouvoir indexer ce nom automatiquement avec une macro
( toto-1,toto-2....)
Merci

2 réponses

  1. melanie1324
     
    Bonjour,

    sub x ()
    'la boucle va tourner jusqu'à ce qu'il trouve le dernier Toto
    do while dir("C:\Documents and Settings\" & cells(1,2) & i & ".xls") ="Toto" & i & ".xls"
    i=i+1
    loop

    ActiveWorkbook.SaveAs "C:\Documents and Settings\" & cells(1,2) & i & ".xls"
    end sub

    Recopies ce code dans un novueau classeur.
    Modifies le chemin et mets celui que tu utilises. Moi, mes docs se trouvent dans le dossier documents and Settings.
    mets dans ta cellules sur ta première ligne, 2e colonne, un nom : Toto.
    i est une variable qui s'implémentera toute seule.

    Essaies et dis moi ce que cela donne
    0
    1. melanie1324
       
      Rebonjour,

      J'ai fait une petite erreur sur le code.
      Il faut que remplaces cells(1,2) par sheets("Feuil1").cells(1,2)

      Cordialement
      0