Bonjours
Je cherche le moyen de pouvoir copier une feuille sur un autre classeur(copier une feuille du "classeur copie test" au "classeur resept") la commande doit s'effectuer sur le dossier resept a l'aide d'un bouton
J'ai trouvé ca :
Workbooks.Open "G:\truc excel\copie test.xls"
Sheets("BB").Copy after:=Sheets(Shetts.count)
End Sub
Problème avec ce truc ça me copie dans le classeur actif qui est le classeur copie donc ça ser pas a grand chose!!!
si vous avez une idée sur la marche a suivre
ensuite je cherche le moyen d'activer toujours par commande une case situé sur une autre feuille du classeur
En gros lié ca :
Worksheets("Pd garde").Select
a ca :
Range("B4:B100").Select
Selection.ClearContents
Range("B4").Select
If ab = True Then
ActiveCell.Value = "BB"
ActiveCell.Offset(1, 0).Select
End If
If ac = True Then
ActiveCell.Value = "BBSG"
ActiveCell.Offset(1, 0).Select
End If
If ad = True Then
ActiveCell.Value = "BG"
ActiveCell.Offset(1, 0).Select
End If
End Sub
je pensé faire comme ça mais ça marche pas et je c pas pourquoi
Worksheets("Pd garde").Range("B4:B100").Select
si vous avez une idée sur la marche a suivre...
Merci
Je cherche le moyen de pouvoir copier une feuille sur un autre classeur(copier une feuille du "classeur copie test" au "classeur resept") la commande doit s'effectuer sur le dossier resept a l'aide d'un bouton
J'ai trouvé ca :
Workbooks.Open "G:\truc excel\copie test.xls"
Sheets("BB").Copy after:=Sheets(Shetts.count)
End Sub
Problème avec ce truc ça me copie dans le classeur actif qui est le classeur copie donc ça ser pas a grand chose!!!
si vous avez une idée sur la marche a suivre
ensuite je cherche le moyen d'activer toujours par commande une case situé sur une autre feuille du classeur
En gros lié ca :
Worksheets("Pd garde").Select
a ca :
Range("B4:B100").Select
Selection.ClearContents
Range("B4").Select
If ab = True Then
ActiveCell.Value = "BB"
ActiveCell.Offset(1, 0).Select
End If
If ac = True Then
ActiveCell.Value = "BBSG"
ActiveCell.Offset(1, 0).Select
End If
If ad = True Then
ActiveCell.Value = "BG"
ActiveCell.Offset(1, 0).Select
End If
End Sub
je pensé faire comme ça mais ça marche pas et je c pas pourquoi
Worksheets("Pd garde").Range("B4:B100").Select
si vous avez une idée sur la marche a suivre...
Merci