Transformer Excel VBA en Excel sans macro

Bonjour,

J'ai actuellement un fichier VBA qui se met à jour automatiquement, et j'aimerais qu'a chaque mise à jour la macro crée un autre fichier excel mais sans les macros. En gros que en même temps que le fichier avec macro se met à jour cela met aussi un fichier sans macro à jour.

Voici mon code :

Private Sub Workbook_Open()

On Error Resume Next
Dim i As Integer, wbk As Workbook, wbk2 As Workbook, a As String, b As String
Set wbk = ThisWorkbook
Set wbk2 = Workbooks.Open(ThisWorkbook.Path & "\Emprunter_un_outil_ou_rendre_un_outil.xlsx") '\Emprunter_un_outil_ou_rendre_un_outil.xlsx'
Application.DisplayAlerts = False

For i = 2 To 500
a = wbk2.Worksheets(1).Cells(2, 1).Value
b = wbk.Worksheets(1).Cells(i, 4).Value
If b Like a Then
wbk.Worksheets(1).Range("F" & i).Value = wbk2.Worksheets(1).Range("B2").Value
wbk.Worksheets(1).Range("G" & i).Value = wbk2.Worksheets(1).Range("C2").Value
wbk.Worksheets(1).Range("H" & i).Value = wbk2.Worksheets(1).Range("D2").Value
wbk.Worksheets(1).Range("I" & i).Value = wbk2.Worksheets(1).Range("E2").Value
wbk.Worksheets(1).Range("J" & i).Value = wbk2.Worksheets(1).Range("F2").Value
wbk.Worksheets(1).Range("K" & i).Value = wbk2.Worksheets(1).Range("G2").Value
End If
Next
Application.ScreenUpdating = True
wbk.Save
wbk2.Close
Kill (ThisWorkbook.Path & "\Emprunter_un_outil_ou_rendre_un_outil.xlsx")
Temps = Now + TimeValue("00:45:00")
Application.OnTime Temps, "FermerClasseur"
Name "D:\Users\christophe.durand\Desktop\Gestion outil\Emprunter_un_outil_ou_rendre_un_outil (1).xlsx" As "D:\Users\christophe.durand\Desktop\Gestion outil\Emprunter_un_outil_ou_rendre_un_outil.xlsx"
Name "D:\Users\christophe.durand\Desktop\Gestion outil\Emprunter_un_outil_ou_rendre_un_outil (2).xlsx" As "D:\Users\christophe.durand\Desktop\Gestion outil\Emprunter_un_outil_ou_rendre_un_outil (1).xlsx"
Name "D:\Users\christophe.durand\Desktop\Gestion outil\Emprunter_un_outil_ou_rendre_un_outil (3).xlsx" As "D:\Users\christophe.durand\Desktop\Gestion outil\Emprunter_un_outil_ou_rendre_un_outil (2).xlsx"
Name "D:\Users\christophe.durand\Desktop\Gestion outil\Emprunter_un_outil_ou_rendre_un_outil (4).xlsx" As "D:\Users\christophe.durand\Desktop\Gestion outil\Emprunter_un_outil_ou_rendre_un_outil (3).xlsx"

If Err <> 0 Then
Exit Sub
End If

End Sub

Merci

Bonjour Clest 77 le forum

je ne comprends pas trop ce que tu veux faire avec ta macro??

tu veux chercher si la cellule A2 du fichier que tu ouvres, contient la cellule D & i du fichier qui est ouvert!!

et remplacer les cellules de ton fichier, et après tu supprimes le fichier que tu as ouvert.

si tu nous expliquais le but recherché exactement on pourrait t'aider , mais là je ne comprend pas le résultat que tu attends

a+

Papou

En faite la je vous ai donné la macro de mon excel A.

J'aimerais que lorsque je lance la macro que cela crée aussi un classeur sans macro B avec les mêmes données que le fichier A.

J'espère avoir été claire

Bonjour

je penses que cela sera utilisé pour visualiser le dit fichier sur tablette ou smartphone, qui ne permet pas de gérer les macros, et donc impossible de lire le document...

c'est ça ??

peut-etre a la fin faire :

Wbk.SaveAs (Fichier), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

fichier étant le chemin + nom + extension du fichier qui doit etre sauvegardé

fred

Merci c'est exactement ça