Bonjour,
Je suis nouvelle dans l'utilisation du VBA pour automatiser mes opérations sur Excel. Je suis confrontée à un problème qui me semblait de premier abord assez simple...
Je m'explique:
J'ai importé 39 fichiers textes dans 39 feuilles différentes. Cela fonctionne bien.
Je souhaite maintenant importer dans chacune de ces feuilles une image différente. Chacune de mes images est numérotée de 1 à 39 et doit être inséré dans sa feuille associée.
Je n'arrive pas à programmer cela, serait ce possible d'avoir quelques pistes pour m'aider...
Merci par avance
Pour importer mes fichiers textes j'avais utilisé ce code: (je n'arrive malheureusement pas à l'adapter a mon insertion d'images)
Dim MainWbk As String
Dim lngCount As Long
MainWbk = ActiveWorkbook.Name
' Ouvrir la fenetre de dialogue pour sélectionner les fichiers à ouvrir
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
' Affichage des chemins de chaque fichier selectionné
Application.ScreenUpdating = False
' Début de la boucle
For lngCount = 1 To .SelectedItems.Count
' Ouverture du fichier texte dans une feuille excel
Workbooks.OpenText Filename:=.SelectedItems(lngCount), _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=True, _
OtherChar:="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), _
Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Sheets(1).Move After:=Workbooks(MainWbk).Sheets(Workbooks(MainWbk).Sheets.Count)
Next lngCount
End With
End Sub
Je suis nouvelle dans l'utilisation du VBA pour automatiser mes opérations sur Excel. Je suis confrontée à un problème qui me semblait de premier abord assez simple...
Je m'explique:
J'ai importé 39 fichiers textes dans 39 feuilles différentes. Cela fonctionne bien.
Je souhaite maintenant importer dans chacune de ces feuilles une image différente. Chacune de mes images est numérotée de 1 à 39 et doit être inséré dans sa feuille associée.
Je n'arrive pas à programmer cela, serait ce possible d'avoir quelques pistes pour m'aider...
Merci par avance
Pour importer mes fichiers textes j'avais utilisé ce code: (je n'arrive malheureusement pas à l'adapter a mon insertion d'images)
Dim MainWbk As String
Dim lngCount As Long
MainWbk = ActiveWorkbook.Name
' Ouvrir la fenetre de dialogue pour sélectionner les fichiers à ouvrir
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
' Affichage des chemins de chaque fichier selectionné
Application.ScreenUpdating = False
' Début de la boucle
For lngCount = 1 To .SelectedItems.Count
' Ouverture du fichier texte dans une feuille excel
Workbooks.OpenText Filename:=.SelectedItems(lngCount), _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=True, _
OtherChar:="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), _
Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
Sheets(1).Move After:=Workbooks(MainWbk).Sheets(Workbooks(MainWbk).Sheets.Count)
Next lngCount
End With
End Sub