Bonjour,
J'espère que vous pourrez m'aider à résoudre ce problème. Je dois, après avoir demandé à l'utilisateur de sélectionner un dossier de destination et une période (via des inputbox), recherche le (ou les) dossier correspondant puis le (ou les) fichier concerné et ainsi générer tableau de bord qui sera enregistré dans le dossier choisi par l'utilisateur.
Pour cela j'ai créé un tableau croisé de correspondance, mais je ne parviens pas à sélectionner le bon dossier puis ouvrir le bon fichier (sachant que dans UN cas ce sont tous les dossiers qui doivent être parcourus et dans chacun, un fichier sélectionné et traité et ajouté aux autres fichiers déjà analysés). (Je ne suis pas certaine d'avoir été HYPER claire...), alors, voici ce que j'ai préparé.
Merci d'avance pour votre aide.
Plec
Dim MonRépertoire As String
Dim i As Integer
Dim RD As String
Dim Plage As Range
Dim Largeur As Integer
Dim Hauteur As Integer
'
'Ouvre une boite de dialogue de sélection de répertoire de destination
'(et donc une agence de sélection ou toutes les agences pour le dossier "FRANCE")
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
MonRépertoire = .SelectedItems(1)
End With
'
' Ouvre une boite de dialogue de saisie de date de début de période
Dim Message, Title, Default, Madatedébut As String
' Définit le message
Message = "Saisir la date de début de période au format jjmmaaaaa"
' Définit le titre
Title = "Début période"
' Définition la valeur par défaut
Default = "01" & Month(Date) & Year(Date)
' Affiche le message, le titre et la valeur par défaut
Madatedébut = InputBox(Message, Title, Default)
'
' Ouvre une boite de dialogue de saisie de date de fin de période
Dim Madatefin As String
Message = "Saisir la date de fin de période au format jjmmaaaaa"
Title = "Fin période"
Default = Day(Date) & Month(Date) & Year(Date)
Madatefin = InputBox(Message, Title, Default)
'
'Tableau croisé de correspondance entre les noms des dossiers générés par l'ACD
'et le nom des dossiers du dossier X - ACD
Dim Correspondance(6, 2) As Variant
Correspondance(1, 1) = "PARIS"
Correspondance(1, 2) = "008RF875T54A"
Correspondance(2, 1) = "LYON"
Correspondance(2, 2) = "008856GT5T60"
Correspondance(3, 1) = "MARSEILLE"
Correspondance(3, 2) = "005562G5B0G5"
Correspondance(4, 1) = "LILLE"
Correspondance(4, 2) = "00036GA0E350"
Correspondance(5, 1) = "STRASBOURG"
Correspondance(5, 2) = "00224DVR6N99"
Correspondance(6, 1) = "NANTES"
Correspondance(6, 2) = "005608G6H5F73"
'
'Liste les dossiers et sélectionne celui ou ceux pour lesquels la correspondance
'de nom est correcte (ex. Sélection de PARIS dans le 1er message = Sélection
'du contenu du dossier "008RF875T54A")
With Application.FileSearch
.LookIn = "\\F:\ACD"
.SearchSubFolders = False
For Each RD In .SearchScopes(1).ScopeFolder.ScopeFolders(1).ScopeFolders
If Correspondance = MonRépertoire Then _
MonRépertoire .FoundFiles.Count
End If
Next RD
.Execute
J'espère que vous pourrez m'aider à résoudre ce problème. Je dois, après avoir demandé à l'utilisateur de sélectionner un dossier de destination et une période (via des inputbox), recherche le (ou les) dossier correspondant puis le (ou les) fichier concerné et ainsi générer tableau de bord qui sera enregistré dans le dossier choisi par l'utilisateur.
Pour cela j'ai créé un tableau croisé de correspondance, mais je ne parviens pas à sélectionner le bon dossier puis ouvrir le bon fichier (sachant que dans UN cas ce sont tous les dossiers qui doivent être parcourus et dans chacun, un fichier sélectionné et traité et ajouté aux autres fichiers déjà analysés). (Je ne suis pas certaine d'avoir été HYPER claire...), alors, voici ce que j'ai préparé.
Merci d'avance pour votre aide.
Plec
Dim MonRépertoire As String
Dim i As Integer
Dim RD As String
Dim Plage As Range
Dim Largeur As Integer
Dim Hauteur As Integer
'
'Ouvre une boite de dialogue de sélection de répertoire de destination
'(et donc une agence de sélection ou toutes les agences pour le dossier "FRANCE")
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
MonRépertoire = .SelectedItems(1)
End With
'
' Ouvre une boite de dialogue de saisie de date de début de période
Dim Message, Title, Default, Madatedébut As String
' Définit le message
Message = "Saisir la date de début de période au format jjmmaaaaa"
' Définit le titre
Title = "Début période"
' Définition la valeur par défaut
Default = "01" & Month(Date) & Year(Date)
' Affiche le message, le titre et la valeur par défaut
Madatedébut = InputBox(Message, Title, Default)
'
' Ouvre une boite de dialogue de saisie de date de fin de période
Dim Madatefin As String
Message = "Saisir la date de fin de période au format jjmmaaaaa"
Title = "Fin période"
Default = Day(Date) & Month(Date) & Year(Date)
Madatefin = InputBox(Message, Title, Default)
'
'Tableau croisé de correspondance entre les noms des dossiers générés par l'ACD
'et le nom des dossiers du dossier X - ACD
Dim Correspondance(6, 2) As Variant
Correspondance(1, 1) = "PARIS"
Correspondance(1, 2) = "008RF875T54A"
Correspondance(2, 1) = "LYON"
Correspondance(2, 2) = "008856GT5T60"
Correspondance(3, 1) = "MARSEILLE"
Correspondance(3, 2) = "005562G5B0G5"
Correspondance(4, 1) = "LILLE"
Correspondance(4, 2) = "00036GA0E350"
Correspondance(5, 1) = "STRASBOURG"
Correspondance(5, 2) = "00224DVR6N99"
Correspondance(6, 1) = "NANTES"
Correspondance(6, 2) = "005608G6H5F73"
'
'Liste les dossiers et sélectionne celui ou ceux pour lesquels la correspondance
'de nom est correcte (ex. Sélection de PARIS dans le 1er message = Sélection
'du contenu du dossier "008RF875T54A")
With Application.FileSearch
.LookIn = "\\F:\ACD"
.SearchSubFolders = False
For Each RD In .SearchScopes(1).ScopeFolder.ScopeFolders(1).ScopeFolders
If Correspondance = MonRépertoire Then _
MonRépertoire .FoundFiles.Count
End If
Next RD
.Execute
