Re : copie de feuille et selection cellules
Donc ya rien qui fonctionne correctement^^
pour ca :
Worksheets("Pd garde").select
Range("B4:B100").Select
il me claque le message d'erreur suivant :
"Erreur d'éxécution '1004':
LA méthode Select de la classe Range a échoué"
Pour ca :
with Worksheets("Pd garde").Range("B4")
Range("B4:B100").ClearContents
If ab = True Then
.Value = "BB"
.Offset(1, 0).Select
End If
If ac = True Then
.Value = "BBSG"
.Offset(1, 0).Select
End If
If ad = True Then
.Value = "BG"
.Offset(1, 0).Select
End If
end with
il me dit la mma chose
et ca bug juste aprés le smileys je suppose que ca vien de la commande "with"
Et ca, ca bug aussi, mais en faite ce que je veux c'est pas tous a fait ca
je cherche pas a "exporter" une feuille, mais a en "importer" une!!!
Private Sub bouton du classeur "resept" feuille "lien"()
Workbooks.Open "G:\truc excel\copie test.xls"
Workbooks("resept").Activate
Worksheets.Add after:=Sheets(Sheets.Count)
ActiveSheets.name ="BB copie"
Workbooks("copie test").Activate
Sheets("BB").Select: Cells.Select
Selection.Copy
Workbooks("resept").Activate
Sheets("BB copie").Paste
Sheets("lien").Select
Workbooks.Close "G:\truc excel\copie test.xls"
End Sub
Voila un peu la tête de la chose si je me calque sur ton exemple hélas ca fonctionne pas et je vois pas trop pourquoi...
Enfin si je prend surtout mais rêve pour réalité a bidouillé dans tous les sens et en priant pour que ca fonctionne^^
donc voila ya cor du boulo pour que déjà on se comprenne tristesse pensé finir aujourd'hui
mais déjà dois avoir un truc dans la configuration pour que ca fonctionne pour toi et pas pour moi