creation, renommer un dossier et importation de données Fermé

Question

Bonjour,

Voila je vous sollicite car je bloque sur mon petit bout de code que je n'arrive pas à développer.

Ma macro  copie et colle un dossier "Semaine" (avec tous ses sous dossiers et ses fichiers) et renomme le dossier en fonction du nom d'une cellule dans une feuille..(ex : Semaine 30).
Je souhaiterai à la suite ouvrir un fichier "Menu" du dossier créer pour importer des données mais JE N ARRIVE PAS A OUVRIR CE FICHIER AUTOMATIQUEMENT.

Pourriez vous me donner un petit coup de pouce? merci

 Sub CreerDossierAlternatif()
On Error Resume Next
    Dim Nom As String
    Dim Fso As Object, Source As String, Destination As String
    Nom = Feuil6.[g2]
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Source = "C:\Users\Alex\Desktop\SEMAINE"
    Destination = "C:\Users\Alex\Desktop\SEMAINE" & Nom
    Fso.CopyFolder Source, Destination, False

   Ps J'aimerai que le code ouvre le fichier "Menu" du dossier créer



EDIT: Précision du langage dans la coloration syntaxique.



Configuration: Windows / Firefox 41.0

f894009 · Answer

Bonjour,

mettez la bonne extention du fichier:

 Sub CreerDossierAlternatif()
    On Error Resume Next
    Dim Nom As String
    Dim Fso As Object, Source As String, Destination As String
    Nom = 1     'Feuil6.[g2]
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Source = "C:\Users\Alex\Desktop\SEMAINE"
    Destination = "C:\Users\Alex\Desktop\SEMAINE" & Nom
    Fso.CopyFolder Source, Destination, False
    'ouverture fichier "Menu.?????"
    Set fichier = Workbooks.Open(Destination & "\Menu.???")
End Sub

alex141077 · Answer

Ça fonctionne...merci beaucoup pour ton aide. Pour le bon fonctionnement j'ai ajouté dans la 1ere partie la déclaration en gras 

Cependant, la suite de ma macro ne s'exécute pas comme il le faudrait...Sub CreerDossierAlternatif()'1ere partie    On Error Resume Next    Dim Nom As String    Dim Fso As Object, Source As String, Destination As String    Dim Fichier As Object    Nom = Feuil6.[g2]    Set Fso = CreateObject("Scripting.FileSystemObject")    Source = "C:\Users\Alex\Desktop\SEMAINE"    Destination = "C:\Users\Alex\Desktop\SEMAINE" & Nom    Fso.CopyFolder Source, Destination, False    'ouverture fichier "Menu.?????"    Set fichier = Workbooks.Open(Destination & "\Menu.xls")' 2eme partie    Windows("Création Menu Eté").Activate    Sheets(1).Select    Range("B1:C53").Copy    Windows("Menu.xls").Activate    Range("B1").Select    ActiveSheet.Paste Link:=xlPasteValues 'True

Au niveau de la 2eme ligne (Sheets(1).Select), il ne se passe rien...ca reste figé sur une autre feuille???

alex141077 · Answer

L'activation de la feuil(1) se fait bien mais le problème c'est que la copie du contenu se réalise sur une autre feuil. Pourtant dans mon code je sélectionne bien ma feuil (1) avant et après je sélectionne mes cellules....je comprends pas pourquoi la sélection des cellules se réalise sur la feuil (25)!!!!

Creation, renommer un dossier et importation de données

3 réponses

Discussions similaires