effacer contenue d'une feuille vba

TEMAGOULTFARID

XLDnaute Occasionnel
Bonjour les Exceliens,
Une petite demande, comment effacer le contenue de certaine cellules d'un classeur a partir d'un autre en VBA
Classeur 1 (le VBA) sur un click efface le contenue du classeur 2 onglet toto .
par avance, merci
 

Staple1600

XLDnaute Barbatruc
Re

Test OK sur mon PC
(en suivant tes explications)
VB:
Sub Ouvre_Et_Efface()
Dim fileExplorer As FileDialog, fichier, wbkS As Workbook
On Error GoTo err
Set fileExplorer = Application.FileDialog(msoFileDialogFilePicker)
fileExplorer.AllowMultiSelect = False
With fileExplorer
    If .Show = -1 Then
        fichier = .SelectedItems.Item(1)
        Set wbkS = Workbooks.Open(fichier)
    Else
        MsgBox "Annulation ouverture fichier", vbCritical, "Avertissement"
        fichier = vbNullString
    End If
End With
wbkS.Sheets("toto").Range("A1:B50") = ""
wbkS.Close True
err:
Exit Sub
End Sub
 

TEMAGOULTFARID

XLDnaute Occasionnel
Re

Test OK sur mon PC
(en suivant tes explications)
VB:
Sub Ouvre_Et_Efface()
Dim fileExplorer As FileDialog, fichier, wbkS As Workbook
On Error GoTo err
Set fileExplorer = Application.FileDialog(msoFileDialogFilePicker)
fileExplorer.AllowMultiSelect = False
With fileExplorer
    If .Show = -1 Then
        fichier = .SelectedItems.Item(1)
        Set wbkS = Workbooks.Open(fichier)
    Else
        MsgBox "Annulation ouverture fichier", vbCritical, "Avertissement"
        fichier = vbNullString
    End If
End With
wbkS.Sheets("toto").Range("A1:B50") = ""
wbkS.Close True
err:
Exit Sub
End Sub
Bonjour Staple, avant tout, merci pour ton implication désolé pour ma réponse tardive, j'étais un peu sur-Book-
Mon 1 classeur s'appel TABLEAU-MC-2019 qui se trouve dans un dossier nommé Main-courante et c'est dans ce classeur que je met la macro que tu as donné et le 2 classeur se trouve dans le même dossier et se nomme "LOG" Feuil1.
La question, comment logé ces informations dans ta macro?
Je suis au stade de nourrisson pour les VBA.
par avance , merci
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil

Essaie comme ceci
VB:
Sub OuvrirMonFichier()
Dim Dossier$, Classeur As Workbook
Dossier = ThisWorkbook.Path & "\"
Set Classeur = Workbooks.Open(Dossier & "LOG.xlsm")
Classeur.Sheets("Feuil1").Range("B1:B50") = ""
Classeur.Close True
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG