Paramétrage macro si fichiers séparés (cloud)

Question

Voici la situation en image et en couleurs pour faciliter la lecture : Comme vous pouvez le constater, je dois télécharger des documents qui ont des structures similaires. Le code écrit peut déjà traité les 3 fichiers indépendamment. Néanmoins, j'ai écrit le code directement sur un fichier téléchargé . Or je ne souhaite pas devoir ajouter la macro dans chaque fichier à chaque fois. Mon objectif serait de créer un fichier contenant cette macro, qui serait exécutable sur l'autre. Pour cela, je crois qu'il faut simplement ouvrir les deux fichiers en même temps. Quelqu'un pour confirmer ? Aussi en l'état, je dois copier une feuille de ce potentiel nouveau fichier vers le fichier téléchargé avant l'exécution de la macro. Cela me permet de revenir dans la configuration où j'ai écrit cette macro, à savoir : sur un fichier téléchargé . Donc il me faudrait réaliser cette copie en début de macro sachant que chaque fichier du drive contient " Lot " dans son nom de fichier. J'imagine qu'un test IF avec cette caractéristique rendrait la macro applicable à n'importe quel fichier. Je vous remercie pour le temps accordé à cette situation un peu particulière...

Invité · Answer

Si ce que vous souhaitez faire est faisable directement d'Excel, alors il "suffit" d'utiliser l'enregistreur de macros Sinon et bien ce n'est pas possible Toujours est-il qu'une image ne suffit pas à tout expliquer A+...

Invité · Answer

Re,

Effectivement, vous n'avez pas compris, je pense

En utilisant l'enregistreur de macros sur votre fichier "maitre" celui contenant la macro

Vous pouvez faire toutes les interactions souhaitées, ce qui va vous créer du code

Ce code, il faudra juste le modifier pour pouvoir utiliser des variables

Car sans code initial, nous ne pourrons pas vous aider à grand chose

A+

Invité · Answer

Re,

Bon et bien voilà, je pense qu'on commence à y voir plus clair

Ce que vous ne savez pas faire il me semble c'est d'utiliser des variables
Je ne vous conseillerais que trop d'aller voir https://www.excel-pratique.com/fr/vba/variables

Voici une possibilité de code (à tester)

Option Explicit

Sub IntégrerFeuille()
  Dim sPath As String, sFicS As String
  Dim WbkS As Workbook
  ' Définir le chemin et fichier source
  sPath = "C:\VARIABLE_CHEMIN\"
  sFicS = ChoixFichier(sPath, "Choisissez votre fichier à traiter", "Fichier Source, *.xlsx")
  If sFicS = "" Then Exit Sub
  ' Ouvrir le fichier source en définissant la variable objet
  Set WbkS = Workbooks.Open(Filename:=sPath & sFicS)
  ' Copier la feuille du fichier master
  Sheets("Feuille A COPIER").Copy Before:=WbkS.Sheets(1)
  ' Traitement possible ICI

  ' Sauvegarder le classeur
  WbkS.SaveAs Filename:=sPath & "Classeur1_test170222.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

Function ChoixFichier(DefaultPath As String, sTitre As String, Optional sFilter As String)
  ' Le filtre doit être du type : "Fichier à traiter (*.xlsx), *.xlsx"
  Dim fd As FileDialog, TabFilter() As String
  ' Initialiser les variables
  If Right(DefaultPath, 1) <> "\" Then DefaultPath = DefaultPath & "\"
  ' Initialiser l'intance du dialogue
  Set fd = Application.FileDialog(msoFileDialogFilePicker)
  With fd
    .Filters.Clear
    ' Si un filtre a été donné
    If sFilter <> "" Then
      TabFilter = Split(sFilter, ",")
      .Filters.Add TabFilter(0), Trim(TabFilter(1))
    End If
    .Title = sTitre
    .InitialFileName = DefaultPath & TabFilter(0)
    If .Show = -1 Then
      ChoixFichier = fd.SelectedItems(1)
    End If
  End With
  Set fd = Nothing
End Function

A+