Enregistrer sous nom de cellule+index(excel)
Résolu/Fermé
A voir également:
- Enregistrer sous nom de cellule+index(excel)
- Liste déroulante excel - Guide
- Audacity enregistrer son pc - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - 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
12 oct. 2010 à 13:52
J'ai fait une petite erreur sur le code.
Il faut que remplaces cells(1,2) par sheets("Feuil1").cells(1,2)
Cordialement