Sub CommandButton8_Click()
'ouverture du fichier
Dim Nom As Variant
Nom = Application.GetOpenFilename(filefilter:="Fichier Excel (*.xls),*.xls")
If Nom = False Then
MsgBox "Aucun Fichier Sélectionné", vbOKOnly + vbCritical, "Intégration non réalisée "
Exit Sub
Else
Workbooks.Open Filename:=Nom
End If
' Copie de la fiche dans le fichier de suivi
[B]Windows("Fiche Stagiaire.xls").Activate[/B] [COLOR="DarkRed"][B]=>Là j'ai figé le nom de fichier
pour écrire mon code, mais j'ai essayé en remplacant la valeur 'Fiche Stagiaire'
par ma variable 'Nom' et ça ne fonctionne pas, j'ai une erreur 9 indice
non inclut dans la sélection. Pouvez-vous m'aider là dessus ?[/B][/COLOR]
Sheets("Fiche").Select
Sheets("Fiche").Copy After:=Workbooks("Suivi des Stagiaires.xls").Sheets("2007")
Sheets("2007").Activate
UserForm1.Show
End Sub