Pb sur un VBA ExcelRésolu

Question

bonjour j'ai fait un petit vba pour generer une série de fichier excel a partir d'un modele mais il plante sur une ligne toute bete si kkun voit une erreur des fois : Sub GenererListeFormulaires() Dim i As Integer Dim Client As String Dim Site As String Dim Chemin As String Dim N1 As String Dim N2 As String Chemin = "V:" Modele = "V:\Formulaire Modele.xls" N1 = ActiveWorkbook.Name Workbooks.Open Filename:=Modele, Editable:=True ActiveWorkbook.Sheets("Enquete").Select N2 = ActiveWorkbook.Name For i = 3 To 120 Workbooks.Item(N1).Activate Range("A" & i).Select Client = ActiveCell.FormulaR1C1 Range("B" & i).Select If ActiveCell.FormulaR1C1 <> "" Then Site = ActiveCell.FormulaR1C1 If (Client "") And (Site "") Then Exit For If (Client <> "") Then Workbooks.Item(N2).Activate Range("B35").Select '<<<<<===== PLANTAGE SUR CETTE LIGNE ActiveCell.FormulaR1C1 = Site Range("D35").Select ActiveCell.FormulaR1C1 = Client Range("F35").Select ActiveCell.FormulaR1C1 = Format(Now, "dd//mm//yy") ActiveWorkbook.SaveAs (Chemin & "Enquete Satisfaction - " & Client & ".xls") End If Next ActiveWorkbook.Close End Sub Merci d'avance

bertholdt · Accepted Answer

Salut,

Il est peut &#234;tre n&#233;cessaire de pr&#233;ciser avec quelle feuile du classeur tu travailles.

par exemple, ActiveSheet.Range("B35").Select

etc.

++

Pierrick

tbbuim1 · Answer

&#224; mon avis &#231;a peut venir de tes N1 et N2

Essayes de faire une macro enregistr&#233;e de ce que tu veux faire.

tu y verras peut &#234;tre plus claire

TBBUIM

mastercatz · Answer

bah apparament c'&#233;tait ca.
c'est bizarre tout de meme, sous VB6 quand je me sert d'excel je n'ai jamais eu besoin de pr&#233;ciser ActiveSheet lors d'un Range.
Merci

bertholdt · Answer

Content d'avoir pu t'aider, n'oublies pas de valider la r&#233;ponse pour que les autres utilisateurs puissent en profiter.

++

Pierrick

Pb sur un VBA Excel

4 réponses

Discussions similaires