Discussion :

[mobiclick]

Bonjour au forum
Je voudrais insérer une feuille depuis un modèle créé à cet effet .Le problème c'est que cette feuille ne s'insère pas en dernier dans mon classeur.Y a-t-il un code pour que cette feuille s'insère automatiquement en dernier.MERCI

[laetitia]

bonjour mobiclick le forum regarde du cote de after

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets.Add after:=i

je met la variable i je connais pas ton code !!!!

[Krovax]

Pour la dernière position
remplace le i par sheets.count

[mobiclick]

Merci de lire "comment insérer..."
voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Macro2()
'
Sheets.Add Type:= _
"C:\Documents and Settings\ham\Application Data\Microsoft\Templates\tata.xltm"
End Sub

celui ci me met la feuille modèle "tata.xltm" en premier.
MERCI

[laetitia]

re le fil essai comme cela peut être!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Macro2()
 i = "C:\Documents and Settings\ham\Application Data\Microsoft\Templates\tata.xltm"
 Sheets.Add after:=Sheets(Sheets.Count), Count:=i
End Sub

ps je crois pas que cela va marcher en fin de compte apres test

[mobiclick]

la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets.Add after:=Sheets(Sheets.Count), Count:=i

est en surbrillance jaune et j'ai le message suivant:

Erreur d'exécution '1004'
La méthode 'Add' de l'objet 'sheets' a échoué

[laetitia]

re, autrement pour faire simple tu rajoute cette ligne a ton code
deplace ta feuille apres feuille3 dans l' exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("tata.xltm").Move After:=Sheets("feuil3")

[mobiclick]

MERCI mais ça ne marche tjrs pas...je cherche encore

[fgiambelluco]

Un code qui fonctionnera peut être (je ne peut pas tester, je n'utilise pas de modèle)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets.Add Type:= _
  "C:\Documents and Settings\ham\Application Data\Microsoft\Templates\tata.xltm", After:=Sheets(Sheets.Count)

--------------
Frédéric
http://www.access-developpement.com

[aalex_38]

Bonjour,


J'ai testé la méthode de fgiambelluco et elle fonctionne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

x = Sheets.Add(Type:="C:\Program Files\Microsoft Office\Templates\1036\Note de frais.xlt", After:=Sheets(Sheets.Count))