Bonjour le forum,
je vous sollicite encore une fois afin de permettre d'avancer.
Je tranfere des donnee entre deux classeurs.
- Le premier Classeur est rempli le deuxieme vide, jusque la, ca va!
- je m'appele mon code pour transferer la premieres feuille du Classeur1 a premiere feuille du classeur2 mais avant je creer la feuille sur le classeur 2 et la nomme, en faisant appelle a un inputbox, jusque la ca marche encore
- et la je bloque, car je voudrai reccuperer le nom de la feuille nouvellement creee pour identifier la destination lors du trasfere des donnees.
Voici le code pour la creation de la feuille:
voici l'entete de mon code faisant appelle a la Macro ci-dessus:
et je boque sur cette ligne:
j'espere que je me suis bien esprimer sur ma requete sinon n'hesitez pas de me soliciter pour plus d'info.
en vous remerciant par avance,
lele79.
je vous sollicite encore une fois afin de permettre d'avancer.
Je tranfere des donnee entre deux classeurs.
- Le premier Classeur est rempli le deuxieme vide, jusque la, ca va!
- je m'appele mon code pour transferer la premieres feuille du Classeur1 a premiere feuille du classeur2 mais avant je creer la feuille sur le classeur 2 et la nomme, en faisant appelle a un inputbox, jusque la ca marche encore
- et la je bloque, car je voudrai reccuperer le nom de la feuille nouvellement creee pour identifier la destination lors du trasfere des donnees.
Voici le code pour la creation de la feuille:
Code:
Sub CreateNewWorksheet()
Dim Sheet As Worksheet, check As Variant
Workbooks("SMT_TEMPLATEref").Activate
On Error GoTo errHandler
'creating a new excel worksheet
nom = InputBox("Nommer votre feuille")
Set Sheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
With Sheet
.Name = nom
End With
Exit Sub
errHandler:
'if error due to duplicate worksheet detected
If Err.Number = 1004 Then
'display an options to user
check = MsgBox("Worksheet called " & nom & " is already exist, " & "click yes to continue creating new Worksheet and delete the old one, " & "or click no to go to the old worksheet.", vbOKCancel, "Duplicate Worksheet")
If check = vbOK Then
'delete the old worksheet
Application.DisplayAlerts = False
Worksheets(nom).Delete
Application.DisplayAlerts = True
'rename and activate the new worksheet
With Sheet
.Name = nom
End With
Else
'cancel the operation, delete the new worksheet
Application.DisplayAlerts = False
Sheet.Delete
Application.DisplayAlerts = True
'activate the old worksheet
Worksheets(nom).Activate
End If
End If
End Sub
voici l'entete de mon code faisant appelle a la Macro ci-dessus:
Code:
Sub Transfer_AIS_AIC_BDM()
Dim Nam As String, Des As String
Dim Max As Long, Min As Long, una As String
Dim Uni As String, Pro As String, Typ As String, namlg As String
On Error GoTo erromsg
'si Classeur 1, feuille 1 est active alors
If ActiveSheet.Name = "AIS_AIC_BDM" Then
Set w1 = ActiveSheet
Call Module1.CreateNewWorksheet
'Identification du classeur 2 avec le nom de la feuille creee juste avant
Set w2 = .......?
End If
lastLine = w1.Cells(65532, 16).End(xlUp).Row
et je boque sur cette ligne:
Code:
Set w2 = .......?
j'espere que je me suis bien esprimer sur ma requete sinon n'hesitez pas de me soliciter pour plus d'info.
en vous remerciant par avance,
lele79.