Insertion de données variables dans plusieurs onglets

Bonjour,

Je dispose d'un fichier avec plusieurs onglets nommés de 1 à 50 par exemple et je cherche à insérer un numéro dans la case B4 de chaque onglet du fichier excepté dans le premier onglet mais il porte un "vrai" nom. La forme du numéro est 00A B, la partie A doit s'incrémenter à chaque onglet, A vaut 1 pour l'onglet 1 et A vaudra 50 pour l'onglet 50, etc. La contrainte étant que la partie variable soit sur 3 chiffres, exemple : 00005 6378 => A=005.
Autre contrainte, toujours avec l'exemple précité obtenir en case B4 de chaque fichier : "SN: 00005 6378", avec les espaces qui vont bien. Je ne sais pas comment sélectionner chaque onglet, y copier l'information voulue et passer à l'onglet suivant et ainsi de suite.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Chm = "C:\Users\Desk\Desktop\"   Workbooks.Add ActiveWorkbook.SaveAs Filename:=Chm & of & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False   Workbooks("Fichier_essai").Sheets("Id").Copy After:=Workbooks("F12").Sheets(1) Workbooks("Fichier_essai").Sheets("Tableau").Copy After:=Workbooks("F12").Sheets(2)   nb = 5 'simulation du nombre d'onglet à ouvrir   For i = 1 To nb   Sheets("Tableau").Copy After:=Sheets(Sheets.Count) 'copie en x onglets ActiveSheet.Name = "" & (i)   Next i   Sheets("Tableau").Select ActiveWindow.SelectedSheets.Delete   Sheets("Feuil1").Delete Sheets("Feuil2").Delete Sheets("Feuil3").Delete

---

La suppression des 3 onglets d'origine du nouveau fichier créé passent par le message systématique suivant pour les 3 onglets : Les feuilles sélectionnées peuvent contenir des données. Pour supprimer définitivement les données, cliquer sur Supprimer. Est ce possible de s'affranchir de cette validation ?

Le nom du fichier créé "F12" est en fixe, j'aimerai qu'il dépende d'une variable saisie en amont, par exemple TER. Comment peut on modifié la syntaxe du code ?

[QUOTE=Goku.;10662109]

Citation:

---

Envoyé par Goku.

Le nom du fichier créé "F12" est en fixe, j'aimerai qu'il dépende d'une variable saisie en amont, par exemple TER. Comment peut on modifié la syntaxe du code ?

---

Code:

---

1 2	Dim WBDest As Workbook Set WBDest = Workbooks(InputBox("Nom de fichier"))

---

Ensuite, tu peux utiliser WBDest comme tu utilisais Workbooks("F12").

Bien sûr, il serait mieux de faire un code un peu plus complet, mettre le résultat de InputBox dans une variable intermédiaire pour vérifier que l'utilisateur a renseigné quelque chose puis vérifier que le Workbook existe avec d'utiliser ce nom.
Mais tu as le principe, à toi de le développer.

Merci Menhir pour le principe. Seulement la variable est saisie en amont comme précisé dans le second post et une inputbox ne m'arrange pas du tout. J'essaie depuis cet après midi d'insérer la variable dans le code, avec guillement, sans guillement, etc mais il y a toujours une erreur : L'indice n'appartient pas à la sélection :calim2:

Bonjour à tous,

Je souhaite faire des manipulations avec un fichier nommé avec une variable et comme le nom de fichier change il faudrait une formule générique basée sur cette variable saisie (contenu de la variable = nom du fichier), le but est d'obtenir un code du type :

Code:

---

Set NOM = Workbooks("var") 'var étant le nom du fichier

---

J'ai beau essayer avec des &, des espaces et des guillements, rien n'y fait.

Afin de mieux cerner ma demande voici une de mes application :

Code:

---

Workbooks("Fichier 1").Sheets("Tableau").Copy After:=NOM.Sheets(2)

---

Le premier sujet est en partie résolu, j'ai bidouillé ce petit code avec un case qui remplit la fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10

Select Case nbax Case Is < 9 Range("B4") = "SN : " & zero1 & zero2 & zero3 & zero4 & nbax & " " & datecode '00001 à 00009 Case 0 To 99 Range("B4") = "SN : " & zero1 & zero2 & zero3 & nbax & " " & datecode '00010 à 00099 Case 100 To 999 Range("B4") = "SN : " & zero1 & zero2 & nbax & " " & datecode '00100 à 00999   End Select

---

Je passe le sujet en résolu et en ouvre un second pour le problème toujours présent de workbook avec variable.