Enregistrer sous nom de cellule+index(excel)
Résolu
al1su
-
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
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
A voir également:
- Enregistrer sous nom de cellule+index(excel)
- Audacity enregistrer son pc - Guide
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Word et excel gratuit - Guide
2 réponses
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
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
J'ai fait une petite erreur sur le code.
Il faut que remplaces cells(1,2) par sheets("Feuil1").cells(1,2)
Cordialement