Fchris
XLDnaute Occasionnel
Bonjour à tous,
Je cherche à copier des données dans un tableau que j'ai créer. Ces données proviennent d'un autre classeur complété par d'autres utilisateurs. Lorsqu'ils enregistreront ce classeur,celui-ci portera un nom différent par utilisateur.
Je cherche à récupérer et utiliser ce nom dans mon code de récupération, mais je bloque. Voici mon code :
Merci par avance de votre aide
Je cherche à copier des données dans un tableau que j'ai créer. Ces données proviennent d'un autre classeur complété par d'autres utilisateurs. Lorsqu'ils enregistreront ce classeur,celui-ci portera un nom différent par utilisateur.
Je cherche à récupérer et utiliser ce nom dans mon code de récupération, mais je bloque. Voici mon code :
Code:
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
Merci par avance de votre aide