Enregistrer sous / feuille avec boucle

Question

Bonjour amis développeurs, 

Je suis dans une situation assez complexe. En effet, étant un simple amateur en code VBA, je vous écris dans l'espoir d'obtenir une aide. 
J'ai actuellement un fichier excel composé de plusieurs feuilles dans lesquelles sont classés tout les agents d'une compagnie. 
Je souhaite enregistrer chaque feuille dans un nouveau fichier excel. Dans ces feuilles, les données qui m'intéressent ont pour range ("O1:Q28").
De plus, chaque feuille doit avoir un nom spécifique. Ce nom se trouve dans la colonne E de ma Sheet 3 ("E1:E30"). 

Voilà mon début de code qui ne fonctionne pas "entièrement"
Sub save()Dim wb As WorkbookSet wb = Workbooks.AddDim plage As RangeSet plage = Range("O1:Q28")Dim shCounter As IntegershCounter = 28Dim name As Rangename = Workbook(3).Range("E" & shCounter).ValueDim ws As WorksheetFor shCounter = 4 To ThisWorkbook.Sheets.Count    ThisWorkbook.Sheets(4).Activate    plage.Copy    wb.SaveAs "F:\Partages\Commun_DRH\Taux de recouvrement\Evolution\2018 - " & name    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False        Next shCounterEnd Sub

je sais qu'il y a un gros problème avec ma variable "Name" mais aussi avec la copie et l'enregistrement du nouveau fichier excel !

Merci d'avance pour votre aide, 

Très cordialement !

jordane45 · Answer

Bonjour,

Dim name As Range
 

Si c'est une "range" (une plage de cellules)
ça ne peut pas être une "valeur" (et encore moins un "string" )

name = Workbook(3).Range("E" & shCounter).Value

Hors... toi tu cherches à avoir du "texte" pour nommer ton classeur...

Dim name As String
name = Workbook(3).Range("E" & shCounter).Value

cs_Le Pivert · Answer

Bonjour,

essaie ceci:

Sheets(3).Range("E" & shCounter).Value

waramer · Answer

Merci pour vos réponses, 

J'ai modifié mon code, ce qui me donne :

Sub save()
Dim wb As Workbook
Set wb = Workbooks.Add
Dim shCounter As Integer
Dim ws As Worksheet
For shCounter = 4 To ThisWorkbook.Sheets.Count
Dim name As String
name = ThisWorkbook.Sheets(3).Range("E" & shCounter).Value
    ThisWorkbook.Sheets(shCounter).Activate
    Range("O1:Q28").Copy
    wb.SaveAs "F:\Partages\Commun_DRH\Taux de recouvrement\Evolution\" & name
    
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Next shCounter

End Sub


EDIT : Ajout du LANGAGE dans les BALISES DE CODE pour avoir la coloration syntaxique !!

Cependant, je ne sais pas quel code utiliser pour que Excel Active ma nouvelle feuille pour coller ma Range("O1:Q28").
Le code : Active.Sheet.Name ne fonctionne pas. 
Merci pour votre aide :)

Enregistrer sous / feuille avec boucle

3 réponses

Votre réponse