Fchris
XLDnaute Occasionnel
Bonjour à tous,
J'ai un souci pour récupérer une variable dans des macros séparés. La variable en question (ici nommée File) est le nom d'un fichier qui est ouvert dans une première macro.
Voici le code en question :
Je souhaite récupérer cette variable 'File' dans une macro Userform, mais cela ne fonctionne pas :
Pouvez vous me dire comment puis-je procéder afin de récupérer le nom de fichier dans cette macro ?
Merci par avance
FChris
J'ai un souci pour récupérer une variable dans des macros séparés. La variable en question (ici nommée File) est le nom d'un fichier qui est ouvert dans une première macro.
Voici le code en question :
Code:
Option Explicit
Public File As Variant, WB As Workbook
Sub CommandButton8_Click()
'ouverture du fichier
File = Application.GetOpenFilename(filefilter:="Fichier Excel (*.xls),*.xls")
If File = False Then
MsgBox "Aucun Fichier Sélectionné", vbOKOnly + vbCritical, "Intégration non réalisée "
Exit Sub
Else
Workbooks.Open Filename:=File
End If
' Copie de la fiche dans le fichier de suivi
Set WB = ActiveWorkbook
WB.Activate
Sheets("Fiche").Select
Sheets("Fiche").Copy After:=Workbooks("Suivi des Stagiaires.xls").Sheets("2007")
Sheets("2007").Activate
UserForm1.Show
End Sub
Je souhaite récupérer cette variable 'File' dans une macro Userform, mais cela ne fonctionne pas :
Code:
Option Explicit
Private Sub CommandButton2_Click()
UserForm1.Hide
Dim L, Col As Integer
Dim Nom, Prenom, NSS, Adresse, CP, Ville, Tel, Ecole, Diplome, Annee, Debut, Fin, Maitre, centre As Variant
Dim Save
'Définition des valeurs
Sheets("Fiche").Select
Nom = Cells(11, 2).Value
Prenom = Cells(11, 11).Value
NSS = Cells(13, 2).Value & Cells(13, 8).Value
Adresse = Cells(17, 2).Value
CP = Cells(19, 11).Value
Ville = Cells(19, 2).Value
Tel = Cells(15, 2).Value
Ecole = Cells(27, 3).Value
Diplome = Cells(27, 10).Value
Annee = Cells(29, 10).Value
Debut = Cells(31, 3).Value
Fin = Cells(31, 6).Value
Maitre = Cells(40, 3).Value
centre = Cells(37, 3).Value
'On Trouve dernière L remplie
L = Sheets("2007").Range("A65536").End(xlUp).Row + 1 'Plus 1 = la dernière L vide !
' On complète le tableau
With Sheets("2007")
.Activate
.Cells(L, 1) = Nom
.Cells(L, 2) = Prenom
.Cells(L, 3) = Adresse
.Cells(L, 4) = CP
.Cells(L, 5) = Ville
.Cells(L, 6) = Tel
.Cells(L, 7) = NSS
.Cells(L, 8) = centre
.Cells(L, 9) = Maitre
.Cells(L, 10) = Ecole
.Cells(L, 11) = Annee
.Cells(L, 13) = Debut
.Cells(L, 14) = Fin
End With
' Suppression de la fiche stagiaire
Sheets("Fiche").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
MsgBox "Intégration réalisée avec succès"
[B][COLOR="DarkRed"] With Windows(File)
.Activate
.Close[/COLOR] [/B] ==> J'ai tout le temps un message d'erreur ici VAriable non définie
End With
Windows("Suivi des Stagiaires.xls").Activate
UserForm2.Show
End Sub
Pouvez vous me dire comment puis-je procéder afin de récupérer le nom de fichier dans cette macro ?
Merci par avance
FChris