Bonjour,
Besoin de votre aide, une nouvelle fois ^^
Voila, j'ai un fichier qu'on appellera "Réunion". Je souhaiterai remplir ce fichier avec les données d'un autre classeur, au nom variable. Voila mon code actuel :
Sub Récupération_des_données()
Dim SAP As Workbook, Réunion As Workbook
Set Réunion = ThisWorkbook
Dim Fichier$
Fichier = InputBox("Nom du fichier exporté")
Application.ScreenUpdating = False
'vérifie que le classeur au nom variable (SAP) est ouvert, sinon demande ouverture et sortie macro
On Error Resume Next
Set SAP = Workbooks(Fichier)
If SAP Is Nothing Then MsgBox " Vous devez d'abord exporter les données": Exit Sub
Application.DisplayAlerts = False
Dim cel As Range
Application.ScreenUpdating = 0
With ActiveWorkbook
Set cel = .Sheets(1).Columns("A:A").Find("test")
If Not cel Is Nothing Then
Réunion.Sheets("1").Cells(1, 3) = 1
Réunion.Sheets("1").Cells(2, 3) = 2
Else
MsgBox "Echec ", , "N'existe pas": wbks.Close: Exit Sub
End If
End With
End Sub
Mon problème étant que, même en rentrant mon nom de fichier dans l'inputbox, cela ne semble pas s'enregistrer dans le "Set SAP = Workbooks(Fichier)" et du coup cela m'affiche toujours le message d'erreur "Vous devez d'abord exporter les données"
Petite info supplémentaire, mon fichier d'où je récupère les données, est un fichier "export" qui exporte les données d'un logiciel non excel, sous format excel, donc je n'ai pas particulièrement de chemin d'accès
J'espère être claire :s
Merci d'avance !
Besoin de votre aide, une nouvelle fois ^^
Voila, j'ai un fichier qu'on appellera "Réunion". Je souhaiterai remplir ce fichier avec les données d'un autre classeur, au nom variable. Voila mon code actuel :
Sub Récupération_des_données()
Dim SAP As Workbook, Réunion As Workbook
Set Réunion = ThisWorkbook
Dim Fichier$
Fichier = InputBox("Nom du fichier exporté")
Application.ScreenUpdating = False
'vérifie que le classeur au nom variable (SAP) est ouvert, sinon demande ouverture et sortie macro
On Error Resume Next
Set SAP = Workbooks(Fichier)
If SAP Is Nothing Then MsgBox " Vous devez d'abord exporter les données": Exit Sub
Application.DisplayAlerts = False
Dim cel As Range
Application.ScreenUpdating = 0
With ActiveWorkbook
Set cel = .Sheets(1).Columns("A:A").Find("test")
If Not cel Is Nothing Then
Réunion.Sheets("1").Cells(1, 3) = 1
Réunion.Sheets("1").Cells(2, 3) = 2
Else
MsgBox "Echec ", , "N'existe pas": wbks.Close: Exit Sub
End If
End With
End Sub
Mon problème étant que, même en rentrant mon nom de fichier dans l'inputbox, cela ne semble pas s'enregistrer dans le "Set SAP = Workbooks(Fichier)" et du coup cela m'affiche toujours le message d'erreur "Vous devez d'abord exporter les données"
Petite info supplémentaire, mon fichier d'où je récupère les données, est un fichier "export" qui exporte les données d'un logiciel non excel, sous format excel, donc je n'ai pas particulièrement de chemin d'accès
J'espère être claire :s
Merci d'avance !
Dernière édition: